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

aly

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
7 `8 S6 `6 Q1 t& y
Sub main()

' R# ^1 d8 R+ {3 w9 i4 ~Set swApp = _
; x! H3 Z9 r+ f" G6 fApplication.SldWorks

: ?( s' l1 g% K  K  C5 FSet Part = swApp.ActiveDoc
% @* [2 f8 F$ r8 G' T. JPart.SketchManager.InsertSketch True
Part.ClearSelection2 True
4 M, P9 y3 U6 r, Q7 J9 j3 U% lDim skSegment As Object
8 F: S' \3 l/ \3 X( _3 CSet skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
Part.SetPickMode
, X) v  E( s* b* {5 C' sPart.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
Part.SetPickMode
, b- |+ k! k1 ZPart.ClearSelection2 True
4 G5 f& F/ D& HEnd Sub
7 t3 O: [6 D4 D# Y
4 G. B* ]* m' Y4 d


+ c/ F/ \. l9 o7 o选择一个基准面，不选择默认是前基准，直接生成两条中心线
把这个宏绑定个快捷键比如 B
4 H1 N* _! l& m% I2 ?" C点个B节省两条线时间

Camelot

9 w& j$ g" r3 V" }$ [8 X* r8 `
' b  i& O/ Y6 ?# Z8 z0 s! m/ P前排出售瓜子花生等待大佬发言

毛主

怎么用啊

毛主

, x2 h1 ~, J% F+ `; b' GDim Part As Object
( [# ]* }9 D5 T( y0 m  Y7 @Dim boolstatus As Boolean5 F2 x, v$ M4 T! g# ?% A/ ~# H
Dim longstatus As Long, longwarnings As Long
  Y( x' L( u7 G: ^  l
1 p; K: Y1 ~2 lSub main()

+ z0 g6 j. u5 ~4 {5 B: lSet swApp = _
/ e6 ?: [$ ], {  U1 {2 ^& f( gApplication.SldWorks# e; K% {% L- k. D) q

Set Part = swApp.ActiveDoc
2 l7 [" M4 e# x! nPart.SketchManager.InsertSketch True
Part.ClearSelection2 True
) A% }  C' V& ^  z5 u/ f% q5 p, RDim skSegment As Object
2 L) E4 n( Y6 _9 E* c8 Q, lSet skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)( t" V. I$ S, V$ ]
Part.SetPickMode
Part.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
; w  R/ G3 l1 {8 C0 H0 yPart.ClearSelection2 True
! N! u% X; c  uEnd Sub
! P5 A3 u' q3 \2 K0 G9 ]$ E, f

毛主

Dim Part As Object
Dim boolstatus As Boolean
; z' v, ^8 n7 D; v% nDim longstatus As Long, longwarnings As Long
Sub main()
5 _! ]1 }$ {* \Set swApp = _
4 u( [7 d" c( U  BApplication.SldWorks
' {1 n5 A1 E: ]( fSet Part = swApp.ActiveDoc
' H% ?- D6 F( H/ Y  fPart.SketchManager.InsertSketch True
Part.ClearSelection2 True
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
Part.SetPickMode
' u" e2 W7 Z$ }4 ?1 hPart.ClearSelection2 True
4 P' y/ r- n2 T' m; lSet skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
7 |& u- M) ~8 g2 m! u0 Z3 A7 qPart.SetPickMode
* k6 z9 o' c) Q- b% M2 xPart.ClearSelection2 True
End Sub

冷月梧桐

不带图的宏，不敢玩

未来第一站

冷月梧桐 发表于 2021-4-8 19:21
# i" R; {, `( f% @: A, J2 I不带图的宏，不敢玩

哈哈

aly

冷月梧桐 发表于 2021-4-8 19:21
# J5 E2 S' V! g3 s% n5 w不带图的宏，不敢玩

就是两条中心线而已，鼠标拖的累
- }0 Q7 C1 R* l( [8 R0 Z8 f

远祥

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

宝藏男孩田伯光

怎么加载进去