Hallo
Hier ist ein Programm, das zu funktionieren scheint:
Dimmen von invApp als Inventor.Application
Legen Sie invApp = Diese Anwendung fest
'invApp.SilentOperation = Wahr
Dimmen von iptDoc als Inventor.PartDocument
Legen Sie iptDoc = invApp.ActiveDocument fest
Dim iptFile As String
LaserDir = "c:\temp\Makro\"
iptFile = LaserDir + "Temp.ipt"
Mit invApp.CommandManager
Rufen. PostPrivateEvent(kFileNameEvent, iptFile)
Rufen. StartBefehl(kFileSaveCopyAsCommand)
Enden mit
Legen Sie iptDoc = Nichts fest
'invApp.SilentOperation = Falsch
Set invApp = Nichts
' Criar um novo documento baseando-se no Template padrão / Erstellen eines neuen Dokuments basierend auf der Standardvorlage
Dim oDrawnDoc As DrawingDocument
Set oDrawnDoc = ThisApplication.Documents.Add(kDrawingDocumentObject, _
ThisApplication.FileManager.GetTemplateFile(kDrawingDocumentObject))
"************Plotar a peça salva em um arquivo do IDW / Den temporären Teil auf dem IDW verwenden
' Legen Sie eine Referenz auf das Zeichnungsdokument fest.
' Dies setzt voraus, dass ein Zeichnungsdokument aktiv ist.
Dim oDrawDoc als DrawingDocument
Legen Sie oDrawDoc = ThisApplication.ActiveDocument fest
'Setzen Sie einen Bezug auf das aktive Blatt.
Dimmen Sie oSheet als Blatt
Set oSheet = oDrawDoc.ActiveSheet
' Erstellen eines neuen NameValueMap-Objekts
Dim oBaseViewOptions As NameValueMap
Festlegen von oBaseViewOptions = ThisApplication.TransientObjects.CreateNameValueMap
' Öffnen Sie das Modelldokument (entsprechend der Darstellung "MyLODRep").
Dim Abc As String
Abc = ThisApplication.FileManager.GetFullDocumentName("C:\Temp\Macro\Temp.ipt")
Dimmen oModell als Dokument
Legen Sie oModel = ThisApplication.Documents.Open(Abc, False) fest.
' Erstellen Sie das Objekt für den Platzierungspunkt.
oPoint als Point2D dimmen
Set oPoint = ThisApplication.TransientGeometry.CreatePoint2d(10, 25)
' Erstellen Sie eine Erstansicht.
Dimmen von oBaseView als DrawingView
Set oBaseView = oSheet.DrawingViews.AddBaseView(oModel, oPoint, 0.5, kFrontViewOrientation, kHiddenLineRemovedDrawingViewStyle, , , oBaseViewOptions)
Feder:
http://forums.autodesk.com/t5/Inventor-Customization/use-the-loaded-IPT-on-IDW-Through-VBA/m-p/3757811#M41961