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

aly

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

0 [' W' j# D6 R: @Sub main()
) p0 S+ M' W; `  V3 V
Set swApp = _
Application.SldWorks

Set Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch True
Part.ClearSelection2 True
Dim skSegment As Object
; A; X, j9 A& D/ j% l& ?5 f  dSet 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#)
- I5 `0 i$ B4 i. b& S6 KPart.SetPickMode
# d3 F7 X7 b6 v4 L/ |) Z5 @Part.ClearSelection2 True
: m3 H; |  N: g& FEnd Sub



! X/ i0 ]' Y9 ?
. S4 a0 [( R3 |# Y+ U& a选择一个基准面，不选择默认是前基准，直接生成两条中心线
把这个宏绑定个快捷键比如 B
点个B节省两条线时间

Camelot

0 p! A& r; D# }- C0 d前排出售瓜子花生等待大佬发言

毛主

怎么用啊

毛主

1 H3 R9 e0 k3 Y8 r* QDim Part As Object
Dim boolstatus As Boolean5 F2 x, v$ M4 T! g# ?% A/ ~# H
+ K% ~9 j+ r9 m# X2 q8 ZDim longstatus As Long, longwarnings As Long

Sub main()
$ |+ B$ b* l2 x( T
Set swApp = _
Application.SldWorks# e; K% {% L- k. D) q

Set Part = swApp.ActiveDoc
1 d* `( _" ]& [8 N$ e/ \% YPart.SketchManager.InsertSketch True
Part.ClearSelection2 True
Dim skSegment As Object
% H9 i& c5 ]$ g9 Q6 tSet skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)( t" V. I$ S, V$ ]
Part.SetPickMode
& S2 p; J$ v% y( T9 N  P% tPart.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)! {- s# l4 h) q
* `  h" D2 h) h6 m' i, KPart.SetPickMode/ R- h+ j2 B/ ]( y5 M9 k
Part.ClearSelection2 True
$ ]- q8 U1 d9 j. ]End Sub
: W7 e1 f/ S& t/ P8 x# d7 b7 s7 d

毛主

Dim Part As Object
( X6 u7 ]+ S& [0 x; GDim boolstatus As Boolean
" T/ M4 R  B' B( _" n5 h. H% t3 |Dim longstatus As Long, longwarnings As Long
4 Q( o1 C$ ?! E  b) l% R# B# `Sub main()
2 g: B2 O0 D* x5 S  ASet swApp = _
Application.SldWorks
7 A/ P4 h& W; D3 Z4 L2 m2 vSet Part = swApp.ActiveDoc
/ K. P" T/ I6 v! l: P( ]Part.SketchManager.InsertSketch True
Part.ClearSelection2 True
6 ~; b2 W) t  x% ^& H& RDim skSegment As Object
Set skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
Part.SetPickMode
Part.ClearSelection2 True
+ [/ M. ^" S- e; ]) ^1 ?Set skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
Part.SetPickMode
9 F9 `2 ]" y) d; FPart.ClearSelection2 True
8 z" t8 I7 ?$ P7 K# ^6 VEnd Sub

冷月梧桐

不带图的宏，不敢玩

未来第一站

冷月梧桐 发表于 2021-4-8 19:21
+ y* B6 h# Z$ _0 R' O不带图的宏，不敢玩

哈哈
0 y3 k' Z6 P! V/ s: {1 ?/ }- V" T4 i

aly

冷月梧桐 发表于 2021-4-8 19:21
( X, P# ?3 y/ J1 R- S不带图的宏，不敢玩

就是两条中心线而已，鼠标拖的累

远祥

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

宝藏男孩田伯光

怎么加载进去
# Z5 T& S9 {) k. n$ G% U8 Y