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

aly

Dim Part As Object
$ |5 A% s3 `; G# N* |; s. BDim boolstatus As Boolean
" S5 E6 j/ i: ODim longstatus As Long, longwarnings As Long

. `$ p, O/ H3 a5 o! p% ]' LSub main()

) v) G8 r! E; H' w" l; SSet swApp = _
Application.SldWorks
* |+ z; K( T% P" J  y! s
4 ~2 k; W! `- A+ X: s9 \2 z/ n; fSet Part = swApp.ActiveDoc
% V$ ~3 v- z- o+ Y! z( N4 pPart.SketchManager.InsertSketch True
Part.ClearSelection2 True
) D* e, t) n4 q* E4 IDim skSegment As Object
7 y: [, X3 W' U  J6 D" xSet skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
; R" Z6 _4 N, ?/ g( o- vPart.SetPickMode
$ u8 S; \$ }7 ~! i) n2 }Part.ClearSelection2 True
% ~$ }$ f, j( O5 n: o: k  a) `Set skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
! p5 F5 T/ O! c- UPart.SetPickMode
2 p1 I. \( k, D! H" \/ }Part.ClearSelection2 True
End Sub

4 F1 W& g/ R! s
9 Q; @' h/ ^1 b5 \
" A9 \; w. @0 K* H5 p/ Y' c. s! j
/ Y2 R' W2 I" l0 \选择一个基准面，不选择默认是前基准，直接生成两条中心线
" F. R1 L7 ?* _4 A) G把这个宏绑定个快捷键比如 B
" S- X# m7 Y* a5 Y/ F点个B节省两条线时间

Camelot

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

毛主

怎么用啊

毛主

( R5 T8 ?" f: v# cDim Part As Object
Dim boolstatus As Boolean5 F2 x, v$ M4 T! g# ?% A/ ~# H
0 A2 H# q0 r# e6 X& n6 lDim longstatus As Long, longwarnings As Long
+ _" ?; A8 p" ~" g, L& n' V, x
Sub main()
* m5 C% L+ w  G( [) J
Set swApp = _
Application.SldWorks# e; K% {% L- k. D) q

7 b6 i$ t" d( X% cSet Part = swApp.ActiveDoc
- N8 m1 u- R; NPart.SketchManager.InsertSketch True
Part.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
" d  Q+ t3 T% IPart.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)! {- s# l4 h) q
, z$ U' s3 [  n) Z: dPart.SetPickMode/ R- h+ j2 B/ ]( y5 M9 k
Part.ClearSelection2 True
End Sub

毛主

Dim Part As Object
4 F/ B6 w7 o7 I6 Y' |Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
2 P; S0 D  A& h  W# E  GSub main()
Set swApp = _
Application.SldWorks
0 n0 @! n4 L0 |Set Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch True
% T7 J4 w8 [  u5 ]Part.ClearSelection2 True
+ G7 ]6 v( S2 ~- ^- |. wDim skSegment As Object
Set skSegment = Part.SketchManager.CreateCenterLine(-0.05, 0#, 0#, 0.05, 0#, 0#)
Part.SetPickMode
, O, y4 U. m7 S/ B. k5 L4 JPart.ClearSelection2 True
& n9 b8 q( ?; `( ESet skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
Part.SetPickMode
Part.ClearSelection2 True
: o8 M  v/ M( FEnd Sub

冷月梧桐

不带图的宏，不敢玩

未来第一站

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

哈哈

aly

冷月梧桐 发表于 2021-4-8 19:21
5 G- e& R  [: r% s3 h: V7 k不带图的宏，不敢玩

就是两条中心线而已，鼠标拖的累
; ?4 ]% w) ~4 ^1 Q0 v+ Z

远祥

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

宝藏男孩田伯光

怎么加载进去