Hallo zusammen
ich möchte mir eine einfache Routine (VB.Net) schreiben, die die Parameter aus dem aktiven Objekt ausliest. Dabei soll es egal sein, ób es ein CatPart, Product oder auch eine DrawingDocument ist.
Bisher habe ich immer den Type ermittelt und dann die Parameter ausgelesen.
Kann ich das Ganze auch so schreiben, dass egal was vorliegt - also ohne diese Fallunterscheidung - die Parameter ausgelesen werden.
SO ist das aktuell
Public globPartDocument As PartDocument
Public globCurPart As Part
Public globProductDocument As ProductDocument
Public globCurProduct As Product
oCATIA = GetObject(, "CATIA.Application")
globCATIACurDoc = oCATIA.ActiveDocument
globCATIACurDocType = TypeName(globCATIACurDoc)
Select Case (globCATIACurDocType)
Case "PartDocument"
globPartDocument = oCATIA.ActiveDocument
globCurPart = globPartDocument.Part
globParams = globCurPart.Parameters
Return True
Case "ProductDocument"
globProductDocument = oCATIA.ActiveDocument
globCurProduct = globProductDocument.Product
globParams = globCurProduct.Parameters
Return True
case "DrawingDocument"
.
.
.
End Select
Gruß Jürgen
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP