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

aly

Dim Part As Object
Dim boolstatus As Boolean
5 u$ k2 Q+ G4 f9 w& C  M0 sDim longstatus As Long, longwarnings As Long
5 E5 e* j- x3 |4 E6 R! _7 I( C( g+ {
: \) d: E6 }) C" oSub main()
4 g( T# U" P( w
Set swApp = _
Application.SldWorks
; Z9 w+ r7 ], V! w+ h" K9 F5 k
7 P: Q" k; q( _Set Part = swApp.ActiveDoc
/ ]' ?& _- [( VPart.SketchManager.InsertSketch True
Part.ClearSelection2 True
, ?+ d6 R1 V6 j1 S* YDim skSegment As Object
Set skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
9 ^* [+ h- h' OPart.SetPickMode
Part.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
* H& q( A+ x! d! `Part.SetPickMode
% w( ~  I  `! i) t8 q7 b2 SPart.ClearSelection2 True
End Sub

1 o' r2 _8 Y, ^: l
  W& [3 O" B6 x7 `! u' q

選擇一個基準面，不選擇默認是前基準，直接生成兩條中心線
% ]/ J1 L( v, d) [, P把這個宏綁定個快捷鍵比如 B
. ?( E" O) g3 z; U+ p& V# b  S點個B節省兩條線時間

Camelot

- Z# \5 j& z% j+ b5 G# H0 ?7 N
5 ~2 M3 @& i: D前排出售瓜子花生等待大佬發言

毛主

怎么用啊

毛主

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

  P# Y1 I  q& H8 c- J) B4 t1 SSub main()

$ n5 m4 J! w+ h. S4 lSet swApp = _
Application.SldWorks# e; K% {% L- k. D) q
* q8 s2 F0 o& ?( \; A
% a4 l1 j/ N0 v$ I% L9 XSet Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch True
Part.ClearSelection2 True
& K& ?3 N# [) W5 r: ?2 xDim skSegment As Object
! Q( h# p. h; L, ISet skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)( t" V. I$ S, V$ ]
2 ^1 z& [* i! U3 b( z  r7 [Part.SetPickMode
Part.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)! {- s# l4 h) q
. s) [9 N+ b) W1 h5 k$ t" GPart.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
Sub main()
Set swApp = _
0 x5 p3 @; z: B- d3 WApplication.SldWorks
0 R( T! ~9 `- V, r7 Z# i) \Set Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch True
Part.ClearSelection2 True
2 u! T( w' D/ O) L$ q+ K0 T, s1 v4 L/ @Dim skSegment As Object
0 a0 C+ ~* o6 t; j% f8 |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#)
* [! \# O3 |4 pPart.SetPickMode
Part.ClearSelection2 True
End Sub

冷月梧桐

不帶圖的宏，不敢玩

未來第一站

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

  l6 U8 J6 Z8 l0 X2 h" {3 a哈哈

aly

冷月梧桐 發表于 2021-4-8 19:21
* Q% V4 y' a6 w% e: e不帶圖的宏，不敢玩

就是兩條中心線而已，鼠標拖的累

遠祥

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

寶藏男孩田伯光

怎么加載進去