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

aly

Dim Part As Object
Dim boolstatus As Boolean
2 B5 D5 Y. f* J' @2 aDim longstatus As Long, longwarnings As Long
& P" y6 n) }* }1 l. Q' ^
' o+ h, q; |1 g3 a0 x& A! q$ ^Sub main()

/ p# W" h2 L& cSet swApp = _
Application.SldWorks
6 i+ z8 d' `! B# V3 f
6 X% v' |& u* I" m7 Y! ESet Part = swApp.ActiveDoc
2 C) T$ z3 V* o5 X; s; h8 ?1 ]Part.SketchManager.InsertSketch True
, D2 U; @* ]( t; gPart.ClearSelection2 True
Dim skSegment As Object
& u- X! C5 W% g) y0 U" R9 C% dSet skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
Part.SetPickMode
2 N# E4 v1 t6 o+ fPart.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
! h- C3 D0 Y8 q/ RPart.SetPickMode
) c; k: W; K( K. v( x, {1 u: Z6 h: yPart.ClearSelection2 True
0 d  L& x1 f2 h: VEnd Sub

/ J3 f3 d" l# y) K5 p  A, k

* ?3 f: u, M0 J3 Z5 G
选择一个基准面，不选择默认是前基准，直接生成两条中心线
把这个宏绑定个快捷键比如 B
1 }' w( o% U* w1 o# |5 i点个B节省两条线时间

Camelot

8 H  U" k% A! `- s0 P% ?; `
前排出售瓜子花生等待大佬发言

毛主

怎么用啊

毛主

Dim Part As Object
% s2 F" X# g$ r# {$ L5 Q' K8 XDim boolstatus As Boolean5 F2 x, v$ M4 T! g# ?% A/ ~# H
Dim longstatus As Long, longwarnings As Long
4 n6 s9 w0 B, T" f2 I
( M+ R  {0 J0 d" CSub main()
9 P- ~& G$ V3 ~- Q( \6 S: h
Set swApp = _
2 |* p5 s' @$ B8 |( E) j, A- dApplication.SldWorks# e; K% {% L- k. D) q
6 p  D  t* U* e
) w3 k( M* ^2 T, \5 fSet Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch True
; R8 q1 T9 S  p( SPart.ClearSelection2 True
& q7 R5 O7 p% g: R7 Q! ^# m; A4 jDim skSegment As Object
; q% ~5 B$ `1 D1 \Set skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)( t" V. I$ S, V$ ]
" j' {, \- W: X* r' zPart.SetPickMode
, }  O" G& |( C# L# q7 |. T& B9 DPart.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)! {- s# l4 h) q
/ ~6 ~) e/ P% d& yPart.SetPickMode/ R- h+ j2 B/ ]( y5 M9 k
! h: m' {( A2 k  ]Part.ClearSelection2 True
: H2 E5 O5 s! A8 MEnd Sub
/ C7 a: L( z7 U4 F1 W  F  M5 o, T2 A% |

毛主

Dim Part As Object
8 |$ m3 Z) y. K! \Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
/ H" H5 f* m. d2 S3 Q9 D' E5 nSet swApp = _
- P* M" g4 c: `2 h4 zApplication.SldWorks
/ c: l5 F, E( d: d, RSet Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch True
0 F/ z9 o! K2 q$ j: E$ r6 i$ UPart.ClearSelection2 True
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
Part.SetPickMode
$ z+ b9 O* m# B4 s5 b7 IPart.ClearSelection2 True
0 o6 D9 s  B- n# xSet skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
" o. W. B# X) m3 X2 k$ d. D5 mPart.SetPickMode
, ~9 d5 Y, \8 xPart.ClearSelection2 True
End Sub

冷月梧桐

不带图的宏，不敢玩

未来第一站

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

! c% i& m$ @& Q5 [' S' N' A哈哈

aly

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

就是两条中心线而已，鼠标拖的累
' a& r0 o8 X0 K: b4 a

远祥

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

宝藏男孩田伯光

怎么加载进去
8 D! e* N& d0 M; o; L4 \- B