| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für CATIA & Co. |
| | |
 | KISTERS 3DViewStation: Germar Nikol - Der Visionär hinter der Erfolgsgeschichte, eine Pressemitteilung
|
|
Autor
|
Thema: Koordinaten (x, y, z) von einem HybridShapePointOnCurve (1155 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 |
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 |
Foren auf CAD.de (alle Foren)
| 
