---

Hallo Forum Freunde,
Ich brauche Hilfe, Ich habe versucht eine Makro zuschreiben aber das Funktioniert leider nicht ganz. Ich möchte erst meine Zeichnung Updaten und dann über Makro Fake Dimension (2D Zeichnungsableitung) finden? Gibt es eine beispiele oder eine Vorlage? Könnt ihr euch das mal bitte ansehen?
.............................
Dim drawingDocument1 As DrawingDocument
Update_drawings1
Set drawingDocument1 = CATIA.ActiveDocument

Dim drawingsheets1 As Drawingsheets
Set drawingsheet1 = drawingDocument1.Sheets

Dim drawingsheets1 As Drawingsheets
Set drawingsheet1 = drawingsheet1.Item("Sheet.1")

Dim drawingsheets1 As Drawingsheets
Set drawingsheet1 = drawingsheet1.Views

Dim drawingView1 As DrawingView
Set drawingView1 = drawingViews.Item(view_name)
oerr=Err.Number
if iErr<> o then
catia.Activedocment.close

end if
drawingView1.Lockstatus = False

Dim drawingViewGenerativeBehavior1 As
DrawingViewGenerativeBehavior
Set drawingViewGenerativeBehavior1 = drawing1 GenerativeBehavior
drawingView1.Lockstatus = True
Catia.ActiveDocument.Close
Loop

.....................................

Für jede hilfe bin ich dankbar...
Berfin

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