Hallo zusammen,
Ziel ist es in Creo insgesamt 4 Stück 3D-Punkte (Koordianten kommen aus einer Text-Datei) zu erzeugen und 3 Stück davon als Basis für die Erzeugung einer Ebene zu benutzen. Auf dieser Ebene soll im Anschluß dann eine Skizze erstellt werden.
Hat jemand eine Idee wie der Code dazu ausehen könnte?
Mein bisheriger Ansatz zur Erzeugung der 3D-Punkte sieht so aus, endet jedoch in der letzte Zeile mit der Fehlermeldung "Object type mismatch".
Code:
Dim P1 As pfcls.IpfcPoint3D
P1 = New pfcls.CpfcPoint3D
'Die Koordinaten kommen später aus einer Text-Datei
Dim x As Double = 20 : Dim y As Double = 30 : Dim z As Double = 10
P1.Set(0, x) : P1.Set(1, y) : P1.Set(2, z)
Dim ModelItemOwner As pfcls.IpfcModelItemOwner = CType(Model, pfcls.IpfcModelItemOwner)
Dim ModelItemPoints As pfcls.IpfcModelItems = ModelItemOwner.ListItems(pfcls.EpfcModelItemType.EpfcITEM_POINT)
ModelItemPoints.Append(P1)
Für Hinweise/Codebeispiele zum Erzeugen der 3D-Punkte, der Ebene (durch 3 Punkte) und der Skizze auf der Ebene vielen Dank!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP