Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Referenzpunkt erzeugen

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:  Referenzpunkt erzeugen (1527 mal gelesen)
AlfaRomeo75
Mitglied
Dipl.Ing. - Flächenkonstrukteur/Methodenplaner


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

Beiträge: 174
Registriert: 06.12.2004

-----------------
Windows XP professional Version2002
Service Pack 2
-----------------
CATIA V5 R16 SP5
-----------------
Intel Pentium 4 3,4GHz
4 GB RAM
-----------------

erstellt am: 20. Jun. 2005 09:26    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,
hab da mal 'ne Frage!
Ich möchte einen Punkt in Bezug auf einen Referenzpunkt erzeugen(besser wäre in Bezug auf ein Achsensystem). Ich bekomme bei folgendem Code aber immer eine Fehlermeldung!
Was mache ich falsch? (Fange gerade erst mit der Makroprogrammierung an!)

Vielen Dank im Vorraus!

Hier nun mein Code:

Sub CATMain()

Dim aPart As Document.Part
Set aPart = CATIA.ActiveDocument.Part

Dim HB as HybridBody
Set HB = aPart.HybridBodies.Item ("Punkte")


' Auswahl festlegen -----------------------------------------------
  Dim Was(0)
  Was(0) = "Point"

' Selektion definieren ---------------------------------
  Dim UserSel As Selection
  Set UserSel= CATIA.ActiveDocument.Selection
  UserSel.Clear

' Selektion vornehmen lassen --------------------------------------
  Dim RP As CATBSTR
  RP = UserSel.SelectElement(Was, "Bitte den Referenz-Punkt selektieren", true)

  If RP = "Normal" Then
      MsgBox(UserSel.Item(1).Value.Name & " wurde ausgewählt!")
  Else
      MsgBox ("Abbruch")
  End If

Dim RefPunkt as Reference
RefPunkt = UserSel.Item(1).Value.Name

' Selektion freigeben --------------------------------------------
  UserSel.EndSelectElement
  UserSel.Clear

'**********************************************************************
' Punkt erzeugen

Dim Toolbox3D as HybridShapeFactory
Set Toolbox3D = aPart.HybridShapeFactory

Dim Punkt1 As HybridShapePointCoordWithReference
Set Punkt1 = Toolbox3D.AddNewPointCoordWithReference(0.000000,0.000000,0.000000,RefPunkt)
Punkt1.Name = "AP_Punkt"

HB.AppendHybridShape Punkt1

aPart.Update

End Sub

Gruß
Thomas

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

Zwenne12
Mitglied
Werkzeugkonstrukteur


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

Beiträge: 26
Registriert: 23.08.2004

erstellt am: 20. Jun. 2005 13:07    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 AlfaRomeo75 10 Unities + Antwort hilfreich

Hallo Thomas,

Du hast den RefPunkt falsch deklariert:

Dim RefPunkt as AnyObject
Set RefPunkt = UserSel.Item (1).Reference

Damit müsste es eigentlich funktionieren.

Gruß
Sven


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

AlfaRomeo75
Mitglied
Dipl.Ing. - Flächenkonstrukteur/Methodenplaner


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

Beiträge: 174
Registriert: 06.12.2004

-----------------
Windows XP professional Version2002
Service Pack 2
-----------------
CATIA V5 R16 SP5
-----------------
Intel Pentium 4 3,4GHz
4 GB RAM
-----------------

erstellt am: 20. Jun. 2005 13:28    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 Sven,
vielen Dank für Deine Hilfe!
Jetzt funktioniert es! Du weißt nicht zufällig ob sich dies auch über die Selektion eines Achsensystems lösen lässt?

Gruß
Thomas

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

Zwenne12
Mitglied
Werkzeugkonstrukteur


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

Beiträge: 26
Registriert: 23.08.2004

erstellt am: 20. Jun. 2005 15:23    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 AlfaRomeo75 10 Unities + Antwort hilfreich

Hi Thomas,

müsste mit folgendem Code funktionieren:

Sub CATMain()
...
...
  Was(0) = "AxisSystem"
...
...
If RP = "Normal" Then
      MsgBox(UserSel.Item(1).Value.Name & " wurde ausgewählt!")
  Else
      MsgBox ("Abbruch")
  End If

Dim RefPunkt as AnyObject
Set RefPunkt = UserSel.Item (1).Value

Dim Ref As Reference
Set Ref = CATIA.ActiveDocument.Part.CreateReferenceFromObject(RefPunkt)

Dim OriginPoint1 As AnyObject
Set OriginPoint1 = RefPunkt.OriginPoint

' Selektion freigeben --------------------------------------------
UserSel.EndSelectElement
UserSel.Clear

...
...
Set Punkt1 = Toolbox3D.AddNewPointCoordWithReference(0.000000,0.000000,0.000000,Ref)
...
...

End Sub

Gruß
Sven

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