Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Messen von Axis

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:  Messen von Axis (512 mal gelesen)
Windninja
Mitglied
Konstrukteur


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

Beiträge: 25
Registriert: 06.02.2015

Catia V5 R24
Service Pack 4
Hot Fix 33

erstellt am: 10. Mrz. 2017 11:13    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

Hallo ich habe mal wieder ein, hoffendlich kleines, Problem.

Ich kann mir von den makierten Punkten die Kordinaten auslesen, aber immer nur zum Teileursprung, mit mein Makro.
Wenn ich manuell Messe kann ich mir ja einstellen das er ein Axis als ausgangspunkt nimmt.

1. Was muss ich ändern damit mein Makro das auch kann.
(Axis heißt: AxisBG0)

2. Wie kann ich die selektion abfragen ob ein punkt Selektiert wurde?
Oder muss ich Wenn Fehler abfrage hinter (oSelElem.Value.GetCoordinates (oPunktKoord)) einbauen.

Gruß Windninja

Code:
Set partDocument1 = CATIA.ActiveDocument
Set part1 = partDocument1.Part
Set parameters1 = part1.Parameters

Dim mySelection As Selection
Set mySelection = CATIA.ActiveDocument.Selection
Dim AnzahlSelekt As Integer
AnzahlSelekt = mySelection.Count  ' Gibt an wieviele Elemente selektiert wurden
Dim i As Integer
Dim oPunktKoord(2)
Dim oSelElem As Object

For i = 1 To AnzahlSelekt
Set oSelElem = mySelection.Item(i)
oSelElem.Value.GetCoordinates (oPunktKoord)

Xmin = oPunktKoord(0)
Ymin = oPunktKoord(1)
Zmin = oPunktKoord(2)
MsgBox oSelElem.Value.Name & vbNewLine & "X = " & Xmin & vbNewLine & "Y = " & Ymin & vbNewLine & "Z = " & Zmin
Next


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. Mrz. 2017 11:18    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 Windninja 10 Unities + Antwort hilfreich

Servus
Du musst wohl die Koordinaten zum gewünschten Achsensystem umrechnen (siehe hier).
Du kannst über die Methode TypeName den Typ des Objekt ausgeben und dann auswerten.
Wie selektierst du die Punkte?
Falls du einer Userselection verwendest kannst du einen entsprechenden Filter verwenden.

Gruß
Bernd

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

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

Windninja
Mitglied
Konstrukteur


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

Beiträge: 25
Registriert: 06.02.2015

Catia V5 R24
Service Pack 4
Hot Fix 33

erstellt am: 10. Mrz. 2017 13:11    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

Ok Danke also doch etwas mehr arbeit als gedacht.

Ich wähle die Punkte im Baum aus weil da die Namen stehen. Und dann starte ich das Makro.
Ist aber bestimmt sinvoller erst Makro zu starten und dann so einzustellen das nur Punkte gefast weden kann.

Gruß Windninja

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