Witam
Oto program, który wydaje się działać:
Dim invApp jako Inventor.Application
Ustaw invApp = Ta aplikacja
'invApp.SilentOperation = Prawda
Dim iptDoc As Inventor.PartDocument
Ustaw iptDoc = invApp.ActiveDocument
Dim iptFile As Ciąg
LaserDir = "c:\temp\Makro\"
iptFile = KatalogLaserowy + "Temp.ipt"
Za pomocą invApp.CommandManager
Nazwać. PostPrivateEvent(kFileNameEvent, iptFile)
Nazwać. StartCommand(kFileSaveCopyAsCommand)
Zakończ się na
Ustaw iptDoc = Nic
'invApp.SilentOperation = Fałsz
Ustaw invApp = Nic
' Criar um novo documento baseando-se no Template padrão / Utwórz nowy dokument na podstawie standardowego szablonu
Dim oDrawnDoc As DrawingDocument (Dokument rysunkowy)
Set oDrawnDoc = ThisApplication.Documents.Add(kDrawingDocumentObject, _
ThisApplication.FileManager.GetTemplateFile(kDrawingDocumentObject))
'************Plotar a peça salva em um arquivo do IDW / Użyj tymczasowej części na IDW
' Ustaw odniesienie do dokumentu rysunku.
' W tym przypadku zakłada się, że dokument rysunku jest aktywny.
Dim oDrawDoc As DrawingDocument (Dokument_rysunkowy)
Ustaw oDrawDoc = ThisApplication.ActiveDocument
'Ustaw odniesienie do aktywnego arkusza.
Dim oSheet As Arkusz
Set oSheet = oDrawDoc.ActiveSheet
' Utwórz nowy obiekt NameValueMap
Dim oBaseViewOptions As NameValueMap
Set oBaseViewOptions = ThisApplication.TransientObjects.CreateNameValueMap
' Otwórz wzór dokumentu (odpowiadający reprezentacji "MyLODRep").
Dim Abc As Ciąg
Abc = ThisApplication.FileManager.GetFullDocumentName("C:\Temp\Macro\Temp.ipt")
Dim oModel As Document (Wymiar jako dokument)
Set oModel = ThisApplication.Documents.Open(Abc, False)
' Utwórz obiekt punktu umieszczania.
Dim oPoint As Point2D
Set oPoint = ThisApplication.TransientGeometry.CreatePoint2d(10, 25)
' Utwórz rzut bazowy.
Przyciemnij oBaseView jako DrawingView
Set oBaseView = oSheet.DrawingViews.AddBaseView(oModel, oPoint, 0.5, kFrontViewOrientation, kHiddenLineRemovedDrawingViewStyle, , , oBaseViewOptions)
Wiosna:
http://forums.autodesk.com/t5/Inventor-Customization/use-the-loaded-IPT-on-IDW-Through-VBA/m-p/3757811#M41961