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

aly

Dim Part As Object
  R1 T9 a* m# z/ |, N) d/ d( bDim boolstatus As Boolean
/ q* F+ W4 {& R9 X2 z9 nDim longstatus As Long, longwarnings As Long

Sub main()

5 u1 b' G" m7 b. m* NSet swApp = _
Application.SldWorks
& v5 l, _7 `7 [( c, e4 {
Set Part = swApp.ActiveDoc
. _4 r0 Z: G" [) x* r) P, DPart.SketchManager.InsertSketch True
Part.ClearSelection2 True
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
) j* A6 q4 `! e6 L9 hEnd Sub

( D! v, _3 }8 x. v% d! c, a


3 W: y' D5 m, r! O, O2 e" |選擇一個基準面，不選擇默認是前基準，直接生成兩條中心線
9 t- z8 k- r) e9 R6 j: b; R把這個宏綁定個快捷鍵比如 B
點個B節省兩條線時間

Camelot

4 S9 G* ~* ^% X) S
前排出售瓜子花生等待大佬發言

毛主

怎么用啊

毛主

Dim Part As Object
Dim boolstatus As Boolean5 F2 x, v$ M4 T! g# ?% A/ ~# H
Dim longstatus As Long, longwarnings As Long

5 R- {+ h! m* X: B* A, Q- YSub main()
( _* ?3 X# j# x' r! I" F. ~
Set swApp = _
4 E& h  G6 \1 n, X" DApplication.SldWorks# e; K% {% L- k. D) q
: W) w& z  ~. P1 K
8 d! {9 M/ @/ z% BSet Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch True
' Q; R6 F$ p0 F9 r+ I8 o' A/ M/ OPart.ClearSelection2 True
Dim skSegment As Object
$ |7 `! f3 w9 w& }# j8 N0 gSet skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)( t" V. I$ S, V$ ]
Part.SetPickMode
' K  U# {. Z: ~. N, i! c4 QPart.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
3 `6 m# W3 c: @$ l: PPart.ClearSelection2 True
End Sub

毛主

Dim Part As Object
4 e% Z6 d/ E7 wDim boolstatus As Boolean
/ f* q" J& r# L0 aDim longstatus As Long, longwarnings As Long
) t- T9 ~) x+ B$ n3 iSub main()
( Q6 A" \3 m3 M6 U8 x0 m8 p) FSet swApp = _
! p. M7 G  x( L1 f& C* VApplication.SldWorks
Set Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch True
& r0 u6 Y6 U) J2 SPart.ClearSelection2 True
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
Part.SetPickMode
8 H! A. a/ W4 o8 X! E" z: ^6 nPart.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
Part.SetPickMode
Part.ClearSelection2 True
4 j  R2 {) e9 E$ pEnd Sub

冷月梧桐

不帶圖的宏，不敢玩

未來第一站

冷月梧桐 發表于 2021-4-8 19:21
" h2 G1 b7 m" f不帶圖的宏，不敢玩

哈哈

aly

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

就是兩條中心線而已，鼠標拖的累
5 g3 c5 W7 U! _" [/ D; t

遠祥

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

寶藏男孩田伯光

怎么加載進去
% J' O. |3 J. F% c0 \