|
经典图书 我是一名SolidWorks的初级学者,录制了一个制作圆柱体的宏代码如下
' ******************************************************************************
' COCUME~1ADMINI~1LOCALS~1Tempswx2152Macro1.swb - macro recorded on 04/20/09 by Administrator
' ******************************************************************************
Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
Part.SketchManager.InsertSketch True
boolstatus = Part.Extension.SelectByID2("前视基准面", "LANE", -0.03441554548992, 0.020906272838, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
Dim SkCircle As Object
Set SkCircle = Part.SketchManager.CreateCircle(0, 0, 0, 0.007231729598051, -0.005390925700365, 0)
Part.ClearSelection2 True
Part.SketchManager.InsertSketch True
Part.ShowNamedView2 "*上下二等角轴测", 8
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("草图1", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
Part.FeatureManager.FeatureExtrusion2 True, False, False, 0, 0, 0.01, 0.01, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1, 0, 0, False
Part.SelectionManager.EnableContourSelection = 0
End Sub
完成后的效果图
将这个图像删除以后继续在这个零件图上运行这个宏得到的效果图是
只有新建一个零件图在运行宏才能得到预期的圆柱图
但是将生成的宏中的最后一个Part.ClearSelection2 True都删除以后,继续在同一个零件图上运行就可以得到圆柱图。
请问各位高手这是什么原因。 |
|