画中心线属于重复工作，录制了个宏

aly

Dim Part As Object
' T2 H1 {$ F0 T; ]4 {. PDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
6 y& ?7 _' F9 @* c
' H3 u  Y6 B- e) \/ u% A* PSub main()
" H! D+ e! z, X2 J9 H) q0 `
" A! F5 I8 S6 }4 q9 |Set swApp = _
" Y8 }* V2 S- p) B) _: c% PApplication.SldWorks
! }( J4 p/ W; ~, ]9 A
2 R* E, a& j: q; v% f0 q9 T# z! BSet Part = swApp.ActiveDoc
) @" M9 O& e! [: Z( R" NPart.SketchManager.InsertSketch True
Part.ClearSelection2 True
' j( b" f. H/ C# _* q8 aDim skSegment As Object
; k# D* S/ i" ^/ @Set skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
0 M5 ~/ J0 ]% l" @: E) v. z3 ~Part.SetPickMode
Part.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
Part.SetPickMode
9 F) I; j6 U% E) z) L5 `# hPart.ClearSelection2 True
# }! R% o  g2 @) eEnd Sub
6 i( v2 Q4 r1 `' R4 D( ]
2 a: o( i$ L; g4 C2 T


3 C- F/ D9 e$ I选择一个基准面，不选择默认是前基准，直接生成两条中心线
把这个宏绑定个快捷键比如 B
3 v# k% u* T8 R: e点个B节省两条线时间

Camelot

3 T. J# p. e: Z5 A. T5 q! }前排出售瓜子花生等待大佬发言

毛主

怎么用啊

毛主

Dim Part As Object
& a8 ^2 h8 o5 p& `3 d7 ~Dim boolstatus As Boolean5 F2 x, v$ M4 T! g# ?% A/ ~# H
Dim longstatus As Long, longwarnings As Long
5 N, M' e& z0 K& h2 b5 ]$ l& e* n" r
Sub main()
9 Q" X: y! Z$ s0 z
Set swApp = _
( d7 ^! n8 J6 H, R4 IApplication.SldWorks# e; K% {% L- k. D) q
: I. A. p6 M8 J: x
6 e; O" ?8 a; p6 n+ a8 k) j/ tSet Part = swApp.ActiveDoc
7 Y0 v; ]+ U; v9 u( e" L: fPart.SketchManager.InsertSketch True
Part.ClearSelection2 True
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)( t" V. I$ S, V$ ]
4 J% |4 b- n; E1 e. q$ o3 f" }Part.SetPickMode
, `6 ?* a/ q/ u* ]. I; HPart.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)! {- s# l4 h) q
Part.SetPickMode/ R- h+ j2 B/ ]( y5 M9 k
) l1 U) V) L3 [3 Q4 {1 D: ~Part.ClearSelection2 True
End Sub

毛主

Dim Part As Object
Dim boolstatus As Boolean
/ {! u) |2 }2 l- sDim longstatus As Long, longwarnings As Long
Sub main()
9 n. y5 a7 q" _2 m) q% L9 I" {Set swApp = _
, N, Y/ b$ }6 d4 ]8 x3 vApplication.SldWorks
Set Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch True
9 z4 t( o0 O8 ~) rPart.ClearSelection2 True
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
/ u* @# L, g9 d  u: [Part.SetPickMode
Part.ClearSelection2 True
3 z, e  ?+ Q# O; l- KSet skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
Part.SetPickMode
% Q' b" D# ?1 J, z% bPart.ClearSelection2 True
6 q( a& m% y; q6 V( v. c3 {End Sub

冷月梧桐

不带图的宏，不敢玩

未来第一站

冷月梧桐 发表于 2021-4-8 19:21
不带图的宏，不敢玩

8 ]! B+ x6 x; e* e& }哈哈
9 [. a* g, S1 F3 B- \3 Z

aly

冷月梧桐 发表于 2021-4-8 19:21
; e6 u2 k$ I# O- S不带图的宏，不敢玩

就是两条中心线而已，鼠标拖的累

远祥

厉害了咯，这后期去干IT很有资质！

宝藏男孩田伯光

怎么加载进去