Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
Part.ClearSelection2 True
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateCircle(0#, 0#, 0#, 0.024825, 0.033812, 0#)
'这一句中每个数字代表什么意思???
Part.ShowNamedView2 "*上下二等角轴测", 8
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.00916934617448, -0.0189578867027
'这一句中每个数字代表什么意思???
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.0189578867027
'这一句中每个数字代表什么意思???
myModelView.ZoomByFactor 0.9708737864078
'这一句中每个数字代表什么意思???
Set myModelView = Part.ActiveView
Set myModelView = Part.ActiveView
myModelView.TranslateBy -3.102011494253E-04, -9.306034482759E-04
'这一句中每个数字代表什么意思???
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
'这一句中每个数字代表什么意思???
Dim myFeature As Object
Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.1, 0.01, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, True, True, True, 0, 0, False)
'这一句中每个数字代表什么意思???
Part.SelectionManager.EnableContourSelection = False
Part.ClearSelection2 True
Part.ClearSelection2 True
Set skSegment = Part.SketchManager.CreateCircle(0#, 0#, 0#, 0.04484, 0.020918, 0#)
'这一句中每个数字代表什么意思???
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
'这一句中每个数字代表什么意思???
Set myFeature = Part.FeatureManager.FeatureExtrusion(True, False, False, 0, 0, 0.1, 0.1, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, True, True, True)
'这一句中每个数字代表什么意思???
Part.SelectionManager.EnableContourSelection = False
End Sub
我画的大轴的底面直径是100mm,高100mm,小轴的底面直径是50mm,高100mm,为什么上面都是很多小数的数字啊???
我用VB做SolidWorks的二次开发,下面是画两段轴的宏程序,请问其中有些语句中的数字代表什么意思?急用!
答案:1 悬赏:70
解决时间 2021-03-09 08:34
- 提问者网友:追忆成伤
- 2021-03-08 20:16
最佳答案
- 二级知识专家网友:魅世女王
- 2021-03-08 20:41
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateCircle(0#, 0#, 0#, 0.024825, 0.033812, 0#)
这个是在草图平面上创建了一个圆,圆心在原点0#, 0#, 0#,,圆上一点为( 0.024825, 0.033812, 0#)
Part.ShowNamedView2 "*上下二等角轴测", 8
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.00916934617448, -0.0189578867027
'这一句中每个数字代表什么意思???
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.0189578867027
'这一句中每个数字代表什么意思???
myModelView.ZoomByFactor 0.9708737864078
'这一句中每个数字代表什么意思???
Set myModelView = Part.ActiveView
Set myModelView = Part.ActiveView
myModelView.TranslateBy -3.102011494253E-04, -9.306034482759E-04
'这一句中每个数字代表什么意思???
以上这些都是可以注释掉的,是你在创建模型时,进行的旋转等操作
唉,太多了,建议你去API帮助主题上查看吧!还是比较详细的。
宏里面长度和角度的单位为 米和弧度,而solidworks采用的 毫米和度。
所以有很多小数点。
Set skSegment = Part.SketchManager.CreateCircle(0#, 0#, 0#, 0.024825, 0.033812, 0#)
这个是在草图平面上创建了一个圆,圆心在原点0#, 0#, 0#,,圆上一点为( 0.024825, 0.033812, 0#)
Part.ShowNamedView2 "*上下二等角轴测", 8
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter -0.00916934617448, -0.0189578867027
'这一句中每个数字代表什么意思???
Set myModelView = Part.ActiveView
myModelView.RotateAboutCenter 0, -0.0189578867027
'这一句中每个数字代表什么意思???
myModelView.ZoomByFactor 0.9708737864078
'这一句中每个数字代表什么意思???
Set myModelView = Part.ActiveView
Set myModelView = Part.ActiveView
myModelView.TranslateBy -3.102011494253E-04, -9.306034482759E-04
'这一句中每个数字代表什么意思???
以上这些都是可以注释掉的,是你在创建模型时,进行的旋转等操作
唉,太多了,建议你去API帮助主题上查看吧!还是比较详细的。
宏里面长度和角度的单位为 米和弧度,而solidworks采用的 毫米和度。
所以有很多小数点。
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯
• 手机登qq时,显示手机磁盘不足,清理后重新登 |
• 刺客的套装怎么选啊? |