當前位置:成語大全網 - 漢語詞典 - CATIA二次開發(VBA)——壹種通過參數獲取特征Id的方法

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

末端接頭