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

aly

Dim Part As Object
Dim boolstatus As Boolean
, c1 G  M9 h+ R0 H1 r* oDim longstatus As Long, longwarnings As Long

& q7 t3 r7 G! g( E' qSub main()

6 [2 q0 @: n& F1 S" ~: ySet swApp = _
Application.SldWorks

1 a! _' W: C% b4 c. SSet Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch True
Part.ClearSelection2 True
Dim skSegment As Object
) t; e2 e0 X/ c2 v: A" zSet skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
7 B0 E6 N3 s1 uPart.SetPickMode
2 b( N5 ?3 m6 [( s& [3 K* @Part.ClearSelection2 True
" C9 D0 l. V7 N. i" e9 mSet skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
Part.SetPickMode
Part.ClearSelection2 True
End Sub
7 n. B' g( i; J6 u( y
) X* [$ Z" }+ r

: z: S( I& R* u
選擇一個基準面,，不選擇默認是前基準,，直接生成兩條中心線
把這個宏綁定個快捷鍵比如 B
! |$ S1 {9 ~2 x2 B0 r5 Z# A點個B節(jié)省兩條線時間

Camelot

: a% ^/ A7 [; x. c前排出售瓜子花生等待大佬發(fā)言

毛主

怎么用啊

毛主

Dim Part As Object
Dim boolstatus As Boolean5 F2 x, v$ M4 T! g# ?% A/ ~# H
! t/ o8 q8 J4 P  T* E1 RDim longstatus As Long, longwarnings As Long
( \6 G' h8 y( f& A: {9 u& @# r- x
9 D* j, K# t; X8 VSub main()

Set swApp = _
( n5 p6 v0 o7 `9 U2 S6 T7 \( jApplication.SldWorks# e; K% {% L- k. D) q
1 W& T( a# l8 |2 p  G' Z" j
+ {0 t/ o+ i6 ^6 ASet Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch True
0 g' i  J, X, Y  ]$ ZPart.ClearSelection2 True
Dim skSegment As Object
- h1 M# q: R4 [% }1 M) rSet skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)( t" V. I$ S, V$ ]
Part.SetPickMode
Part.ClearSelection2 True
, \- \+ ]4 ?. w( g% o; q2 T" {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
/ b4 _: M: h' HPart.ClearSelection2 True
* U: ~. F' h$ v' rEnd Sub
0 z1 Q/ n: d/ h* q" O& o

毛主

Dim Part As Object
Dim boolstatus As Boolean
* i* e9 q6 X' y: xDim longstatus As Long, longwarnings As Long
Sub main()
  B2 r  ^$ ^6 \8 K' u/ c: hSet swApp = _
Application.SldWorks
Set Part = swApp.ActiveDoc
$ P# L  E8 c. F+ U" z2 IPart.SketchManager.InsertSketch True
( [1 f) R/ ~4 j, f; QPart.ClearSelection2 True
# M$ \8 p& U/ s1 e3 @Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
' v* J8 ~* j. {5 ~" Z. i6 ^Part.SetPickMode
Part.ClearSelection2 True
% K4 Z$ k+ O& P0 m. aSet skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
Part.SetPickMode
Part.ClearSelection2 True
End Sub

冷月梧桐

不帶圖的宏,，不敢玩

未來第一站

冷月梧桐 發(fā)表于 2021-4-8 19:21
; v- r; q+ N" }1 v" X不帶圖的宏，不敢玩

9 A* u5 U8 F7 s* g哈哈
: M2 P# C; R  Z3 V8 Y" O

aly

冷月梧桐 發(fā)表于 2021-4-8 19:21
: Z. u2 _3 K7 q! N不帶圖的宏,，不敢玩

就是兩條中心線而已,，鼠標拖的累
6 h: _. U% z+ x' p& _2 F2 T

遠祥

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

寶藏男孩田伯光

怎么加載進去