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

aly

Dim Part As Object
9 M- J! ?1 y" w; TDim boolstatus As Boolean
7 i8 p' ]) F1 W' L  w+ g  }7 i+ A$ B2 [Dim longstatus As Long, longwarnings As Long

7 E/ G# m; h0 d0 @/ i  `1 tSub main()

Set swApp = _
Application.SldWorks

Set Part = swApp.ActiveDoc
5 X3 |, _9 V; S. ]8 z* g! e; hPart.SketchManager.InsertSketch True
Part.ClearSelection2 True
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
Part.SetPickMode
Part.ClearSelection2 True
9 ?; {( U5 J3 K8 P  N  R2 zSet skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
Part.SetPickMode
Part.ClearSelection2 True
- y. t. x8 m; u% [End Sub
: V+ s& q8 I+ D

! ~  j- j6 [5 A: v" r# M4 w
. G, G6 N1 b! f  l" C2 K
选择一个基准面，不选择默认是前基准，直接生成两条中心线
把这个宏绑定个快捷键比如 B
点个B节省两条线时间

Camelot

5 Y. U$ V9 B+ J4 o5 c
. J5 d; I# Y# I$ B! q  c) z8 ~前排出售瓜子花生等待大佬发言

毛主

怎么用啊

毛主

Dim Part As Object
Dim boolstatus As Boolean5 F2 x, v$ M4 T! g# ?% A/ ~# H
# ]6 Y9 p+ i5 _( N/ t6 O" UDim longstatus As Long, longwarnings As Long
3 O. F. _4 y7 o6 y7 Q
Sub main()
+ k+ @) C% X) ?4 D( v( Q
; P9 e; T) U9 B& s; T! L) USet swApp = _
Application.SldWorks# e; K% {% L- k. D) q

) h+ `1 g8 j' }9 c3 wSet Part = swApp.ActiveDoc
9 \) T8 I1 F% r! [4 M% `! \Part.SketchManager.InsertSketch True
Part.ClearSelection2 True
! E. b5 Z# P" p' PDim skSegment As Object
Set skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)( t" V. I$ S, V$ ]
Part.SetPickMode
0 \' q4 h. H9 o2 x( gPart.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)! {- s# l4 h) q
; h% ^2 B' H' c0 c1 n0 \Part.SetPickMode/ R- h+ j2 B/ ]( y5 M9 k
. c7 x1 g' a3 w/ E4 NPart.ClearSelection2 True
7 {4 D5 q6 J  Z( ?End Sub
, S# A! m3 z) x6 L( o) J

毛主

Dim Part As Object
% S: o5 x0 @; ?4 IDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
3 H' a. }& z* a6 kSet swApp = _
. B" {6 N- q" @: ?0 p9 ]Application.SldWorks
Set Part = swApp.ActiveDoc
: S: Z% d! t+ zPart.SketchManager.InsertSketch True
Part.ClearSelection2 True
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
: g+ ~) d0 f! k, LPart.SetPickMode
Part.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
Part.SetPickMode
( W# T5 E  \5 v( p" M" ]. RPart.ClearSelection2 True
; [& q$ r& u4 o) H* j$ rEnd Sub

冷月梧桐

不带图的宏，不敢玩

未来第一站

冷月梧桐 发表于 2021-4-8 19:21
% C/ \1 G+ k" e/ J  s1 Q/ c不带图的宏，不敢玩

哈哈

aly

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

5 g! n' A4 F5 I! y6 E: y就是两条中心线而已，鼠标拖的累

远祥

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

宝藏男孩田伯光

怎么加载进去
& j0 q; F: \1 P! i