---

Hallo,

ich bin neu hier und hab gleich mal ne Frage.
Ich habe per Recorder ein Macro mitgeschnitten und es ein wenig angepasst.
Es soll innerhalb eines Produktes ein Part erzeugt werden, welchen durch Inputbox einen Namen zugewiesen bekommt und dann soll dort ein Punkt erzeugt werden.
Leider meckert CATIA "The method Item failed" bei der Zeile "Set partDocument1 = documents1.Item(Partname)"

Woran liegt das? Im aufgenommenen Macro steht da "neu.CATPart", also habe ich dafür einfach die Variable "Partname" eingesetzt.

Vielen Dank im Voraus sagt Dirk 

Vollständiger CODE:

Language="VBSCRIPT"

Sub CATMain()

Partname = Inputbox ("Bitte geben Sie den Partnamen ein!" , "Partname", Partname)

Set productDocument1 = CATIA.ActiveDocument

Set product1 = productDocument1.Product

Set products1 = product1.Products

Set product2 = products1.AddNewComponent("Part", Partname)

Set documents1 = CATIA.Documents

Set partDocument1 = documents1.Item(Partname)

Set part1 = partDocument1.Part

Set hybridBodies1 = part1.HybridBodies

Set hybridBody1 = hybridBodies1.Add()

Set hybridShapeFactory1 = part1.HybridShapeFactory

Set hybridShapePointCoord1 = hybridShapeFactory1.AddNewPointCoord(1.000000, 1.000000, 1.000000)

Set axisSystems1 = part1.AxisSystems

Set axisSystem1 = axisSystems1.Item("Absolute Axis System")

Set reference1 = part1.CreateReferenceFromObject(axisSystem1)

hybridShapePointCoord1.RefAxisSystem = reference1

hybridBody1.AppendHybridShape hybridShapePointCoord1

part1.InWorkObject = hybridShapePointCoord1

part1.Update

End Sub

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

---

Morgen,

hier liegt der Fehler:

Set partDocument1 = documents1.Item(Partname) muss heißen

Set partDocument1 = documents1.Item(Partname & ".CATPart")

Dann geht es an dieser Stelle weiter!

Locke101

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

---

Vielen Dank...hatte es ähnlich probiert, nur das & vergessen!

Schönes Wochenende

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