aly 发表于 2021-4-8 10:06:35

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

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

Sub main()

Set swApp = _
Application.SldWorks

Set Part = swApp.ActiveDoc
Part.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
Part.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCenterLine(0#, -0.05, 0#, -0#, 0.05, 0#)
Part.SetPickMode
Part.ClearSelection2 True
End Sub




选择一个基准面，不选择默认是前基准，直接生成两条中心线
把这个宏绑定个快捷键比如 B
点个B节省两条线时间:lol

Camelot 发表于 2021-4-8 13:38:07



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

毛主 发表于 2021-4-8 13:44:17

怎么用啊

毛主 发表于 2021-4-8 13:47:36


Dim Part As Object
Dim boolstatus As Boolean5 F2 x, v$ M4 T! g# ?% A/ ~# H
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = _
Application.SldWorks# e; K% {% L- k. D) q

Set Part = swApp.ActiveDoc
Part.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
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
Part.ClearSelection2 True
End Sub

毛主 发表于 2021-4-8 13:53:57

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = _
Application.SldWorks
Set Part = swApp.ActiveDoc
Part.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
Part.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:37

不带图的宏，不敢玩

未来第一站 发表于 2021-4-8 22:23:40

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

哈哈

aly 发表于 2021-4-9 09:25:27

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

就是两条中心线而已，鼠标拖的累

远祥 发表于 2021-4-10 18:28:47

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

宝藏男孩田伯光 发表于 2021-6-11 20:44:34

怎么加载进去
页: [1]
查看完整版本: 画中心线属于重复工作，录制了个宏