Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  AddNewPointDatum

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:  AddNewPointDatum (1107 mal gelesen)
snail04
Mitglied
cad

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

Beiträge: 3
Registriert: 07.01.2014

Intel Xeon W3550 @3.07 GHz
24 GB
Win7 SP1

erstellt am: 07. Jan. 2014 09:46    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

Schöne Grüße Zusammen,
Ich möchte gerne von ein Koordinatensystem das Origin als ein Referenzpunkt verwenden, mit welche ich die Koordinaten bekommen kann (MsgBox). Soweit habe ich:

strSelStateStr = oSel.SelectElement2(arrayOfFilterType, "Achsensystem auswählen", False)

If strSelStateStr = "Normal" Then
    Dim oSelectedAxisSyst As AxisSystem
    Set oSelectedAxisSyst = oSel.Item2(1).Value   
   
Dim refOnOrigin As Reference
Set refOnOrigin = oSelectedAxisSyst.OriginPoint
'#############################################################################################################################

Dim newGeo As HybridShapePointExplicit
Set newGeo = Wzk3D.AddNewPointDatum(refOnOrigin)  'und hier habe ich das Fehlermeldung: "Method AddNewCircleBitangentRadius of object HybridShapeFactory failed....aber ich benutze kein "AddNewCircleBitangentRadius"
Kann jemand bitte ein Tip geben?
Danke,
Snail

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

HoBLila
Mitglied
Dipl.-Ing. (BA) praktische Informatik - Senior Entwickler CAx


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

Beiträge: 1118
Registriert: 29.05.2008

DELL PRECISION T3500
Intel(R) Xeon(R) CPU W3540 @ 2.93GHz
12285 MB RAM
NVIDIA Quadro FX 1800
Microsoft Windows 7 Enterprise Service Pack 1
CATIA V5 R19 SP09 HF69
VB6.5
CAA RADE CDC

erstellt am: 07. Jan. 2014 13:51    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 snail04 10 Unities + Antwort hilfreich

Ist oSelectedAxisSyst.OriginPoint vom Typ Reference?
Versuch mal testweise Dim newGeo As Variant und schau welcher Typ bei AddNewPointDatum() zurückgegeben wird.

Ich vermute mal Wzk3D ist auch eine entsprechend richtig hergeleitete HybridShapeFactory?

Die part-Workbench ist auch offen?

Sehe auf den ersten Blick leider keinen Fehler in Deinem Code. :-(

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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: 07. Jan. 2014 15:03    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 snail04 10 Unities + Antwort hilfreich

Servus
"OriginPoint" funktioniert nur wenn ein 3D-Punkt zur Definition des Ursprungs verwendet wurde. Bei einem "Standard"-Achsensystem (wie in einem neuen Part vorhanden) wird dieser über Koordinaten definiert. ggf musst du erst mit "OriginType" prüfen, wie der Ursprung definiert wurde und davon abhängig deine Geometrie weiter aufbauen.

Gruß
Bernd

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

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

snail04
Mitglied
cad

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

Beiträge: 3
Registriert: 07.01.2014

Intel Xeon W3550 @3.07 GHz
24 GB
Win7 SP1

erstellt am: 08. Jan. 2014 07:42    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

Danke für Euere Tips, hat sich erledigt

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: 08. Jan. 2014 07:43    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 snail04 10 Unities + Antwort hilfreich

Servus
Und wie hast du das Problem gelöst? bestimmt gibt es noch andere die das Problem haben (oder in Zukunft bekommen).

Gruß
Bernd

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

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

HoBLila
Mitglied
Dipl.-Ing. (BA) praktische Informatik - Senior Entwickler CAx


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

Beiträge: 1118
Registriert: 29.05.2008

DELL PRECISION T3500
Intel(R) Xeon(R) CPU W3540 @ 2.93GHz
12285 MB RAM
NVIDIA Quadro FX 1800
Microsoft Windows 7 Enterprise Service Pack 1
CATIA V5 R19 SP09 HF69
VB6.5
CAA RADE CDC

erstellt am: 08. Jan. 2014 09:54    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 snail04 10 Unities + Antwort hilfreich

ich würd's so machen:

Koordinaten des Orgin-Points des Achsensystems ermitteln. (Methoden des Achsensystems - gibt ne 4x3 Matrix zurück oder SPA-Workbench)
Punkt an gleicher Stelle erzeugen.
Datum des Punktes erstellen und alten löschen.

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

snail04
Mitglied
cad

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

Beiträge: 3
Registriert: 07.01.2014

Intel Xeon W3550 @3.07 GHz
24 GB
Win7 SP1

erstellt am: 08. Jan. 2014 14:08    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 Bernd, Hallo Lila,

Danke nochmal für Euere Tips!
@ Bernd: ich habe das so gelöst:

Dim strSelStateStr As String
strSelStateStr = oSel.SelectElement2(arrayOfFilterType, "Achsensystem auswählen", False)

If strSelStateStr = "Normal" Then
    Dim oSelectedAxisSyst As Object 'As AxisSystem ##### AXIS SYSTEM ####
    Set oSelectedAxisSyst = oSel.Item2(1).Value   
   
Dim refOnOrigin As Reference
Set refOnOrigin = oSelectedAxisSyst.OriginPoint

'######################################  GETTING THE X Y Z AXIS DIRECTIONS  ################################################


        Dim XAxisCoord(2) 'As Double
        Call oSelectedAxisSyst.GetXAxis(XAxisCoord)

        Dim YAxisCoord(2) 'As Double
        Call oSelectedAxisSyst.GetYAxis(YAxisCoord)

        Dim ZAxisCoord(2) 'As Double
        Call oSelectedAxisSyst.GetZAxis(ZAxisCoord)
       


'################################  OUTPUT OF THE COORDINATES OF THE ORIGINPOINT  ############################################

        'Using the GetPoint method for obtaining the coordinates of the referenced Axis system :
        Dim Messung As Workbench
        Set Messung = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")
        Dim ocoor As Object
            Set ocoor = Messung.GetMeasurable(refOnOrigin)
        Dim Coordinates(2)
            Dim myX2, myY2, myZ2 As Double
            myX2 = Coordinates(0)
            myY2 = Coordinates(1)
            myZ2 = Coordinates(2)
            ocoor.GetPoint Coordinates
          MsgBox (" X=" & Coordinates(0) & vbLf & " Y=" & Coordinates(1) & vbLf & " Z=" & Coordinates(2))

'Point in the location of the referenced axis system origin:
Dim hybridShapePointCoord1 As HybridShapePointCoord
Set hybridShapePointCoord1 = Wzk3D.AddNewPointCoord(Coordinates(0), Coordinates(1), Coordinates(2))

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: 08. Jan. 2014 14:50    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 snail04 10 Unities + Antwort hilfreich

Servus
Danke für die Rückmeldung.
ggf hättest du dir die Messung sparen können. AFAIK liefert dir die Methode "GetOrigin" immer die Koordinaten (egal ob Ursprung durch Punkt oder Koordinaten angegeben wurde).

Gruß
Bernd

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

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