Desarrollo secundario de CATIA (VBA): un método para obtener ID de funciones a través de parámetros
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