|
经典图书
图示结果关键程序如下。附件(由SldPrt+Swp文件组成)
圆周阵列示例.rar
(15.48 KB, 下载次数: 12)
Dim swApp As Object
Dim Part As SldWorks.ModelDoc2
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
With Part
Set SelMgr = .SelectionManager
boolstatus = .Extension.SelectByID2("上视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
.InsertSketch2 True
.CreateCircleByRadius2 0.2, 0, 0, 0.02
.CreateCircularSketchStepAndRepeat 0.2, 3.14159265359, 8, 0.7853981633975, 1, ""
.FeatureManager.FeatureCut False, False, False, 0, 0, 0.01, 0.01, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 0, 1, 1
.SelectionManager.EnableContourSelection = 0
.InsertSketch2 True
End With
End Sub
---------------------------
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
With Part
Set SelMgr = .SelectionManager
boolstatus = .Extension.SelectByID2("上视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
.InsertSketch2 True
.CreateCircleByRadius2 0.24, 0, 0, 0.01
.CreateCircularSketchStepAndRepeat 0.24, 3.14159265359, 8, 0.7853981633975, 1, ""
.FeatureManager.FeatureCut False, False, False, 0, 0, 0.1, 0.1, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 0, 1, 1
.ClearSelection2 True
.InsertSketch2 True
.SelectionManager.EnableContourSelection = 0
.InsertSketch2 True
End With
End Sub |
|