Colección de citas famosas - Slogan de motivación - Desarrollo secundario de CATIA (VBA): un método para obtener ID de funciones a través de parámetros

Desarrollo secundario de CATIA (VBA): un método para obtener ID de funciones a través de parámetros

Función GetFeatureId (ByVal prd como producto, ByVal Feature como cualquier objeto)

Continuar con el siguiente paso en caso de error

Atenuar prms como parámetros

Establecer prms = prd .parameters

Atenuar prm como parámetros

Establecer prm = prms. CreateString("FeatureId", "")

Definir relación como relación

Establecer rlts = prd. Relaciones

Atenuar prmExp como cadena

prmExp = prms. GetNameToUseInRelation(Element)

Si left(prmExp, 1) = " ` ", entonces

prmExp = prmExp amp "-->;Id()"

Otro

prmExp = " ` " amp Delta del río Perla. número de pieza amp" ampprmExp amp"`->Id()"

Terminará si...

Marcar frml como fórmula

set frml = rlts. crear fórmula(" getid ", prm, prmExp).

GetFeatureId = prm>ValueAsString

rlts.

Finalizar función

Ejemplo de llamada:

Sub test_getFeatId()

Marcar documento como documento

Establecer documento = CATIA.documento activo

Atenuar prd como producto

Establecer prd = doc.product

Atenuar prt como parte

Establecer prt = doc.Part

Atenuar sel como selección

Establecer sel = doc.Select

Atenuar selObj como cualquier objeto

p>

Establecer selObj = valor sel

Debug.Print GetFeatureId(prd, selObj)

Depurar p>Conector final