Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Position von Achse auslesen

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Position von Achse auslesen (1142 mal gelesen)
cscp
Mitglied



Sehen Sie sich das Profil von cscp an!   Senden Sie eine Private Message an cscp  Schreiben Sie einen Gästebucheintrag für cscp

Beiträge: 48
Registriert: 10.05.2013

Win 10, CATIA V5R20

erstellt am: 10. Mai. 2013 11:09    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hi,

gerade bin ich auf dieses tolle Forum gestoßen! Ich hoffe Ihr könnt mir mit meinem Problem weiterhelfen?!
Folgendes: Ich lese per VBA die Komponenten einer Bedingung (Constraint) aus, also beispielsweise einer Kongruenzbedingung. Dabei erhalte ich die Namen der beiden Achsen welche kongruent liegen sollen.
Wie kann ich nun die Position dieser Achsen im Raum auslesen, also dass ich praktisch weiß, wo die Kongruenzbedingung liegt?

Besten Dank Euch für die Hilfe!! 

Liebe Grüße
Chris

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

bgrittmann
Moderator
Konstrukteur


Sehen Sie sich das Profil von bgrittmann an!   Senden Sie eine Private Message an bgrittmann  Schreiben Sie einen Gästebucheintrag für bgrittmann

Beiträge: 11780
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 10. Mai. 2013 15:38    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für cscp 10 Unities + Antwort hilfreich

Servus
Willkommen im Forum. Bitte Systeminfo ausfüllen.
Falls es sich bei der Achse um eine Linie handelt (mit der hab ich es getestet) geht es über eine Messung (SPA-Workbench). Für eine Linie kannst du die Richtung sowie die Koordinaten des Start-, Mittel- und Endpunktes ermitteln:
Code:
Sub CATMain()

Dim productDocument1 As ProductDocument
Set productDocument1 = CATIA.ActiveDocument

Dim product1 As Product
Set product1 = productDocument1.Product

Dim constraints1 As Constraints
Set constraints1 = product1.Connections("CATIAConstraints")

Dim constraint1 As Constraint
Set constraint1 = constraints1.Item("Kongruenz .39")

Dim oref As reference
Set oref = constraint1.GetConstraintElement(1)

Dim Coordinates(8)
Dim TheSPAWorkbench As Workbench
Dim TheMeasurable As Object

Set TheSPAWorkbench = productDocument1.GetWorkbench("SPAWorkbench")
Set TheMeasurable = TheSPAWorkbench.GetMeasurable(oref)

Dim direction(2)
TheMeasurable.GetDirection direction

Dim Points(8)
TheMeasurable.GetPointsOnCurve Points

End Sub


Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

cscp
Mitglied



Sehen Sie sich das Profil von cscp an!   Senden Sie eine Private Message an cscp  Schreiben Sie einen Gästebucheintrag für cscp

Beiträge: 48
Registriert: 10.05.2013

Win 10, CATIA V5R20

erstellt am: 13. Mai. 2013 10:48    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Wow, toll! Vielen herzlichen Dank für die superschnelle Hilfe!!! 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

cscp
Mitglied



Sehen Sie sich das Profil von cscp an!   Senden Sie eine Private Message an cscp  Schreiben Sie einen Gästebucheintrag für cscp

Beiträge: 48
Registriert: 10.05.2013

Win 10, CATIA V5R20

erstellt am: 13. Mai. 2013 12:24    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hi, mir ist grad noch eines aufgefallen. Der mittlere Wert von GetPointsOnCurve ist meines Erachtens nach nicht korrekt. Handelt es sich hier im Rundungsfehler?
Also für den Wert Coordinates(4) erhalte ich statt 0 immer etwas mit 15mm, obwohl die Rotationsachse in Y-Richtung liegt...
Habt Ihr hierfür auch noch einen Tipp?    

Beziehungsweise hätte ich gerne die Koordinaten für den Mittelpunkt der Kongruenz beider Bauteile. Es kann ja auch sein, dass dieser nicht bei Y=0 liegt... Geht soetwas?

Merci beaucoup!!

[Diese Nachricht wurde von cscp am 13. Mai. 2013 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz