|
马上注册登录,享用更多网站功能!
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
为什么画圆的直径不对?圆心位置也不对?
是我的程序有问题吗?
请明人指点。多谢!
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
swApp.SetUserPreferenceToggle swFileExplorerShowSamples, False
Part.SetUserPreferenceIntegerValue swImageQualityWireframe, swWireframeImageQualityCustom
boolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", -0.06650507042254, 0.05942169014085, 0, False, 0, Nothing, 0)
Part.InsertSketch
Part.ClearSelection2 True
Part.CreateCircle 0, 0, 0, 0, 50 / 2000, 0
Part.CreateCircle 0, 1.3 / 1000, 0, 60 / 2000, 0, 0
End Sub |
|