admin 管理员组文章数量: 1184232
2024年3月6日发(作者：linux怎么创建c语言文件)
程序代码及解释
1、option explicit 设置显示变量声明
2、Dim swapp as object 定义各变量
3、Dim part as object
4、Dim sksegment as object
5、Dim vsklines as variant
6、Dim myfeature as object
7、Dim boolstatus as boolean
8、Dim longstatus as long,longwarnings as long
9、Dim mydisplaydim as object
10、Private sub command2_click() 单击command2按钮时退出程序
11、End
12、End sub
13、Private sub command1_click() 单击command1按钮时执行程序
14、Set swapp = createobject(“ation”) 创建sldworks对象
15、Swapp .visible = ture 设置显示SolidWorks程序界面
16、Set part = swapp. Newdocument (c;documents and settingsAll users
application datasolidworks 2009templates 零件I)
17、Set part = swapp activedoc 激活文件
18、Boolstatus = part extension selectbyID2(上视基准面，plane，0,0,0
fales ,0,nothing,0) 选择上视基准面
19、Part sketchmanager insertsketch ture 开始草图绘制
20、Set sksegment = irclebyradius (0#，0#，0#，0.033)
绘制半径为33的圆
21、Setmyfeature=eextrusion(true,false,false,0,0,0.015,0.01,false,falsefalse,false,0.94,0.94,false,false,false,false,true,true,true) 对圆进行单向拉伸，形成头部圆柱体
22、Boolstatus = byID2（“上视基准面”，“PLANE”,0，0，,0，NOTHING,0） 选择上视基准面
23、sketch true
24、Set sksegment = circlebyradius(0#,0#,0#,0.03) 绘制半径为30的圆
25、Setmyfeature=eextrusion(true,false,true,0,0,0.001,0.015,false,false,false,false0.94,0.94,false,false,false,false,true,true,true) 对圆进行单向拉伸，形成头部圆柱体
26、Boolstatus=byid2(“”,”face”,-5.673938468647e-04.-9.999999999764e-04,0.49,false,0,nothing,0) 选择拉伸2形成的短柱体底面
27、 Part .sketch true
28、Set sksegment = circlebyradius(0#,0#,0#,0.024) 绘制半径为24的圆
29、Set myfeature =
eextrusion(true,false,false,0,0,0.03,0.001,false,false,false,false,true,true,true) 对圆进行单向拉伸，形成长柱体
30、Boolstatus = byid2(“前视基准面”，“plane”，0,0,0，false，0，nothing,0) 选择前视基准面
31、manager,insersketchtrue
32、Set sksegment = centerline(0#,0#,0#,0#,0.02,0#)
绘制中心线
33、Setsksegment=line(0.0235,-0.003,0#,0.024,-0.003,0#)
34、Setsksegment=line(0.024,-0.03,0#,0.0245,-0.0035,0#)
35、......
36、绘制六条直线，形成旋转切除草图
37、election2 true
38、Boolstatus = rpreferencetbggle(swinputdimvaloncreate,flase)
为不影响程序自动运行，设置关闭输入尺寸值对话框
39、Boolstatus=byid2(“line7”,”sketchsegment,0.02,”-0.33,0,false,0,nothing,0) 选择直线
40、Boolstatus = ension2(0.91,0,0) 确定尺寸文本位置
41、Longstatus = ter(“D1@草图4”),setsystemvalue3(0.003,1,”默认”)
标注尺寸值为3mm
42、Longstatus=byis2(“point1@原点”,”extsketchpoint”,0,0,0,false,0,nothing,0)
43、Bpplstatus =
byid2(“line2”,”sketchsegment”,0,-0.938,5.e-05,true,0,nothing,0) 选择点和直线以进行标注
44、Setmydisplaydim= sion2(0.3,-0.682,0)
45、Longataus = =ter(“d2@草图4”).setsystemvalue3(0.0005,1,”默认”)
标注尺寸值为0.5mm
46、Boolstatus = rpreferencetoggle(swinputdimvaloncreate,true) 设置恢复输入尺寸对话框
47、Boolstatus=byid2(“line1”,”sketchsegment”,0,0,0,false,4,nothing,0) 选择中心线
48、Boolstatus=byid2(“草图4”“，sketch”0,0,0,true,0,nothing,0)
选择草图4
49、Set
myfeature=erevoluscut(6.28318530718,false,0,0,0,true,true) 旋转切除
50、Boolstatus=byid2(“”,face,-0.35,0.004,0.209,false,0,nothing,0) 选择头部长柱体的上表面
51、ketch true
52、Set sksegment=riclebyradius(0#,0#,0#,0.015) 绘制半径为15的圆
53、Part .clearselection2true
54、Boolstatus=byid2(“arcl”,”sketchsegment”,0,0,0,false,0,nothing,0)
55、Setmyfeature=ecut(true,false,1,0,0.01,0.01,false,fals
e,false,false,0.94,0.94,false,false,false,false,false,true,true) 拉伸切除成直径30的通孔
56、Boolstatus=byid2(“前视基准面”，“pline”，0,0,0，false,0,nothing,0)
57、sketchtrue
58、Part .clearselection2true
59、Vsklines =ornerrectangle(0.027,0.016,0.036,0.005,0)
绘制矩形
60、ecut(false,false,false,1,1,0.01,0.01,false,false,false,false,0.94,0.94,false,false,false,false,false,true,true,true)
双向拉伸切除
61、Boolstatus=byid2(“”,”edge”,-0.79,0.59,-0.11,false,0,nothing,0) 选择直径30孔的上边线
62、Setmyfeature=emanager,insertfeaturechamfer(4,1,0.003,1.,0,0,0,0) 倒角
63、Part .shownamedview2”下视”，6 旋转并缩放模型到下视方向
64、boolstatus=ByID2(~~,~EDGE~,-0.14,-0.01,0.02159,True,0,Nothing,0) 选择长柱体的边线
65、SetmyFeature=eatureChamfer(4,1,0.003,0.5235987755983,0,0,0,0)
66、boolstatus=ByID2(~~,~EDGE~,-0.00127,-0.01,0.43,Ture,0,Nothing,0)
67、SetmyFeature=FeatureChamfer(4,1,0.001,0.7853981633975,0,0,0,0)
68、election2 Ture
69、medView2~”等轴测”,7 等轴测显示模型
70、omtofit2 自动缩放整屏显示全图
71、longststus = 3(“E:可换钻套.SLDPRT”,0,2) 保存零件到E盘
72、End Sub
版权声明：本文标题：程序代码及解释 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1709679189a543363.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论