Hallo Michael,
unten findest Du ein Beispiel, wie Du die referenzierte Datei in einer Zeichenansicht findest. Diese zu öffnen dürfte dann kein Problem mehr sein,...
function x()
Set swApp = CreateObject("SldWorks.Application")
Set Model = swApp.ActiveDoc
Dim ModName As String
Dim RefModel As Object
Dim ConfigName As String
Set view = Model.GetFirstView
Set view = view.GetNextView
ConfigName = view.ReferencedConfiguration
ModName = view.GetReferencedModelName()
modelopen ModName ;modelopen ist Eigenbau zum Öffnen von SW-Dateien
Set RefModel = swApp.ActiveDoc
Function modelopen(modelname)
'öffnet Datei "modelname" je nach Endung
Set swApp = CreateObject("SldWorks.Application")
'EText = modelname
ending = Right(modelname, 3)
If ending = "prt" Then Set Part = swApp.OpenDoc(modelname, 1)
If ending = "PRT" Then Set Part = swApp.OpenDoc(modelname, 1)
If ending = "asm" Then Set Asm = swApp.OpenDoc(modelname, 2)
If ending = "ASM" Then Set Asm = swApp.OpenDoc(modelname, 2)
If ending = "drw" Then Set Drw = swApp.OpenDoc(modelname, 3)
If ending = "DRW" Then Set Drw = swApp.OpenDoc(modelname, 3)
Set Part = swApp.ActivateDoc(modelname)
swApp.UserControl (True)
End Function
p.s. (nur für Michael)
Bosch und Wickler für Elasthan????
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP