Dim Part As Object( T+ g/ Y" m( Z9 @9 W
Dim boolstatus As Boolean& T8 ^% k, j4 ?' c* H
Dim longstatus As Long, longwarnings As Long
$ C% y- a: u* G/ c ] L ~. ~/ o A3 r" G3 A8 R0 d
Sub main()
4 `0 {$ o# _6 H7 Y5 v j0 O5 C7 M; H# q, J! l& k- D, I# t
Set swApp = _0 R! E' g9 Q+ T- X) H
Application.SldWorks/ l" g% [3 J* B) s' Z, I6 Z
7 h8 a Z8 f/ f5 u. YSet Part = swApp.ActiveDoc
1 ~# o& t L m; o3 I. DPart.SketchManager.InsertSketch True
0 b2 u, V: x- O* \5 MPart.ClearSelection2 True
9 B2 f0 X) C1 |( f" q2 P I- wDim skSegment As Object2 J& u2 n6 C; `4 R; ^" t
Set skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
+ s4 S- D) C' a5 d/ DPart.SetPickMode/ H0 H; }! ]6 c# V; R8 z1 j
Part.ClearSelection2 True
! w2 d; D! O/ w+ h) hSet skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
s- I! z" l7 p- n7 rPart.SetPickMode# k8 [: N0 l/ z3 j) ?
Part.ClearSelection2 True6 ^/ \* y0 c1 c" w6 _% a" R4 c: }
End Sub
3 D! E9 [& ~5 t6 W& s; U8 ^! H" R9 m2 m: x
^7 a3 p3 m( g, f
/ O9 J: ^' r/ E O2 F5 ^$ k4 C7 L/ T7 r8 a p) L& ]1 u u5 z
选择一个基准面，不选择默认是前基准，直接生成两条中心线
# B8 o! N7 Q3 X4 @把这个宏绑定个快捷键比如 B
* G2 Q9 c( k: P$ r7 H% |" `点个B节省两条线时间 |
发表于 2021-4-8 10:06:35
楼主
