Hier der iLogiccode
den ich mal angefangen habe
'define the active document
oDoc = ThisDoc.Document
'create a file dialog box
Dim oFileDlg As inventor.FileDialog = Nothing
InventorVb.Application.CreateFileDialog(oFileDlg)
'check file type and set dialog filter
If oDoc.DocumentType = kPartDocumentObject Then
oFileDlg.Filter = "Autodesk Inventor Part Files (*.ipt)|*.ipt"
Else If oDoc.DocumentType = kAssemblyDocumentObject Then
oFileDlg.Filter = "Autodesk Inventor Assembly Files (*.iam)|*.iam"
Else If oDoc.DocumentType = kDrawingDocumentObject Then
oFileDlg.Filter = "Autodesk Inventor Drawing Files (*.idw)|*.idw"
End If
'set the directory to open the dialog at
oFileDlg.InitialDirectory = ThisDoc.WorkspacePath()
'''''Hier müsste dann das öffnen der einzelnen Zeichnung stehen'''''
If ActiveSheet.Size="A4" And ActiveSheet.Width<=240 Then
ActiveSheet.Border = "Leo-A4"
ActiveSheet.TitleBlock ="Leo"
End If
If ActiveSheet.Size="A3" And ActiveSheet.Width<=420 Then
ActiveSheet.Border = "Leo-A3"
ActiveSheet.TitleBlock ="Leo"
End If
If ActiveSheet.Size="A2" And ActiveSheet.Width<=594 Then
ActiveSheet.Border = "Leo-A2"
ActiveSheet.TitleBlock ="Leo"
End If
If ActiveSheet.Size="A1" And ActiveSheet.Width<=841 Then
ActiveSheet.Border = "Leo-A1"
ActiveSheet.TitleBlock ="Leo"
End If
If ActiveSheet.Size="A0" And ActiveSheet.Width<=1189 Then
ActiveSheet.Border = "Leo-A0"
ActiveSheet.TitleBlock ="Leo"
End If
ThisDoc.Save
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP