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

aly

Dim Part As Object
# y, ]; m1 W3 ?' x3 i( nDim boolstatus As Boolean
. v: w& s; V: @) c' {Dim longstatus As Long, longwarnings As Long

7 m# l$ w# N4 _7 U6 iSub main()
) @) P& {, l# z" a$ o1 H7 f
$ I* G* A6 T0 ~1 y6 A, b  B. G5 {Set swApp = _
Application.SldWorks
  H0 Y' j3 n8 p; _8 T: r' {8 y, B3 ]
( P) H9 v+ n5 jSet Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch True
8 W$ A8 L6 k$ T4 D! h% S2 {Part.ClearSelection2 True
% S2 j; i* y- A, X& P" _Dim skSegment As Object
Set 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#)
- U+ X9 O! H4 F7 NPart.SetPickMode
Part.ClearSelection2 True
End Sub


' E  N0 f: Z8 j3 y; q6 B

选择一个基准面，不选择默认是前基准，直接生成两条中心线
把这个宏绑定个快捷键比如 B
8 Q8 p" r1 S( |8 t' h' P: D点个B节省两条线时间

Camelot

前排出售瓜子花生等待大佬发言

毛主

怎么用啊

毛主

: C% R& B4 g2 O/ m4 E4 b5 h6 mDim Part As Object
Dim boolstatus As Boolean5 F2 x, v$ M4 T! g# ?% A/ ~# H
3 ~* Z1 M' E+ m4 v0 K' ^. B" `% z# UDim longstatus As Long, longwarnings As Long
1 X& [. M5 C8 p7 }. d
/ k: Q4 N* q( p5 n+ |" x5 [; OSub main()
3 z$ r3 w2 l, z
3 u' S! H* Q2 s# z$ x  F# CSet swApp = _
Application.SldWorks# e; K% {% L- k. D) q

Set Part = swApp.ActiveDoc
: q  R( M8 i+ r2 m/ u. K/ Q- ZPart.SketchManager.InsertSketch True
3 c) n( ~2 Z0 CPart.ClearSelection2 True
Dim skSegment As Object
4 x$ F) r8 m8 H8 \5 ?" a8 M6 XSet skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)( t" V. I$ S, V$ ]
Part.SetPickMode
Part.ClearSelection2 True
5 q% S5 E; w& }( x% nSet 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
+ Z/ ^. t; e8 z3 M4 cEnd Sub
# u" g1 F5 i" O( D6 {, H* w

毛主

Dim Part As Object
Dim boolstatus As Boolean
$ ~6 S/ v* L3 b4 V. R0 tDim longstatus As Long, longwarnings As Long
Sub main()
( s  k: G4 F$ W5 k& WSet swApp = _
: {+ o+ i  D+ L: h3 K+ R, jApplication.SldWorks
Set Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch True
Part.ClearSelection2 True
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
+ P/ l$ K% l8 {4 r5 f6 UPart.SetPickMode
Part.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
Part.SetPickMode
6 I2 [6 Y$ n. B. R8 c/ _Part.ClearSelection2 True
; U9 `. \+ r9 @End Sub

冷月梧桐

不带图的宏，不敢玩

未来第一站

冷月梧桐 发表于 2021-4-8 19:21
/ d' @# O2 k7 _4 M! R不带图的宏，不敢玩

% ~( L0 v5 t* I" s哈哈

aly

冷月梧桐 发表于 2021-4-8 19:21
. C1 ^- H/ t8 Q& c2 Z不带图的宏，不敢玩

+ y+ ^% |2 n  C  D就是两条中心线而已，鼠标拖的累
4 [1 E3 @, q5 t

远祥

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

宝藏男孩田伯光

怎么加载进去
# w9 a! b. L8 W$ H  F6 a