找回密码 注册 QQ登录
一站式解决方案

iCAx开思网

CAD/CAM/CAE/设计/模具 高清视频【积分说明】如何快速获得积分?快速3D打印 手板模型CNC加工服务在线3D打印服务,上传模型,自动报价
查看: 29153|回复: 6
打印 上一主题 下一主题

[求助] SOLIDWORKS宏录制和执行的问题

[复制链接]
跳转到指定楼层
1
发表于 2009-11-27 09:46:50 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
大家好,我是一个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.033917, 0#, 0#, 0#, 0#)
Set skSegment = Part.SketchManager.CreateLine(0#, 0#, 0#, 0.068485, 0#, 0#)
Set skSegment = Part.SketchManager.CreateLine(0.068485, 0#, 0#, 0.068485, 0.033917, 0#)
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Line2", "SKETCHSEGMENT", 0.03232958308413, -5.165071770335E-04, 0, False, 0, Nothing, 0)
Dim myDisplayDim As Object
Set myDisplayDim = Part.AddDimension2(0.02854186378589, -0.01153532695375, 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.061381080542E-04, 0.01842208931419, 0, False, 0, Nothing, 0)
Set myDisplayDim = Part.AddDimension2(-0.01863245838317, 0.01842208931419, 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.09913117798046, 0.02220980861244, 0, False, 0, Nothing, 0)
Set myDisplayDim = Part.AddDimension2(0.1177254363537, 0.02220980861244, 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.0001, 0.0001, 0.5, True, False, True, True)
Part.ClearSelection2 True
End Sub
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 赞一下!赞一下!
2
发表于 2009-11-27 10:56:59 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
3
 楼主| 发表于 2009-11-27 15:12:00 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
4
发表于 2009-11-27 15:20:12 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
5
发表于 2016-5-2 09:36:06 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
6
发表于 2016-5-7 13:07:42 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
7
发表于 2018-1-25 11:25:12 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

您需要 登录 才可以下载或查看,没有帐号?注册

x
您需要登录后才可以回帖 登录 | 注册

本版积分规则

3D打印手板模型快速制作服务,在线报价下单!

QQ 咨询|手机版|联系我们|iCAx开思网  

GMT+8, 2024-11-12 08:02 , Processed in 0.024470 second(s), 11 queries , Gzip On, Redis On.

Powered by Discuz! X3.3

© 2002-2024 www.iCAx.org

快速回复 返回顶部 返回列表