中易网

我用VB做SolidWorks的二次开发,下面是画两段轴的宏程序,请问其中有些语句中的数字代表什么意思?急用!

答案:1  悬赏:70  
解决时间 2021-03-09 08:34
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,为什么上面都是很多小数的数字啊???



最佳答案
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采用的 毫米和度。
所以有很多小数点。
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
怎样选股?求推荐
求歌词:永远的姐姐 琪淇姐妹
李明川的介绍
男朋友工作每天忙到晚上11点多回来,很累,第
安卓机为什么没有苹果机流畅
中国五矿大厦我想知道这个在什么地方
以Don't Waste Your Life 为题写一篇英
公积金去哪里退
佰仕达卫浴怎么去啊,有知道地址的么
烤箱怎么做琵琶腿
电动车4个电瓶1组的要多少钱
邻居空调外机噪音扰民咋办
Do you like drawing pictwes?翻译中文
娜塔莎咖啡馆在哪里啊,我有事要去这个地方
时空猎人电脑版怎么用键盘操作
推荐资讯
在天猫超市买东西,怎么有时发万象物流,有时
魔兽争霸官方对战平台 怎么改游戏里面的名字
上厕所时很难解出大便,解出来时都是一粒一粒
我听别人说这世界上有一种鸟是没有脚的,她只
三水人民广播电台有一个叫<<鸽子情缘>>的
鞍钢集团鞍山矿业公司电业总厂电控厂地址在哪
怎样才能让穿越火线手游,送我屠龙和暗杀神
初中老师一年连奖金连工资在内,大概能有多少
虽然知道嫉妒是正常心理,但是心里就是特别鄙
请问什么是月经来潮后,是指刚来月经,还是月
319.46/5求竖式,写清晰大一点
小天使批发总汇地址在什么地方,想过去办事
手机登qq时,显示手机磁盘不足,清理后重新登
刺客的套装怎么选啊?