CATIA二次開發(VBA)——壹種通過參數獲取特征Id的方法

函數GetFeatureId(作為產品的ByVal prd，作為任意對象的ByVal Feature)

出錯時繼續下壹步

Dim prms作為參數

設置prms = prd.parameters

Dim prm作為參數

設置prm = prms。CreateString("FeatureId "，"")

將關系定義為關系

設置rlts = prd。關系

Dim prmExp作為字符串

prmExp = prms。GetNameToUseInRelation(要素)

如果left(prmExp，1) = " ` "，則

prmExp = prmExp & amp“-->；Id()"

其他

prmExp = " ` " & amp珠三角。零件號& amp”& ampprmExp & amp“`->；Id()"

如果…就會結束

將frml標註為公式

set frml = rlts . create formula(" getid "，" getid "，prm，prmExp)。

GetFeatureId = prm。ValueAsString

rlts。刪除frml.name

prms。刪除prm.name

結束功能

呼叫示例:

Sub test_getFeatId()

將文檔標註為文檔

設置doc = CATIA。活動文檔

Dim prd作為產品

設置prd = doc.product

作為零件的尺寸prt

設置prt = doc。部分

Dim sel As選擇

Set sel = doc。選擇

將selObj作為任意對象變暗

設置selObj = sel。項目(1)。價值

調試。打印GetFeatureId(prd，selObj)

調試。打印selObj.name

末端接頭