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

aly

Dim Part As Object
2 U( s/ [# j+ X' x. Q, Y* z5 wDim boolstatus As Boolean
: V) t! q  n! X7 Q( J  p3 XDim longstatus As Long, longwarnings As Long

Sub main()

7 l+ C/ M! V: [7 `0 J3 {Set swApp = _
4 Z+ w% O8 G2 ZApplication.SldWorks

Set Part = swApp.ActiveDoc
$ ~. z: x7 Z# z7 T  O; W8 @+ {Part.SketchManager.InsertSketch True
Part.ClearSelection2 True
Dim skSegment As Object
5 a9 u* w: ?) R0 }Set skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
Part.SetPickMode
- N7 l" J1 U$ k8 `$ Z. TPart.ClearSelection2 True
  c4 M, Y/ \1 E1 G1 gSet skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
' [/ s$ `( e" t9 _, APart.SetPickMode
. K; U) A" q; D" _/ wPart.ClearSelection2 True
* [3 P9 i* O; e9 H6 rEnd Sub
  f, E  {4 N5 L+ l+ j  L, x

$ f% s1 x% E, s2 |' n. E

! A, m- [" y, @, S2 [3 Q/ Z4 M$ w选择一个基准面，不选择默认是前基准，直接生成两条中心线
把这个宏绑定个快捷键比如 B
0 n/ `$ _. K( k" }5 ~+ a2 x点个B节省两条线时间

Camelot

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

毛主

怎么用啊

毛主

% N# r8 z3 |% F9 u3 V- }Dim Part As Object
4 m# M2 C4 k& x4 aDim boolstatus As Boolean5 F2 x, v$ M4 T! g# ?% A/ ~# H
* a9 c, t; j" M& y1 r/ {Dim longstatus As Long, longwarnings As Long
6 c9 i1 r5 p* V( @; E
Sub main()
" I! ?: M# e6 B# ~$ S% v7 ^% e2 y- z
Set swApp = _
Application.SldWorks# e; K% {% L- k. D) q

& w# u* l; l! J1 RSet Part = swApp.ActiveDoc
. H- j9 ?, m* U3 {$ ~Part.SketchManager.InsertSketch True
4 g2 c. D3 W3 c, \2 f) F$ \4 KPart.ClearSelection2 True
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)( t" V. I$ S, V$ ]
Part.SetPickMode
Part.ClearSelection2 True
) ~& h, t8 i% _! ASet 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
( y# Y. C9 K& `7 a- m9 I! APart.ClearSelection2 True
End Sub
- S3 e/ h2 e# m9 H; V

毛主

Dim Part As Object
# r+ x% g# Y+ r# g2 GDim boolstatus As Boolean
* N/ e9 T, F& M) L4 M, i! ]8 h7 y5 lDim longstatus As Long, longwarnings As Long
Sub main()
# _+ Z6 _# j! v  M( DSet swApp = _
Application.SldWorks
Set Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch True
Part.ClearSelection2 True
Dim skSegment As Object
3 j6 r, C: p. E8 b, xSet skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
# Z  P+ _/ V  t/ H) c3 vPart.SetPickMode
Part.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
Part.SetPickMode
' R( }& k* d2 G; O: c6 e" X. APart.ClearSelection2 True
4 t- Y7 K: N( r0 B1 B5 W) F9 K  CEnd Sub

冷月梧桐

不带图的宏，不敢玩

未来第一站

冷月梧桐 发表于 2021-4-8 19:21
$ l2 Z6 t+ d/ [5 L: K9 W不带图的宏，不敢玩

4 F' u9 T* P$ e- v0 r; H哈哈
- ~, g9 z( j' J9 V: c: }1 ]

aly

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

+ v4 n: |* n) |! D就是两条中心线而已，鼠标拖的累

远祥

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