Hallo Zusammen,
ich möchte eine Zeichnung ableiten, unabhängig davon wie das Part heißt. Dazu frage ich den Partnamen des aktuellen Dokuments ab und will ihn als String für die Variable Prod wiedereinfügen.
Hier mal mein Testprogramm:
Sub CatMain()
'Part markieren
Dim P As Part
Set P = CATIA.ActiveDocument.Part
MsgBox (P.Name)
Dim PName As String
PName = P.Name & ".CATPart"
MsgBox (PName)
'Zeichnung erstellen
Dim D As Document
Set D = CATIA.Documents.Add("Drawing")
D.Standard = catISO
Dim DS As DrawingSheet
Set DS = D.Sheets.Item("Blatt .1")
DS.PaperSize = catPaperA0
DS.[Scale] = 1#
DS.Orientation = catPaperLandscape
'Ansicht erzeugen
Dim DV As DrawingView
Set DV = DS.Views.Add("AutomaticNaming")
Dim Behave As DrawingViewGenerativeBehavior
Set Behave = DV.GenerativeBehavior
Dim Prod As Product
Set Prod = CATIA.Documents.Item("Part1.CATPart").GetItem("Part1")
Behave.Document = Prod
Behave.DefineFrontView 0#, -1#, 0#, 0#, 0#, 1#
DV.X = 500
DV.Y = 250
DV.[Scale] = 1#
Behave.SetGPSName ("DefaultGenerativeStyle.xml")
Set Behave = DV.GenerativeBehavior
Behave.Update
DV.Activate
End Sub
So funktioniert das Programm. Allerdings nur, wenn das Part auch "Part1" heißt.
Mein Ansatz wäre also für Variable Prod die Zeile
Set Prod = CATIA.Documents.Item(PName).GetItem(P.Name)
einzufügen.
Wenn ich das mache stolpert er genau in dieser Zeile und ich weiß nicht warum. Vielleicht hat jemand von euch schon mal ein ähnliches Problem gehabt und kann mir sagen, wo mein Denkfehler liegt. Das wäre eine große Hilfe für mich.
Gruß
lohri
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP