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

aly

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
  r" m9 Y* M) t, i6 l; p+ K* g* [
Sub main()

Set swApp = _
Application.SldWorks
+ U& L5 H' A: t% H3 C
  P% J! P( `2 H# }5 H  u: r* LSet Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch True
Part.ClearSelection2 True
Dim skSegment As Object
# j0 J- O5 }1 L- J  Y( kSet skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
% p2 O1 g5 N2 T& DPart.SetPickMode
Part.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
# Z0 ~9 }0 |) c4 [) l6 |Part.SetPickMode
0 N2 [- t; K& x$ PPart.ClearSelection2 True
End Sub
. }9 k1 j/ G) B4 i( q
; N0 H* J; W0 ]. u9 q3 y9 O$ n

. L# v. \- f( f4 {' t+ G6 H
+ n+ U( U, A0 W$ |- K" H# |9 ]& K选择一个基准面，不选择默认是前基准，直接生成两条中心线
/ ^% V7 }  z/ s( q2 w: j把这个宏绑定个快捷键比如 B
点个B节省两条线时间

Camelot

5 L; a9 w6 S( ]$ P+ V" v0 _  I前排出售瓜子花生等待大佬发言

毛主

怎么用啊

毛主

1 J7 v) X; d8 B) H- J0 {Dim Part As Object
Dim boolstatus As Boolean5 F2 x, v$ M4 T! g# ?% A/ ~# H
Dim longstatus As Long, longwarnings As Long
0 `6 W' D, s; J7 T
; R4 w1 ]. O2 K6 Z8 d) V6 \  DSub main()

Set swApp = _
% h* @3 ]" y7 _Application.SldWorks# e; K% {% L- k. D) q

% J5 R6 R; d6 L" }5 G* HSet Part = swApp.ActiveDoc
- C/ l: n) z$ M6 s" VPart.SketchManager.InsertSketch True
/ G/ D6 ]0 [" ]Part.ClearSelection2 True
% P4 P. x3 D+ \8 sDim skSegment As Object
Set skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)( t" V. I$ S, V$ ]
5 F( t- g* o. [8 k$ g, uPart.SetPickMode
Part.ClearSelection2 True
( X$ x. j* j3 T& Y2 N2 X  tSet skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)! {- s# l4 h) q
: L: a7 v2 V+ ?* gPart.SetPickMode/ R- h+ j2 B/ ]( y5 M9 k
1 }2 z8 r4 h& S) m7 r: D. ZPart.ClearSelection2 True
End Sub

毛主

Dim Part As Object
& @/ Z6 J0 v4 D& [2 lDim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
& n2 T' }2 r; ]/ }4 R' K8 \4 ZSub main()
; ]. w! B( e+ g. O! K/ L6 X0 {Set swApp = _
0 p$ f& F7 g/ lApplication.SldWorks
$ f# ^* e0 x+ \6 r/ z  gSet Part = swApp.ActiveDoc
) \4 t. j' m# D' h! H8 h7 {# r" G. \Part.SketchManager.InsertSketch True
8 a, M2 O7 ^: WPart.ClearSelection2 True
Dim skSegment As Object
2 Y/ J& q# Z: Z) V# w/ ^Set skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
& G+ o1 b2 @4 APart.SetPickMode
Part.ClearSelection2 True
6 O' z' G2 T9 @/ N) w) KSet skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
- l3 k% x0 R* L+ P& K6 ~* bPart.SetPickMode
. F: f; c2 v7 m) nPart.ClearSelection2 True
End Sub

冷月梧桐

不带图的宏，不敢玩

未来第一站

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

哈哈

aly

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

! n+ [& G& d0 T就是两条中心线而已，鼠标拖的累

远祥

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

宝藏男孩田伯光

怎么加载进去
/ R4 T" X/ h4 v