自訂屬性-宏-方程式的配合應用圖解範本

娅畅8536

感謝梁大分享心得，只怪悶人當日隨手編寫沒想清楚，讓代碼的指定性太高（必須知道草圖的名稱）。
不妨改用以下代碼，無論有多少個草圖陣列的特徵，都會自動搜尋，再自動以該特徵的名稱建立自定義屬性。

1
Dim FeatObj As Object
Set FeatObj = Part.FirstFeature
Dim FeatObjname As String
Dim pparents() As Object
Dim pparentscount, i As Integer
Dim swpParentFeat As Object
Dim found As Object
Dim PointsCount As Double
While Not (FeatObj.GetNextFeature Is Nothing)
Set FeatObj = FeatObj.GetNextFeature
FeatObjname = FeatObj.GetTypeName
If FeatObjname = "SketchPattern" Then
pparents = FeatObj.GetParents
pparentscount = UBound(pparents)
For i = 0 To pparentscount
Set swpParentFeat = pparents(i)
If swpParentFeat.GetTypeName = &quotrofileFeature" Then Set found = swpParentFeat.GetSpecificFeature2
Next i
PointsCount = found.GetSpecificFeature2.GetUserPointsCount
Part.DeleteCustomInfo2 "", FeatObj.Name
Part.AddCustomInfo3 "", FeatObj.Name, 30, PointsCount + 1
End If
Wend

复制代码