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

aly

Dim Part As Object
" Q2 h% f" h" z: F0 RDim boolstatus As Boolean
4 m. b! ?: M( ^Dim longstatus As Long, longwarnings As Long
+ u/ L# m' e7 J. Q
Sub main()
; @$ F: i) J2 V
4 p! @- q+ M% [+ J1 i* uSet swApp = _
Application.SldWorks
) y* R4 _3 |9 j5 h3 \, ?5 E
% A: q/ z% q. U4 n$ ySet Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch True
. [. e3 y, i5 {3 k: }Part.ClearSelection2 True
$ C8 H* g9 F' {6 c: Z. xDim skSegment As Object
) U- ^. p# D: T$ ISet skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
Part.SetPickMode
Part.ClearSelection2 True
* F/ I0 c, ^: J; h2 l2 F9 GSet skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
0 A  w4 D+ o' h; f$ h- e! OPart.SetPickMode
5 F8 a4 R, y% S% EPart.ClearSelection2 True
End Sub
# p" L( ]4 q  {3 b* Z6 c* A

$ X/ G8 U( U) L; H4 Q. N( v+ d
2 o0 D; ]! X/ ^  @0 [4 y9 k
选择一个基准面，不选择默认是前基准，直接生成两条中心线
把这个宏绑定个快捷键比如 B
点个B节省两条线时间

Camelot

& {" Q9 C& B8 \) `$ k
前排出售瓜子花生等待大佬发言

毛主

怎么用啊

毛主

# o( T, }5 q( {& wDim Part As Object
. p! C4 p: O# q: j" k9 NDim boolstatus As Boolean5 F2 x, v$ M4 T! g# ?% A/ ~# H
$ J5 F9 K0 E( r/ S! w6 jDim longstatus As Long, longwarnings As Long
% f2 J5 [2 z9 U
0 c/ t( p) [, v# D7 K& Y2 s$ I" USub main()

Set swApp = _
5 P0 f& ~/ o6 W+ P2 y1 J; b8 fApplication.SldWorks# e; K% {% L- k. D) q
9 t8 i3 v" h: R+ Y9 U/ \7 i
Set Part = swApp.ActiveDoc
" ?, S$ X9 \1 x; A# R$ k7 KPart.SketchManager.InsertSketch True
Part.ClearSelection2 True
, ?/ P9 r, ~+ l+ Q$ x+ HDim skSegment As Object
/ G/ A/ _# `7 Y5 {Set skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)( t" V. I$ S, V$ ]
$ P% \$ U0 W! o& N. J3 DPart.SetPickMode
Part.ClearSelection2 True
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
Part.ClearSelection2 True
6 A. ^) V+ h. s3 P' t  aEnd Sub

毛主

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
- B8 v$ D& @! J4 XSub main()
$ h6 f6 Q" @9 |2 B: CSet swApp = _
6 G% ?* y+ R$ x% {2 @Application.SldWorks
Set Part = swApp.ActiveDoc
- Q& U$ m& V, lPart.SketchManager.InsertSketch True
2 Q: r7 l. L1 @/ B5 n1 fPart.ClearSelection2 True
Dim skSegment As Object
& M5 i# v$ O% V4 v) {0 fSet skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
& Y: k( S3 t& {9 \, ?Part.SetPickMode
Part.ClearSelection2 True
. |! M* F# y7 {( YSet skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
Part.SetPickMode
Part.ClearSelection2 True
End Sub

冷月梧桐

不带图的宏，不敢玩

未来第一站

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

8 c5 f8 @# r1 @5 S哈哈
3 W5 V9 Z! _; f4 Y" x

aly

冷月梧桐 发表于 2021-4-8 19:21
9 W; i  R; j0 W不带图的宏，不敢玩

) n, D9 E7 i9 F& v就是两条中心线而已，鼠标拖的累
* W! }' f- J$ O1 C' I$ E5 F6 _6 j8 ]5 R. k3 t

远祥

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

宝藏男孩田伯光

怎么加载进去