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

aly

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
; D& R7 `7 f3 P% K8 r' M9 h! P+ N
Sub main()
4 m4 w4 @) C& M, J; ]+ s3 }6 a( b
Set swApp = _
Application.SldWorks

Set Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch True
Part.ClearSelection2 True
Dim skSegment As Object
5 s/ C# @$ M! l; NSet skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
Part.SetPickMode
! N/ ^( w% b8 x! ^  WPart.ClearSelection2 True
' d0 P9 X8 ]$ q( GSet skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
' j7 f- J) ?1 r" [Part.SetPickMode
Part.ClearSelection2 True
End Sub


% T5 v! h& E/ _( f) N; q

6 y$ M. P  t6 }" |; Z+ p9 N選擇一個基準面，不選擇默認是前基準，直接生成兩條中心線
把這個宏綁定個快捷鍵比如 B
點個B節省兩條線時間

Camelot

  _7 v8 q5 k, I0 P0 ~) N6 Z; r前排出售瓜子花生等待大佬發言

毛主

怎么用啊

毛主

Dim Part As Object
Dim boolstatus As Boolean5 F2 x, v$ M4 T! g# ?% A/ ~# H
Dim longstatus As Long, longwarnings As Long
  |4 G- ~+ N4 I3 ~
Sub main()
2 s0 b8 R; j6 b1 f$ G$ C8 w: [
& y$ P! w) I( o% p5 U0 @. `1 }Set swApp = _
Application.SldWorks# e; K% {% L- k. D) q
" i6 Z* g5 i0 ~, |( t5 Q' n
Set Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch True
) r; \( G% N: e1 zPart.ClearSelection2 True
Dim skSegment As Object
, l7 s1 V8 p& F1 L3 VSet skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)( t" V. I$ S, V$ ]
1 A9 u$ Y5 r, dPart.SetPickMode
' f5 ~9 E: |- N/ M! I7 SPart.ClearSelection2 True
- R7 S) f$ C4 SSet 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
5 a$ l0 X( ~& q% M. C

毛主

Dim Part As Object
( u6 F, \8 r" f% T3 _Dim boolstatus As Boolean
, L! E3 t; g0 ?Dim longstatus As Long, longwarnings As Long
Sub main()
$ _0 g7 g! U7 f, `Set swApp = _
Application.SldWorks
) O4 b: _3 w+ J: [- NSet Part = swApp.ActiveDoc
& k- D4 A5 T0 o: s1 QPart.SketchManager.InsertSketch True
( r: a5 F2 V- I  NPart.ClearSelection2 True
Dim skSegment As Object
. i5 e2 d; o, @8 ?8 @5 eSet skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
4 d' {- \1 _3 R# ~3 e* ~5 iPart.SetPickMode
Part.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
Part.SetPickMode
Part.ClearSelection2 True
" H! c! w8 b' G* q$ S. C6 ?8 MEnd Sub

冷月梧桐

不帶圖的宏，不敢玩

未來第一站

冷月梧桐 發表于 2021-4-8 19:21
/ l7 p0 q5 D9 [- S- R4 m不帶圖的宏，不敢玩

哈哈
* S1 S) c: G- |% m3 l" g

aly

冷月梧桐 發表于 2021-4-8 19:21
6 @- v8 I' W6 y6 @, H+ h0 ?3 }不帶圖的宏，不敢玩

( l1 y$ g2 S; x+ x- m7 D就是兩條中心線而已，鼠標拖的累

遠祥

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

寶藏男孩田伯光

怎么加載進去