- 1、本文档共6页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
程序代码及解释
程序代码及解释
option explicit 设置显示变量声明
Dim swapp as object 定义各变量
Dim part as object
Dim sksegment as object
Dim vsklines as variant
Dim myfeature as object
Dim boolstatus as boolean
Dim longstatus as long,longwarnings as long
Dim mydisplaydim as object
Private sub command2_click() 单击command2按钮时退出程序
End
End sub
Private sub command1_click() 单击command1按钮时执行程序
Set swapp = createobject(“sldworks.application”) 创建sldworks对象
Swapp .visible = ture 设置显示SolidWorks程序界面
Set part = swapp. Newdocument (c;\documents and settings\All users \application data\solidworks 2009\templates \零件I)
Set part = swapp activedoc 激活文件
Boolstatus = part extension selectbyID2(上视基准面,plane,0,0,0 fales ,0,nothing,0) 选择上视基准面
Part sketchmanager insertsketch ture 开始草图绘制
Set sksegment = part.sketchmanager.creatcirclebyradius (0#,0#,0#,0.033) 绘制半径为33的圆
Setmyfeature=part.featuremanager.featureextrusion(true,false,false,0,0,0.015,0.01,false,falsefalse,false,0.01745329251994,0.01745329251994,false,false,false,false,true,true,true) 对圆进行单向拉伸,形成头部圆柱体
Boolstatus = part.extension.selectbyID2(“上视基准面”,“PLANE”,0,0,0.FALSE,0,NOTHING,0) 选择上视基准面
Part.sketchmanager.insertsketch true
Set sksegment = part.sketchmanager.createcirclebyradius(0#,0#,0#,0.03) 绘制半径为30的圆
Setmyfeature=part.featuremanager.featureextrusion(true,false,true,0,0,0.001,0.015,false,false,false,false0.01745329251994,0.01745329251994,false,false,false,false,true,true,true) 对圆进行单向拉伸,形成头部圆柱体
Boolstatus=part.extension.selectbyid2(“”,”face”,-5.673938468647e-04.-9.999999999764e-04,0.01782047016349,false,0,nothing,0) 选择拉伸2形成的短柱体底面
Part .sketchmanager.insertsketch true
Set sksegment = part.sketchmanager.createcirclebyradius(0#,0#,0#,0.024) 绘制半径为24的圆
Set myfeature = part.featuremanager.featureextrusion(true,false,false,0,0,0.03,0.001,false,false,false,false,true,true,true) 对圆进行单向拉伸,形成长柱体
Boolstatus = part.extension.selectbyid2(“前视
您可能关注的文档
- neb t7 体外转录.pdf
- USB CAN Tool调试软件安装与使用说明书.pdf
- 裕兴新概念英语第二册笔记 第56课.pdf
- TLP290-4双向光耦.pdf
- Citation APA 期刊论文引用标准.pdf
- 上海交通大学英语讲义Exercise Two听力原文及答案.docx
- LabTool-48UXP_中文使用说明书.pdf
- 全国优秀博士学位论文摘要矿山采动裂隙岩体地球物理场特征研究及工程应用.pdf
- STM8S105K4烧录操作指南.pdf
- 特色功能之two-way问题核查.docx
- 2024年中国钽材市场调查研究报告.docx
- 2024年中国不锈钢清洗车市场调查研究报告.docx
- 2024年中国分类垃圾箱市场调查研究报告.docx
- 2024年中国水气电磁阀市场调查研究报告.docx
- 2024年中国绿藻片市场调查研究报告.docx
- 2010-2023历年初中毕业升学考试(青海西宁卷)数学(带解析).docx
- 2010-2023历年福建厦门高一下学期质量检测地理卷.docx
- 2010-2023历年初中数学单元提优测试卷公式法(带解析).docx
- 2010-2023历年初中毕业升学考试(山东德州卷)化学(带解析).docx
- 2010-2023历年初中毕业升学考试(四川省泸州卷)化学(带解析).docx
最近下载
- 某110kv输电线路工程概预算实例.xls
- 人教版高中英语选择性必修第一册UNIT5 Part 4 Writing练习含答案.docx
- 小学生古诗词竞赛题及答案 .pdf
- 2023矿业权评估师考试题库大全(附答案).docx
- 产前筛查和产前诊断题库带全部参考答案).docx
- 外研社高中英语必修一 Unit 5 The monarch’s journey 教学设计.docx
- NAD M25 7通道放大器用户手册.pdf
- 朱仙庄洗煤厂安装施工组织设计.doc
- GBT20821_液态法白酒国家标准.pdf
- 文言文高频考点02文言实词(教考结合)(解题技巧+真题训练)-2023-2024学年高一语文下学期期中高频考点梳理及模拟检测(统编版必修下册).docx
文档评论(0)