出錯時繼續下壹步
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
末端接頭