畫中心線屬于重復工作，錄制了個宏

aly

Dim Part As Object
Dim boolstatus As Boolean
( E0 c$ S; y* W* P$ S) iDim longstatus As Long, longwarnings As Long
! o* y' d- u5 M% ?8 M
Sub main()
: P) f& j; ~1 i: t- t
Set swApp = _
7 g1 ?/ W' e3 V; b' {0 `Application.SldWorks

" H2 D9 F7 X% ^" h: f! wSet Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch True
Part.ClearSelection2 True
; B- A  w* f2 K. JDim skSegment As Object
6 H9 p9 E- V7 U2 i5 _Set skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
* [# n4 G7 [. P+ i9 ZPart.SetPickMode
: _1 c& Z( S" pPart.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
Part.SetPickMode
3 f! X9 G! |, ~/ q3 EPart.ClearSelection2 True
! }/ k* r- @8 P5 k. y( IEnd Sub
- B6 ~; e1 q$ V8 Q3 p; l" a# {) Q



選擇一個基準面，不選擇默認是前基準，直接生成兩條中心線
把這個宏綁定個快捷鍵比如 B
點個B節省兩條線時間

Camelot

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

毛主

怎么用啊

毛主

Dim Part As Object
6 C8 ~2 i& k' P' L$ \: d: XDim boolstatus As Boolean5 F2 x, v$ M4 T! g# ?% A/ ~# H
! C' |* v+ |$ O9 b) I* G8 b+ TDim longstatus As Long, longwarnings As Long
+ d1 x8 b, @) D
' d. }& @4 W6 v- ]Sub main()

Set swApp = _
Application.SldWorks# e; K% {% L- k. D) q

Set Part = swApp.ActiveDoc
+ _( Q8 B, K( s% p8 Z7 k3 X# jPart.SketchManager.InsertSketch True
4 Z# ^3 g: @4 n  ^3 F1 i- @6 E$ ~6 |Part.ClearSelection2 True
Dim skSegment As Object
, s& Q) R7 ~; J5 e* q( F) lSet skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)( t" V. I$ S, V$ ]
3 s1 [7 ?8 A- T  oPart.SetPickMode
& u% l- L; n# R8 G# _8 p- GPart.ClearSelection2 True
$ L% `. K. x) o. `5 BSet 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
Part.ClearSelection2 True
End Sub

毛主

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
$ B' k! j9 p6 ?Sub main()
9 C& Z* `1 K. k0 Z* i9 h* |5 MSet swApp = _
Application.SldWorks
Set Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch True
" K0 Z  L/ c$ r  [" V: V4 c$ V( SPart.ClearSelection2 True
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
Part.SetPickMode
" F7 T% y! B2 d4 ZPart.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
Part.SetPickMode
Part.ClearSelection2 True
9 J  v9 G) `& s  U5 KEnd Sub

冷月梧桐

不帶圖的宏，不敢玩

未來第一站

冷月梧桐 發表于 2021-4-8 19:21
不帶圖的宏，不敢玩

哈哈

aly

冷月梧桐 發表于 2021-4-8 19:21
不帶圖的宏，不敢玩

" `. ?/ h; ~5 r  }! |" q) v就是兩條中心線而已，鼠標拖的累

遠祥

厲害了咯，這后期去干IT很有資質！

寶藏男孩田伯光

怎么加載進去