Autor
|
Thema: Koordinaten (x, y, z) von einem HybridShapePointOnCurve (1099 mal gelesen)
|
Bolle Mitglied
Beiträge: 48 Registriert: 12.03.2003
|
erstellt am: 05. Nov. 2004 12:00 <-- editieren / zitieren --> Unities abgeben:
|
Bartleby Mitglied
Beiträge: 102 Registriert: 17.06.2004 Win XP V5R12 SP3, SP5 Win 2000 SP4 V5R12 SP3
|
erstellt am: 05. Nov. 2004 12:53 <-- editieren / zitieren --> Unities abgeben: Nur für Bolle
Hallo Bolle, also sollte es mit getcoord nicht gehen, probier doch mal einen neuen PointCoord(0,0,0) mit Referenz auf den PointOnCurve zu erzeugen bei dem müsste getcoord dann gehen. Gruss Ronny Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bolle Mitglied
Beiträge: 48 Registriert: 12.03.2003
|
erstellt am: 05. Nov. 2004 14:39 <-- editieren / zitieren --> Unities abgeben:
Hallo Bartleby, mit diesem workaround hat es geklappt. War aber anscheinend gar nicht nötig, denn mit dem PointOnCurve geht das GetCoordinates jetz auf einmal doch. Frag mich nicht, was da wieder geklemmt hat. (Rechner neu starten wirkt manchmal Wunder). Gruß Bolle Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
commader_hugo Mitglied Student Mechatronik
Beiträge: 40 Registriert: 02.09.2004
|
erstellt am: 19. Nov. 2004 08:13 <-- editieren / zitieren --> Unities abgeben: Nur für Bolle
|
Bolle Mitglied
Beiträge: 48 Registriert: 12.03.2003
|
erstellt am: 23. Nov. 2004 10:07 <-- editieren / zitieren --> Unities abgeben:
Hallo Hugo, ich habe das über eine Selection gemacht. Das sieht in etwa so aus: ... Set MyPoint = MyPart.FindObjectByName("Point.1") ' - Get point coordinates Set MySel = CATIA.ActiveDocument.Selection MySel.Clear MySel.Add MyPoint Set MySelElement = MySel.Item(1) MySelElement.Value.GetCoordinates MyPointCoord Coord_X = MyPointCoord(0) Coord_Y = MyPointCoord(1) Coord_Z = MyPointCoord(2) oSel.Clear ... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Konstrukteur / Maschinenbauingenieur / Techniker (m/w/d) | Seit über 50 Jahren entwickelt und produziert fimotec-fischer international erfolgreich Zuführtechnik und Montageanlagen. Wir sind einer der führenden europäischen Hersteller mit einem Team von ca. 50 Mitarbeitern. Im Zuge unseres stetigen Wachstums und der stabilen wirtschaftlichen Marktposition suchen wir für unseren Hauptsitz in Denkingen einen Konstrukteur für die Entwicklung und Konstruktion unserer technisch anspruchsvollen Zuführstationen und Sondermaschinen.... | Anzeige ansehen | Maschinenbau |
|
listing_code Mitglied
Beiträge: 45 Registriert: 27.10.2003
|
erstellt am: 24. Nov. 2004 14:54 <-- editieren / zitieren --> Unities abgeben: Nur für Bolle
Hai Leut ' Du muss zuerst eine referenz herstellen: Set MySelElement = MySel.Item(1) Set Ref1 = part1.CreateReferenceFromObject(MySelElement) 'Dann muss Du die richtige Workbench laden: Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench") Set TheMeasurable = TheSPAWorkbench.GetMeasurable(Ref1) 'Erst dann kannst Du anfangen Dein Punkt zu messen Dim MyPointCoord(2) TheMeasurable.GetPoint MyPointCoord Coord_X = MyPointCoord(0) Coord_Y = MyPointCoord(1) Coord_Z = MyPointCoord(2) gruß
L_C Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |