---

Mahlzeit!

Bin gerade ein kleines Skript am schreiben, um eine Bemaßung an eine Reihe weiterer Bemaßungen per Formel weiterzugeben, allerdings habe ich ein ganz banales Problem, denn ich weiß nicht wie ich an die gerade geöffnete skizze komme.. Vielleicht könnt ihr mir mal schnell auf die Sprünge helfen 

Danke schonmal und Gruß!

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

---

Du kannst das über einen kleinen Umweg schaffen, indem du die Suchfunktion im Code verwendest und z.B. nach der x-Achse oder dem Ursprung in der eigenen Skizze suchst. Diese Selektion dann auswerten über die .parent und du bekommst die Skizze.

EDIT: hier ein Beispielcode

Sub CATMain()

Dim productDocument1 As ProductDocument
Set productDocument1 = CATIA.ActiveDocument

Dim selection1 As Selection
Set selection1 = productDocument1.Selection

selection1.Search "CATSketchSearch.2DAxis_Origin,in"

Dim selpoint As Point2D
Set selpoint = selection1.Item(1).Value

Dim ActiveSketchName As String
ActiveSketchName = selpoint.Parent.Parent.Parent.Name

Dim ActiveDocPartNumber As String
ActiveDocPartNumber = selpoint.Parent.Parent.Parent.Parent.Parent.Parent.Parent.Name

Dim ActiveDocName As String
ActiveDocName = selpoint.Parent.Parent.Parent.Parent.Parent.Parent.Parent.Parent.Name

MsgBox "Dokumentenname: " & ActiveDocName & vbLf & "Partnumber: " & ActiveDocPartNumber & vbLf & "Skizzenname: " & ActiveSketchName

End Sub

------------------
Grüße aus dem Thurgau
Thomas

+++++++++++++++++++++++++++++++++

CATIA - eine Laune der Natur ...

[Diese Nachricht wurde von tberger am 12. Jun. 2012 editiert.]

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

---

Danke Thomas, so klappt es! 10 Us für dich!

P.S.

so habe ich es jetzt gemacht:

Code:

---

Set selection1 = partDocument1.Selection

selection1.Search "CATSketchSearch.SketchSupport,in"

Set sketch1 = selection1.Item(1).Value.Parent.Parent

---

[Diese Nachricht wurde von geekv5 am 12. Jun. 2012 editiert.]

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