SOLIDWORKS宏录制和执行的问题

funingxy

   经典图书

大家好，我是一个SolidWorks机械工程师论坛的新手，在solidworks录制宏里面发现这样一个问题，希望大家能帮忙解决下：
solidworks在录制宏的时候，如果使用了智能尺寸来修改零部件属性，执行宏的过程中就没法自动执行智能尺寸修改特性的确认哪一步，必须手动选择确认才能继续执行宏，有时候录制的尺寸太多，如果不能自动执行，每一步都选择，效率太低。
下面是我录制的一个简单槽型件的宏代码，槽型件的槽宽为100mm,槽高为40mm,槽长为
100mm,壁厚4mm,执行宏的时候到修改尺寸确认那一步就不能自动执行，必须手点确认才可继续执行，有没有什么办法能够避免这个问题，需要在宏里面添加什么代码吗？
' ******************************************************************************
' Cocuments and SettingsAdministratorLocal SettingsTempswx2896Macro1.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("前视基准面", "LANE", 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

jlbslqqs

干什么用，这段宏有什么用处哦，我看好像没有什么实际的用处哦

mouse

   经典图书

很简单的 就是自动生成了一个槽型零件 但我执行的时候到智能尺寸修改那一步总是要我自己点确认才能执行 就想问下有什么办法能避免不

cybluesky

在開端加這句：swApp.SetUserPreferenceToggle swInputDimValOnCreate, False 關閉“标注尺寸时输入尺寸值”
在末端加這句：swApp.SetUserPreferenceToggle swInputDimValOnCreate, True 打開“标注尺寸时输入尺寸值”

linux4499

   经典案例图书

还是有大神在的呀

嘟123456

楼主，这个解决了吗？怎么解决的同问