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

aly

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
2 B) O! @" m( H3 A8 @3 Z
Sub main()

% F1 F! i" i4 T2 @2 t/ DSet swApp = _
Application.SldWorks
4 D2 m) r* X* ], R. n' r" A
Set Part = swApp.ActiveDoc
2 D6 u( m, W0 s# e$ b7 m) BPart.SketchManager.InsertSketch True
' l  n+ ?5 O- m; k1 WPart.ClearSelection2 True
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
6 y, }% Z5 U3 `5 n* OPart.SetPickMode
Part.ClearSelection2 True
- s" _! y  F" Q# K/ ^Set skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
Part.SetPickMode
Part.ClearSelection2 True
/ r" S5 ?; ~# E$ V. Y) n5 r2 PEnd Sub
5 K# c8 Y% R4 @6 T  n
  Z5 C; b$ T9 B2 R' W: ^8 q# k  W
! O8 B% l2 d& H8 C

4 X  |( m! v* e選擇一個基準面,，不選擇默認是前基準，直接生成兩條中心線
& _. J/ j: O$ l) |把這個宏綁定個快捷鍵比如 B
點個B節(jié)省兩條線時間

Camelot

0 Q9 U) l) F8 M- @! m6 w& T7 f前排出售瓜子花生等待大佬發(fā)言

毛主

怎么用啊

毛主

' R+ Q8 |! E+ s8 pDim Part As Object
' t9 A5 {: K, _  J! @8 ?$ G. qDim boolstatus As Boolean5 F2 x, v$ M4 T! g# ?% A/ ~# H
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = _
2 \. B" D! r# h* Z4 @. K3 ~1 eApplication.SldWorks# e; K% {% L- k. D) q

) |3 y, X: ]" y/ i) a0 VSet Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch True
, D! i$ Q' u7 O. K+ a  T/ JPart.ClearSelection2 True
Dim skSegment As Object
( F$ g1 {0 i. m/ c' Q" x, j( N9 A. S) P: \Set skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)( t" V. I$ S, V$ ]
' n- Q. g# A- M9 `! x/ m2 iPart.SetPickMode
Part.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
Part.ClearSelection2 True
- g! r+ q5 ~% s: }+ P0 XEnd Sub
" z/ `6 d9 }! E# U" I( M5 J( c

毛主

Dim Part As Object
Dim boolstatus As Boolean
: {$ t3 [6 O( T7 z9 \  h! rDim longstatus As Long, longwarnings As Long
+ X& S* H% g1 p7 XSub main()
Set swApp = _
& F2 j$ O7 v4 F1 x/ m: P6 T- s! ^Application.SldWorks
0 Y# z0 D6 J+ g8 p+ FSet Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch True
8 ]! g; [8 m3 B$ Y+ aPart.ClearSelection2 True
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
3 v  f5 F* i+ o* tPart.SetPickMode
) t9 O3 S# [% ~! R$ ^+ JPart.ClearSelection2 True
0 \0 h& J7 x6 s  u: kSet skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
$ L' H% L, |" O5 g5 W& pPart.SetPickMode
Part.ClearSelection2 True
$ s5 y, l) z. r& ^# f; mEnd Sub

冷月梧桐

不帶圖的宏,，不敢玩

未來第一站

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

4 _+ |. f5 ^) n/ B, |' p哈哈

aly

冷月梧桐 發(fā)表于 2021-4-8 19:21
3 X% O/ }6 }! J不帶圖的宏，不敢玩

; C& a! X  x1 a/ D% |; j就是兩條中心線而已,，鼠標拖的累

遠祥

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

寶藏男孩田伯光

怎么加載進去
# f0 Q4 [) B9 k- x1 A. u