---

Hallo Zusammen
im Part wollte ich die Achsensysteme nach Excel schreiben. Hat funktioniert.
Nun erhoffte ich mir mit einer kleinen Änderung das Gleiche im Produkt zu
bekommen. Es scheitert an dieser Zeile -->

Set oRef = productDocument1.CreateReferenceFromObject(ASys)

Hier der soweit erstellte Code:

Sub CATMain()
'
Dim Pfad As String
Pfad = CATIA.ActiveDocument.Path & "\"
'
Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument
Dim Selection1 As Selection
Set Selection1 = productDocument1.Selection
Selection1.Search "'Part Design'.'Axis System'.Visibility=Shown;all"
'
Set excelsheet = CreateObject("Excel.Application")
excelsheet.Visible = True
Set Achsen = excelsheet.Workbooks.Add
ExcelPathDatei = Pfad & CATIA.ActiveDocument.name & ".xlsx"
'Msgbox ExcelPathDatei
excelsheet.Range("A" & 1).ColumnWidth = 32
excelsheet.Range("B" & 1).ColumnWidth = 20
excelsheet.Range("C" & 1).ColumnWidth = 10
'
Dim Components(3)
Dim k As Integer
Dim n As Integer
k=0
'
For n=1 to Selection1.count
'Excel-Liste erzeugen
excelsheet.Cells(k+n+0, 1).Value = Chr(96) & Selection1.item(n).value.name & "\" & "Origin\X" & Chr(96) & " (mm)"
excelsheet.Cells(k+n+1, 1).Value = Chr(96) & Selection1.item(n).value.name & "\" & "Origin\Y" & Chr(96) & " (mm)"
excelsheet.Cells(k+n+2, 1).Value = Chr(96) & Selection1.item(n).value.name & "\" & "Origin\Z" & Chr(96) & " (mm)"
'
Set ASys =Selection1.item(n).value
Set oRef = productDocument1.CreateReferenceFromObject(ASys)
Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")
Set TheMeasurable = TheSPAWorkbench.GetMeasurable(oRef)
'
TheMeasurable.GetAxisSystem Components
' Ausgabe Part-Dokuments
excelsheet.Cells(k+n+0, 2).Value = Components(0) 
excelsheet.Cells(k+n+1, 2).Value = Components(1)
excelsheet.Cells(k+n+2, 2).Value = Components(2)
'
next
Achsen.SaveAs ExcelPathDatei
End Sub

Wer könnte mir hierzu weiterhelfen.

------------------
mfg
Erich

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

---

Servus Erich

Hier hatte ich schon mal einen Code gepostet, wie man ein Achsensystem in einer Baugruppe misst. (und die Reference erstellt)
Ich hoffe dass hilft schon mal weiter.

Gruß
Bernd

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

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

---

Script-Fehler.PNG

Hallo Bernd
gerade dort wo ich mein Problem habe steigt Dein Script leider
auch aus?

------------------
mfg
Erich

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

---

Servus Erich

hast du auch alle entsprechenden Unterfunktionen (Function) in dein CATScript/catvba intrigiert (reinkopiert)?

Gruß
Bernd

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

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

---

Hallo Bernd
meine Fehler, mit, läuft es durch. Danke

------------------
mfg
Erich

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