Autor
|
Thema: Projektionsebene einer View ermitteln (1200 mal gelesen)
|
Ex-Mitglied
Beiträge: 4755 Registriert: 27.09.2000 Dell precision M4300, 4GB Arbeitsspeicher NVidia FX360M Windows XP professional SP3 CATIA V5 R16SP9, R17SP8, R18SP8, R19SP4 Adobe Acrobat 8 Linux: Ubuntu 8.04LTS
|
erstellt am: 05. Jun. 2008 20:27 <-- editieren / zitieren --> Unities abgeben:
|
zoltan.bekesi Mitglied
Beiträge: 321 Registriert: 22.10.2006 Job: CATIA V5R19 / XP 32bit MS Office 2003 Microstation V8 2004 Edition DELL Precision M6300
|
erstellt am: 05. Jun. 2008 22:39 <-- editieren / zitieren --> Unities abgeben: Nur für CEROG
Hallo CEROG, ich weiß nicht, ob Dir folgendes weiterhilft. Ist mehr oder weniger aus der Doku. Die Richtung der Ebene kann man auslesen, nicht aber den Punkt, durch der die Ebene geht.
Code:
Dim oActDoc As Document Set oActDoc = CATIA.ActiveDocument Dim oSheet As DrawingSheet Set oSheet = oActDoc.Sheets.Item(1) Dim oView As DrawingView Set oView = oSheet.Views.Item(3) Dim oGenBeh As DrawingViewGenerativeBehavior Set oGenBeh = oView.GenerativeBehavior Dim oX1 As Double Dim oY1 As Double Dim oZ1 As Double Dim oX2 As Double Dim oY2 As Double Dim oZ2 As Double oGenBeh.GetProjectionPlane oX1, oY1, oZ1, oX2, oY2, oZ2 Debug.Print oX1, oY1, oZ1 Debug.Print oX2, oY2, oZ2 Dim oXNormal As Double Dim oYNormal As Double Dim oZNormal As Double oGenBeh.GetProjectionPlaneNormal oXNormal, oYNormal, oZNormal Debug.Print oXNormal, oYNormal, oZNormal
Ist für VBA. Methode GetAxisSysteme könnte vielleicht noch was bringen, habe es aber nicht zum Laufen bringen können. Es gab ständig die Fehlermeldung: Property write only. Anbei der Kode. Musst den oberehn Anhängen und Datentyp von oGenBeh ins Kommentar setzen.
Code: Dim oAxisSystem As Object Dim oProd As Object Set oProd = oGenBeh.Document oGenBeh.GetAxisSysteme oProd, oAxisSystem
Gruß, Zoltan Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ex-Mitglied
Beiträge: 4755 Registriert: 27.09.2000 Dell precision M4300, 4GB Arbeitsspeicher NVidia FX360M Windows XP professional SP3 CATIA V5 R16SP9, R17SP8, R18SP8, R19SP4 Adobe Acrobat 8 Linux: Ubuntu 8.04LTS
|
erstellt am: 06. Jun. 2008 05:21 <-- editieren / zitieren --> Unities abgeben: Nur für CEROG
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|