标题: 宏代码——交换式识别特征（FeatureWorks） [打印本页] 作者: dmh1177 时间: 2009-10-31 00:26 标题: 宏代码——交换式识别特征（FeatureWorks） Recognizing Features Interactively (VBA)
This sample application illustrates recognizing a feature interactively in a SolidWorks part document, and then creating that feature.
Sub main()
Dim swApp As Object
Dim sample As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim str As String
Set swApp = Application.SldWorks
swApp.SetUserPreferenceIntegerValue swAutoSaveInterval, 0
Set sample = swApp.GetAddInObject("FeatureWorks.FeatureWorksApp")
Dim varOut As Variant
Dim var1 As Boolean
Set Part = swApp.ActiveDoc
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID("", "FACE", 0.1165311335518, -0.006695921966639, 0.03257260156937, False, 0, Nothing)
Dim InterOption As Integer
str = "Fillet" 'Option to recognize interactive fillet
InterOption = fwChainFeatures 'Turn on the chaining option.
varOut = sample.RecognizeFeatureInteractive(str, InterOption)
If (False = varOut) Then MsgBox ("ERROR")
createOption = fwAllowFailFeatureCreation 'Option to allow creation of features with rebuild errors
var1 = sample.CreateFeatures(createOption)
If (False = var1) Then MsgBox ("ERROR")
End Sub作者: mfqfqm122 时间: 2009-10-31 00:39
E文有难度！
学习！！谢了！作者: xdhcwl 时间: 2009-10-31 00:41
进来学习。。。作者: lwnljgwilw 时间: 2009-10-31 00:45
没带注解??作者: TitusPlus 时间: 2021-1-9 09:26
SolidWorks机械工程师网，顶一下。作者: wwwerzhou 时间: 2021-1-21 16:53
有说明吗？？？作者: lovebabyxxl 时间: 2021-1-22 10:33
谢谢楼主分享作者: 葛特曼 时间: 2024-2-25 12:02
E文有难度！
学习！！谢了！作者: 葛特曼 时间: 2024-2-25 12:02
E文有难度！
学习！！谢了！作者: wxn153 时间: 2024-4-30 10:43
没图，不知道是什么！作者: huang10295 时间: 2024-5-25 19:55
没图，不知道是什么！作者: 随遇而安9528 时间: 2024-7-23 20:50
SolidWorks机械工程师网，顶一下。作者: dreaming12 时间: 2025-2-17 11:46
楼主太有才了，膜拜中……