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
|