dmh1177 发表于 2009-10-31 00:26:06

宏代码——交换式识别特征（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:45

E文有难度！
学习！！谢了！

xdhcwl 发表于 2009-10-31 00:41:46

进来学习。。。

lwnljgwilw 发表于 2009-10-31 00:45:47

没带注解??

TitusPlus 发表于 2021-1-9 09:26:02

SolidWorks机械工程师网，顶一下。

wwwerzhou 发表于 2021-1-21 16:53:23

有说明吗？？？

lovebabyxxl 发表于 2021-1-22 10:33:31

谢谢楼主分享

葛特曼 发表于 2024-2-25 12:02:21

E文有难度！
学习！！谢了！

葛特曼 发表于 2024-2-25 12:02:27

E文有难度！
学习！！谢了！

wxn153 发表于 2024-4-30 10:43:10

没图，不知道是什么！

huang10295 发表于 2024-5-25 19:55:14

没图，不知道是什么！

随遇而安9528 发表于 2024-7-23 20:50:21

SolidWorks机械工程师网，顶一下。

dreaming12 发表于 2025-2-17 11:46:38

楼主太有才了，膜拜中……
页: [1]
查看完整版本: 宏代码——交换式识别特征（FeatureWorks）