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

aly

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
- O8 @. j/ o- [) s! k/ R
" x/ I6 |- u' N/ T0 S3 YSub main()

Set swApp = _
Application.SldWorks

5 ^( b' x4 p2 t. eSet Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch True
3 ]6 ~7 h0 v. T) k; b) {0 U* ~Part.ClearSelection2 True
, H5 }# ^  \* F# }Dim skSegment As Object
5 K. }" ^* X9 m6 [9 `5 c( o( c6 \Set skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
Part.SetPickMode
  D! }. r( Z' _; ~6 M# ePart.ClearSelection2 True
# \  l) w5 G0 J; @# h& ?Set skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
6 ?. ^( j) c( bPart.SetPickMode
# [) j8 O- R1 C# n: ~: _Part.ClearSelection2 True
End Sub

% B% ?+ s# Y6 D1 E1 V* _; d7 @
2 {5 S2 B5 ]  @4 ^' N" @& R+ F

, a/ f6 `$ {' D9 D) {- }0 d选择一个基准面，不选择默认是前基准，直接生成两条中心线
把这个宏绑定个快捷键比如 B
点个B节省两条线时间

Camelot

) j# m% g* N/ N) P
7 T+ v+ Y, [5 f) b前排出售瓜子花生等待大佬发言

毛主

怎么用啊

毛主

! P; i1 K# H% f5 I  R7 KDim Part As Object
1 t% X8 |9 c2 r$ Y) VDim boolstatus As Boolean5 F2 x, v$ M4 T! g# ?% A/ ~# H
9 l" k. t2 O2 ]. r& C8 v3 v: uDim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = _
5 M9 i+ t& B, i; u# F4 j) E- ~( y) {Application.SldWorks# e; K% {% L- k. D) q

Set Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch True
6 \) V: _; G8 gPart.ClearSelection2 True
/ ?& K+ C' _; [7 o! V5 VDim skSegment As Object
Set skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)( t" V. I$ S, V$ ]
Part.SetPickMode
/ h7 A% `+ Z& I% X0 z$ ?9 APart.ClearSelection2 True
Set 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
8 Z% }# a! t, C3 I! A! k  m0 b6 ?Part.ClearSelection2 True
End Sub
1 z' h# g; h4 M9 b+ t4 x

毛主

Dim Part As Object
' Y6 [/ l6 W: Z% B& c' _Dim boolstatus As Boolean
- K# m' ~$ L) p% hDim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = _
# S1 J; ~* N% L- TApplication.SldWorks
; L1 l# y/ L# S% r! a( QSet Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch True
Part.ClearSelection2 True
Dim skSegment As Object
8 U4 }. N  u1 k7 `- ISet skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
Part.SetPickMode
  H( n7 A7 g, B4 e% I+ u" TPart.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
Part.SetPickMode
  l9 Y6 b+ d5 J2 g% f' p, g/ z$ {Part.ClearSelection2 True
End Sub

冷月梧桐

不带图的宏，不敢玩

未来第一站

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

8 B9 r5 ~' R- Z/ J7 X' d" u哈哈

aly

冷月梧桐 发表于 2021-4-8 19:21
3 X1 u- T5 H: Z4 j不带图的宏，不敢玩

9 q! ~  A* R" @1 @  z& y  U3 \+ z就是两条中心线而已，鼠标拖的累
, [1 v# B; d. [* ]& q% x- V) q

远祥

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

宝藏男孩田伯光

怎么加载进去
: g* z, l, |' h) M0 @$ Y. ^$ V8 |