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

zhjan518

   经典图书

可以把基准面改成选择面吗，代码怎么改

13650987636

大神啊，工程图中修改注释文字需要双击鼠标，能搞个快捷键操作吗？期待。。。。

yunzhonghun

   经典图书

怎么画无限长度的中心线

richiwei

顶一个！谢谢分享了

richiwei

   经典案例图书

楼主太有才了，膜拜中……

richiwei

顶一个！谢谢分享了

yaloman

   经典案例图书

怎么测试都是画在前视图,不是选择的面,是不是我哪里抄错了?
重新测试了一下,草图编辑状态下和只选择基准面下,出来的是两种结果,
Part.SketchManager.InsertSketch True  这句造成的,要是能判断下就好了.

q913957098

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