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

aly

Dim Part As Object
Dim boolstatus As Boolean
" D$ K$ ^7 Y& o  o  TDim longstatus As Long, longwarnings As Long
7 Y- P! P5 r. @
Sub main()
8 Z1 B; R) ]2 s) H3 [7 g
' `4 J. C  ]8 _( q" W- GSet swApp = _
7 U5 d- z4 E$ R& l4 s1 AApplication.SldWorks

- D0 G. o8 W: ^2 w8 VSet Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch True
4 X/ \5 ?3 u4 h0 e0 w/ [6 P- u1 HPart.ClearSelection2 True
- y3 n; h( o* G4 {/ m  ]Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
Part.SetPickMode
Part.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
Part.SetPickMode
Part.ClearSelection2 True
End Sub
, C3 w/ i8 {- \8 [" s1 F+ t, S



选择一个基准面，不选择默认是前基准，直接生成两条中心线
  b" v9 M( Q# \6 w# g把这个宏绑定个快捷键比如 B
$ m+ N) B3 k! T" \* b点个B节省两条线时间

Camelot

前排出售瓜子花生等待大佬发言

毛主

怎么用啊

毛主

Dim Part As Object
Dim boolstatus As Boolean5 F2 x, v$ M4 T! g# ?% A/ ~# H
Dim longstatus As Long, longwarnings As Long
( [" j; G6 ], n6 ^: F& X
Sub main()
# D; [$ K5 u* T6 A
+ _* a4 w9 h! pSet swApp = _
Application.SldWorks# e; K% {% L- k. D) q

Set Part = swApp.ActiveDoc
; ]% z7 Q! {5 kPart.SketchManager.InsertSketch True
Part.ClearSelection2 True
, Y/ R& D7 M* z+ [& {+ O. LDim skSegment As Object
8 s. `7 A  a8 z. q/ l7 N; |! t! X7 P5 uSet skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)( t" V. I$ S, V$ ]
Part.SetPickMode
8 w; H" U% R) {( s' [Part.ClearSelection2 True
! ^! P& a7 A( Q% vSet skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)! {- s# l4 h) q
( r' C0 F$ P# c1 E  \9 rPart.SetPickMode/ R- h+ j2 B/ ]( y5 M9 k
: T. X5 e- ]7 ?9 s+ NPart.ClearSelection2 True
1 d: H" K5 Q2 s1 O) G, M. }End Sub
. l" `* T7 j# s. A( d

毛主

Dim Part As Object
" C' F. d; u- P: l" yDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
% k, X  y9 k  C" CSub main()
7 D# d! m$ W' E& eSet swApp = _
7 `( C. @0 b( d, N& ^; Q  `- jApplication.SldWorks
" Y& U1 ]! `4 M) jSet Part = swApp.ActiveDoc
- F1 |' o+ Y5 U% p* D: |Part.SketchManager.InsertSketch True
Part.ClearSelection2 True
. w7 {! S5 |' X5 }7 c, _+ u  l$ hDim skSegment As Object
Set skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
Part.SetPickMode
Part.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
, X5 t$ J% |# n2 I* \Part.SetPickMode
Part.ClearSelection2 True
End Sub

冷月梧桐

不带图的宏，不敢玩

未来第一站

冷月梧桐 发表于 2021-4-8 19:21
5 y0 q# H' ^! a! D不带图的宏，不敢玩

哈哈

aly

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

, Q3 p6 u: ]' m6 t" I# l. K就是两条中心线而已，鼠标拖的累
" w) q0 p+ A1 \& ~4 _

远祥

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

宝藏男孩田伯光

怎么加载进去