Code:
Sub CATMain() Dim ActiveWindow As ProductDocument
Dim MainPRD As Product
Dim TmpNode As Document
Dim ProductName As String
Dim CatiaDocs As Documents
Dim dumDrawDoc As DrawingDocument
Dim DumSheet As DrawingSheet
'CATIA.DisplayFileAlerts = False
'CATIA.RefreshDisplay = False
DoEvents
'On Error Resume Next
'Set ActiveWindow = CATIA.ActiveDocument
'Set MainPRD = ActiveWindow.Product
Set CatiaDocs = CATIA.Documents
Set dumDrawDoc = CatiaDocs.Add("Drawing")
DoEvents
dumDrawDoc.Standard = CatDrawingStandard.catISO
Set dumSheets = dumDrawDoc.Sheets
Set DumSheet = dumSheets.Item("Sheet.1")
DumSheet.PaperSize = CatPaperSize.catPaperA0
DumSheet.Orientation = CatPaperOrientation.catPaperLandscape
DoEvents
For Each TmpNode In CATIA.Documents
If InStr(TmpNode.Name, "CATProduct") > 0 Then
ProductName = TmpNode.Name
CreateView (ProductName)
End If
DoEvents
Next
'CATIA.DisplayFileAlerts = True
'CATIA.RefreshDisplay = True
dumDrawDoc.Update
End Sub
Sub CreateView(ProductName As String)
Dim drawingDocument1 As DrawingDocument
Set drawingDocument1 = CATIA.ActiveDocument
Dim drawingSheets1 As DrawingSheets
Set drawingSheets1 = drawingDocument1.Sheets
Dim drawingSheet1 As DrawingSheet
Set drawingSheet1 = drawingSheets1.ActiveSheet
Dim drawingViews1 As DrawingViews
Set drawingViews1 = drawingSheet1.Views
Dim drawingView1 As DrawingView
Set drawingView1 = drawingViews1.Add("AutomaticNaming")
Dim drawingViewGenerativeLinks1 As DrawingViewGenerativeLinks
Set drawingViewGenerativeLinks1 = drawingView1.GenerativeLinks
Dim drawingViewGenerativeBehavior1 As DrawingViewGenerativeBehavior
Set drawingViewGenerativeBehavior1 = drawingView1.GenerativeBehavior
Dim documents1 As Documents
Set documents1 = CATIA.Documents
Dim productDocument1 As ProductDocument
Set productDocument1 = documents1.Item(ProductName)
Dim product1 As Product
Set product1 = productDocument1.Product
drawingViewGenerativeBehavior1.Document = product1
drawingViewGenerativeBehavior1.DefineFrontView -1#, -0#, -0#, -0#, 1#, 0#
drawingView1.X = 0
drawingView1.Y = 0
drawingView1.[Scale] = 1#
End Sub
Foren auf CAD.de (alle Foren)
| 
