画中心线属于重复工作，录制了个宏

aly

Dim Part As Object
* M- S/ O8 F8 b+ P. Y6 ~: QDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
. Y6 r/ O4 \9 \; m# p( {- F7 J
Sub main()

Set swApp = _
Application.SldWorks

Set Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch True
Part.ClearSelection2 True
+ E# T0 @# ]- y! l8 M) y/ EDim skSegment As Object
/ Q1 e* Q3 u" c% _: BSet skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
Part.SetPickMode
' |0 n$ M5 l- w$ ]! OPart.ClearSelection2 True
( a" i' c7 I! ]. I9 I/ w: SSet skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
+ E& o/ q7 J: T$ X7 GPart.SetPickMode
Part.ClearSelection2 True
7 n4 o$ @" }: U7 v* u$ U9 YEnd Sub

) [4 @+ T0 G: H) E' U
8 y  a) p+ q7 H0 Q

选择一个基准面，不选择默认是前基准，直接生成两条中心线
0 t+ Z5 w# ~# z! f; C) g0 z把这个宏绑定个快捷键比如 B
点个B节省两条线时间

Camelot

前排出售瓜子花生等待大佬发言

毛主

怎么用啊

毛主

Dim Part As Object
( z  `7 ?0 r2 f' Q. }( ]8 `Dim boolstatus As Boolean5 F2 x, v$ M4 T! g# ?% A/ ~# H
6 D) j, v( n6 F3 iDim longstatus As Long, longwarnings As Long

; o3 U. k. z% z0 Q5 S' s1 p; kSub main()

Set swApp = _
Application.SldWorks# e; K% {% L- k. D) q
  F& S6 O2 v" n* Q5 a5 T9 d6 b# I+ p) h
3 H" t9 y+ w' vSet Part = swApp.ActiveDoc
4 o6 D3 w) F& _  j/ n( JPart.SketchManager.InsertSketch True
6 W6 J% B/ I) \& O. i7 j" J% cPart.ClearSelection2 True
Dim skSegment As Object
) m( n' r# r' ?( I* a+ zSet skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)( t" V. I$ S, V$ ]
Part.SetPickMode
Part.ClearSelection2 True
) H: W  B. }3 k# _+ U( y* LSet skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)! {- s# l4 h) q
% Q& t. v0 H7 U+ H) UPart.SetPickMode/ R- h+ j2 B/ ]( y5 M9 k
" o7 x8 |# Y% d' ~Part.ClearSelection2 True
( [  ^# X, r& i3 k' uEnd Sub

毛主

Dim Part As Object
. e1 v( Z! C. j4 SDim boolstatus As Boolean
0 |; ~. l! O+ a' z9 n. i/ f0 eDim longstatus As Long, longwarnings As Long
8 c- K  B7 ^& U7 Y6 O- A2 Y3 CSub main()
6 a3 j% N( s; x, Z! L$ x8 dSet swApp = _
) F- J7 U: a% E& q' uApplication.SldWorks
Set Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch True
  [/ N7 ^8 y! H, n: E+ ^$ m7 |Part.ClearSelection2 True
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
- H2 t4 N6 O  m+ W- bPart.SetPickMode
Part.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
- C/ j) V1 D: `+ G9 ]. e8 ?& IPart.SetPickMode
6 G6 c8 k* U$ a# f  ]# F, _Part.ClearSelection2 True
  T4 T( ~$ V0 J4 mEnd Sub

冷月梧桐

不带图的宏，不敢玩

未来第一站

冷月梧桐 发表于 2021-4-8 19:21
不带图的宏，不敢玩

2 J3 I/ `% F' R; Z哈哈

aly

冷月梧桐 发表于 2021-4-8 19:21
不带图的宏，不敢玩

2 |2 @. \0 ]' ~- o0 |+ K就是两条中心线而已，鼠标拖的累

远祥

厉害了咯，这后期去干IT很有资质！

宝藏男孩田伯光

怎么加载进去