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

aly

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

( _7 c, B, l+ c1 H0 b: D3 Q. a# BSub main()
, ]0 u( j% A, g0 H1 M" n
' b- ~, _' D& bSet swApp = _
$ A2 w) S+ `6 U* T* @Application.SldWorks
; u  p# @+ g- Z% \7 D& d" e9 j* E
Set Part = swApp.ActiveDoc
/ T- r6 u. N0 ?; r, C2 H7 T5 ^Part.SketchManager.InsertSketch True
! i3 G) F5 u1 ^. o9 LPart.ClearSelection2 True
9 z3 b; y! B0 P; HDim skSegment As Object
- g) P, x- g* u3 R: |: m( G$ BSet skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
" m3 D8 A- i' n; WPart.SetPickMode
. U- i* ~( A$ J  l3 h, T0 hPart.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
3 v4 t5 T0 O9 K: {( G  ^Part.SetPickMode
Part.ClearSelection2 True
End Sub


( A% l1 m- G2 ~) R9 E
' R9 A" L9 q" e7 S  r) `$ c2 K
& _, @+ N& h* v! y2 O选择一个基准面，不选择默认是前基准，直接生成两条中心线
把这个宏绑定个快捷键比如 B
点个B节省两条线时间

Camelot

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

毛主

怎么用啊

毛主

3 _# {2 H5 B& w/ T( _/ D4 F. hDim Part As Object
: z( @; q) w9 |& I+ I5 D3 l9 R" tDim boolstatus As Boolean5 F2 x, v$ M4 T! g# ?% A/ ~# H
9 X0 f7 `% t8 h  WDim longstatus As Long, longwarnings As Long

4 T9 x  ~$ V  sSub main()
5 i! S0 u( d7 V' Q* }
Set swApp = _
Application.SldWorks# e; K% {% L- k. D) q

Set Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch True
. \" e5 z/ d9 m' c& GPart.ClearSelection2 True
& d% ]4 n+ @. j5 MDim skSegment As Object
* t* c) @$ N) C8 t" |9 N  ISet skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)( t" V. I$ S, V$ ]
9 K6 j3 }) W" EPart.SetPickMode
8 U- d- c/ x1 g$ I1 EPart.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
# @- \4 p/ t$ [/ z0 kPart.ClearSelection2 True
1 a8 s' B. }+ rEnd Sub

毛主

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = _
# H- H' d" J3 a! [Application.SldWorks
1 F" g/ u1 a/ tSet Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch True
Part.ClearSelection2 True
0 U4 u" y0 R2 X2 V7 f) X2 ZDim skSegment As Object
) v/ T% t0 L2 _! D! [# YSet skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
Part.SetPickMode
+ z7 j* n9 A( R! W: h) BPart.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
Part.SetPickMode
Part.ClearSelection2 True
End Sub

冷月梧桐

不带图的宏，不敢玩

未来第一站

冷月梧桐 发表于 2021-4-8 19:21
: r" ?- u3 a. X- j不带图的宏，不敢玩

) o% o( ^& X" j6 m% o' }哈哈

aly

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

, I, V$ `1 n0 q/ U' G就是两条中心线而已，鼠标拖的累
# n7 B' l1 a* H5 i  a

远祥

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

宝藏男孩田伯光

怎么加载进去