Hallo, wer kann mir helfen, habe folgendes Problem:
Erstelle über Flexible Eingabeparameter in VB6.Programm im Inventor eine zusammenbau zeichnung mit *.iam und *.ipt, diese ist meine Mutter. Das funktioniert gut. Diese muß ich nun unter neuem Namen mit Bezug zueinender in neuem Laufwerk abspeicher.
PS: mit diesem Programm arbeiten 15 Kollegen, wir würden uns jedesmal die Zeichnung zerstören. Ist mein Problem klar???
Kann über mein Programm die *.ipt der *.iam auslesen, leider weiß ich (noch) nicht, wie ich Sie mit der *.am zusammen abspeichern kann!
Hier mein Code meiner Function!
Im voraus vielen Dank!!
Private Function dachLoad() As Boolean
Dim Dachname As String
Dim i As Long
Dim Test As String
On Error Resume Next
Dim oApp As Inventor.Application
Set oApp = GetObject(, "Inventor.Application")
If Err Then
MsgBox "Inventor must be running."
End
End If
On Error GoTo 0
'-- Set a reference to the currently active document.
Dim oDoc As Inventor.Document
Set oDoc = oApp.ActiveDocument
'-- Neuen Pfad zum abspeichern festlegen--------
Dim sFilePath As String
sFilePath = "C:\Programme\BOAKO\InventorInput\"
'-- die *.ipt der *.iam abfragen ------------------------------------------------
Dim oCompDef As ComponentDefinition
Set oCompDef = oDoc.ComponentDefinition
Set oCompDef = oDoc.ComponentDefinition
With oCompDef.ImmediateReferencedDefinitions
For i = 1 To .Count
'-- dach.ipt muß kleingeschrieben weren!!!!!!
Dachname = .Item(i).ReferencedDefinition.Document.FullFileName
If LCase(Right$(Dachname, 4)) = ".ipt" Then
Test = LCase(Right$(Dachname, 10))
''Test = sFilePath & Test
MsgBox "Gefunden : " & Dachname & " Test : " & Test
'----------------------------------------------------------
Else
MsgBox "Nicht gefunden! " & Dachname
End If
Next i
End With
'-- Kopieren für *.iam functioniert ---------------------------------
oDoc.Update
Call oDoc.SaveAs(sFilePath & "Dach_Typ_01.iam", False)
oDoc.Update
Doc.Close
dachLoad = True
End
End Function
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP