经典图书 大家好,我最近画了一个模型如图一,并且用宏录制了我做模型的过程。但是当我想用宏命令还原我的模型时,生成的图形是图二中的样子,
我检查了下宏命令,
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
boolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
Part.CreateCircle 0, 0, 0, -0.03874093457944, 0.03046813084112, 0
Part.ClearSelection2 True
Part.InsertSketch2 True
boolstatus = Part.Extension.SelectByID2("圆弧1@草图1", "EXTSKETCHSEGMENT", -0.02706896550801, 0.04203892370561, 0, False, 0, Nothing, 0)
Part.ShowNamedView2 "*上下二等角轴测", 8
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("圆弧1@草图1", "EXTSKETCHSEGMENT", -0.02706896550801, 0.04203892370561, 0, False, 0, Nothing, 0)
Part.FeatureManager.FeatureExtrusion2 False, False, False, 0, 0, 0.1, 0.1, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1, 0, 0, False
Part.SelectionManager.EnableContourSelection = 0
boolstatus = Part.Extension.SelectByID2("上视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
Part.CreateCircle 0, 0, 0, -0.03371821723323, 0.02239489844442, 0
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
Part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, 0.1, 0.1, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1
Part.SelectionManager.EnableContourSelection = 0
End Sub
从中我看见在录制的过程中SOLIDWORK已经录好了我绘制图形的基准面:前视基准面,上视基准面
但是到了执行阶段,仿佛又不认我做的宏了
我想请教大家的是,是不是SOLIDWORK的宏录制功能只能用来录制简单实体
如果可以录制复杂实体需要怎么做?请大家指教谢谢
|