后使用快捷导航没有帐号？
行业剖析：为什么三维CAD盗版软件易受青睐广州里外展览策划有限公司，荣获年度“诚信最新解读：国务院力推正版化促三维CAD使用率行业解读：3D打印的2015，重点进攻还是全面定制三维软件为设备增值，或助企业摆脱价格江苏星河：三维CAD中望3D缩短泵阀设计周期今日发帖：357 |昨日发帖：1287帖子数：5420623
|会员：1808371人
欢迎新会员：
发布||View: 133
中望3D凭借着其独有的混合建模功能、易学易用、价格亲民等优势，成功为星河公司引入先进的三维设计软件系统，优化2D与3D信息化系统的协同，缩短设计周期，为公司创造更多利润空间。
发布||View: 207
据香港《文汇报》1月5日报道，美国太空总署(NASA)研究了一种可由小变大的充气隔热盾，形状如儿童套圈玩具，它可发挥减速作用，协助宇宙飞船进入火星南部高原，及其他以目前科技无法着陆的范围。
发布||View: 434
最新研制一种超薄光纸，将成为新一代照明光源设备
发布||View: 225
第二届广州国际3D打印产业展-8日即将隆重开幕！
发布||View: 377
国内的制造业领域当中，机器人展现出巨大活力。
发布||View: 197
从11月下旬开始，公众可以从大英博物馆在线馆藏中下载雕塑和艺术品的3D模型。只要家中有一台3D打印机，足不出户就可以打印出炫酷的馆藏纪念品。
发布||View: 426
在这个热闹的圣诞节里，我就以可乐罐为例，给大家充充电，跟大家交流一下三维CAD中望3D的建模过程吧。
发布||View: 358
为表彰国内一批积极推动我国企业正版化的重点软件企业，日前国家版权局为此向国产三维CAD软件代表中望3D颁发“2014中国版权最具影响力企业”称号。
大家都在看
三维任务之“论坛签到”机械工程师CAD2014闪亮登场！三维网个人版优三维网技术论坛八周年暨马年春节红包发放兼三维任务之“论坛签到”【云盘下载】SolidWorks2014 SP2.0 X64位下
关注数字印象
关注我们的微信
Powered bysolidworks宏--录制、快捷键、命令菜单_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
5页免费25页免费12页免费3页免费16页免费13页免费5页免费4页免费2页免费3页免费
喜欢此文档的还喜欢25页免费81页免费
solidworks宏--录制、快捷键、命令菜单|S​o​l​i​d​W​o​r​k​s​软​件​使​用​教​程​、​技​巧​及​常​见​问​题
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
你可能喜欢查看: 11601|回复: 3
SOLIDWORKS宏录制和执行的问题
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
才可以下载或查看，没有帐号？
大家好，我是一个的新手，在solidworks录制宏里面发现这样一个问题，希望大家能帮忙解决下：
solidworks在录制宏的时候，如果使用了智能尺寸来修改零部件属性，执行宏的过程中就没法自动执行智能尺寸修改特性的确认哪一步，必须手动选择确认才能继续执行宏，有时候录制的尺寸太多，如果不能自动执行，每一步都选择，效率太低。
下面是我录制的一个简单槽型件的宏代码，槽型件的槽宽为100mm,槽高为40mm,槽长为
100mm,壁厚4mm,执行宏的时候到修改尺寸确认那一步就不能自动执行，必须手点确认才可继续执行，有没有什么办法能够避免这个问题，需要在宏里面添加什么代码吗？
' ******************************************************************************
' C:\Documents and Settings\Administrator\Local Settings\Temp\swx2896\Macro1.swb - macro recorded on 11/24/09 by Administrator
' ******************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2(&前视基准面&, &PLANE&, 0, 0, 0, False, 0, Nothing, 0)
Part.SketchManager.InsertSketch True
Part.ClearSelection2 True
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateLine(0#, 0.#, 0#, 0#, 0#)
Set skSegment = Part.SketchManager.CreateLine(0#, 0#, 0#, 0.#, 0#)
Set skSegment = Part.SketchManager.CreateLine(0.#, 0#, 0..#)
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2(&Line2&, &SKETCHSEGMENT&, 0.13, -5.E-04, 0, False, 0, Nothing, 0)
Dim myDisplayDim As Object
Set myDisplayDim = Part.AddDimension2(0.89, -0.75, 0)
Part.ClearSelection2 True
Dim myDimension As Object
Set myDimension = Part.Parameter(&D1@草图1&)
myDimension.SystemValue = 0.1
boolstatus = Part.Extension.SelectByID2(&Line1&, &SKETCHSEGMENT&, 3.E-04, 0.19, 0, False, 0, Nothing, 0)
Set myDisplayDim = Part.AddDimension2(-0.17, 0.19, 0)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2(&D1@草图1@零件1.SLDPRT&, &DIMENSION&, 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
Set myDimension = Part.Parameter(&D2@草图1&)
myDimension.SystemValue = 0.04
boolstatus = Part.Extension.SelectByID2(&Line3&, &SKETCHSEGMENT&, 0.46, 0.44, 0, False, 0, Nothing, 0)
Set myDisplayDim = Part.AddDimension2(0.7, 0.44, 0)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2(&D2@草图1@零件1.SLDPRT&, &DIMENSION&, 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
Set myDimension = Part.Parameter(&D3@草图1&)
myDimension.SystemValue = 0.04
Part.ClearSelection2 True
Part.SketchManager.InsertSketch True
Part.ShowNamedView2 &*上下二等角轴测&, 8
Dim customBendAllowanceData As Object
Set customBendAllowanceData = Part.FeatureManager.CreateCustomBendAllowance()
customBendAllowanceData.KFactor = 0.5
Dim myFeature As Object
Set myFeature = Part.FeatureManager.InsertSheetMetalBaseFlange2(0.004, True, 0.004, 0.1, 0.01, False, 0, 0, 1, customBendAllowanceData, False, 0, 0.1, 0.5, True, False, True, True)
Part.ClearSelection2 True
干什么用，这段宏有什么用处哦，我看好像没有什么实际的用处哦
很简单的 就是自动生成了一个槽型零件 但我执行的时候到智能尺寸修改那一步总是要我自己点确认才能执行 就想问下有什么办法能避免不
在開端加這句：swApp.SetUserPreferenceToggle swInputDimValOnCreate, False 關閉“标注尺寸时输入尺寸值”
在末端加這句：swApp.SetUserPreferenceToggle swInputDimValOnCreate, True 打開“标注尺寸时输入尺寸值”
开思网微信公众号：
Powered by豆丁精品文档： solidworks宏 solidworks使用技巧 solidworks使用心得 第一课件网..
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
第一课_使用SolidWorks宏录制工具
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口