---

Hallo,

schreibe ein CATScript Makro, in dem ich eine Referenz (Parent?) eines Elementes innerhalb eines CATParts auslesen möchte.
Konkreter Fall:

Projektion eines Punktes, Name bekannt
gesucht: Name des Punktes, der projiziert wurde. (die Referenz)

Hat jemand schonmal solch einen, oder einen ähnlichen Fall gelöst?

Danke schonmal.

Sebastian

V5R12SP3

[Diese Nachricht wurde von SebW am 14. Jul. 2004 editiert.]

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

---

Hallo SebW,

wenn Du das Objekt der Projektion hast, kannst Du mit der Methode ElemToProject das projizierte Element als Referenz auslesen:

Dim MyProjection As HybridShapeProject
Dim MyProjectedElement As Reference

Set MyProjection = CATIA.ActiveDocument.Part.HybridBodies.Item(`Name des Körpers`).HybridShapes.Item(`Name der Projektion`)
Set MyProjectedElement = MyProjection.ElemToProject

Hope that helps,

Michael

------------------

www.em.ag

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

---

Hallo Michael,

erstmal vielen Dank, aber es hilft mir nicht wirklich weiter.

Ich bekomme immer nur ein Objekt zurück mit dem Namen CATIAReference1, CATIAReference2 usw.

Hab versucht nach erfolgreicher Deklaration so an den namen zu kommen:

  set myreference = hybridshapeproject1.ElemToProject
  referenzname = myreference.name

Aber Ergebnis ist wie oben. Mach ich da irgendwas falsch?

Sebastian

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

---

Hallo SebW,

ich dachte Du meinst "Reference" als CATIA Objekt. Mit folgendem Beispiel kannst Du nicht nur die Reference, sondern das referenzierte Objekt selbst identifizieren.

Der Weg ist zwar weder schön noch eindeutig, da doppelte Namensvergabe in einem Part nicht unterbunden wird. Aber leider gibt das Objekt Referenz nicht viel mehr als den Namen des refernzierten Objekts :-((

Sub CATMain()

    Dim MyParentObject As AnyObject
    Dim MyReference As Reference
    Dim MySelection As Selection
    Dim MyPart As Part
    Dim MyProjection As HybridShapeProject

    '-----Das aktive Dokument muss ein Part sein-----
   
    Set MyPart = CATIA.ActiveDocument.Part
    Set MySelection = CATIA.ActiveDocument.Selection
   
    '-----Es muss genau eine Projektion selektiert sein-----
   
    Set MyProjection = MySelection.Item(1).Value
    MsgBox MyProjection.Name & " identifiziert!"
   
    Set MyReference = MyProjection.ElemToProject
   
    MsgBox MyReference.DisplayName
   
    '-----Durch den DisplayName der Refernce und FindObjectByName kommt man auf das Parent.-----
   
    Set MyParentObject = MyPart.FindObjectByName(MyReference.DisplayName)
   
    MsgBox MyParentObject.Name & " im Body " & MyObject.Parent.Parent.Name & " gefunden!"

End Sub

Hope that helps,

Michael

------------------

www.em.ag


Geschäftsprozesse

|

CAD|CAE

|

Software

|

PDM|PLM

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

---

Vielen Dank,

hat gut funktioniert. Knackpunkt ist das XXXX.displayname

Seb

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

---

Hallo,
ich möchte in einem Product in 2 verschiedenen Parts jeweils einen Punkt auswählen und diese mit einer Coincidence verknüpfen.
Leider bekomme ich das nicht hin. Gibt es dafür eine Möglichkeit?
Danke Jan

Language="VBSCRIPT"

Sub CATMain()

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument

Dim product1 As Product
Set product1 = productDocument1.Product

Dim products1 As Products
Set products1 = product1.Products

'Dim sInputPath As CATBSTR
'sInputPath = CATIA.FileSelectionBox("FileOpen", "*", CATFileSelectionModeOpen)
'MsgBox sInputPath

'Dim arrayOfVariantOfBSTR1(0)
'arrayOfVariantOfBSTR1(0) = sInputPath
'products1.AddComponentsFromFiles arrayOfVariantOfBSTR1, "All"

Dim reference1 As Reference
Dim reference2 As Reference

Dim InputObjectType1(0)
Set Document = CATIA.ActiveDocument
Selection.Clear
Set Selection = Document.Selection
InputObjectType1(0)="Point"
Status=Selection.SelectElement2(InputObjectType1,"Select a Point",true)
Set reference1 = Selection.Item(1).Reference

'MsgBox  reference1.DisplayName

Dim InputObjectType2(0)
Set Document = CATIA.ActiveDocument
Selection.Clear
Set Selection = Document.Selection
InputObjectType2(0)="Vertex"
Status=Selection.SelectElement2(InputObjectType2,"Select a Point",true)
Set reference2 = Selection.Item(1).Reference

'MsgBox  reference2.DisplayName

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

Dim constraint1 As Constraint
Set constraint1 = constraints1.AddBiEltCst(catCstTypeOn, reference1, reference2)

'product1.Update
End Sub

------------------
http://www.geocities.com/francesfo/smskip.gif

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