Open drawing vanuit part of assy

[Stefaan Boel]

Ook terug te vinden in ons Macro's Labo

Zonet een klein macro'tje geschreven voor mezelf.

Onze onderdelen hebben een benaming zoals: 1627000000-M1.ipt en 1627000000-M1.iam

tekeningen daarintegen zijn 1627000000-01.idw

Dus de standaard inventor functie kan ik niet gebruiken daar de benaming niet hetzelfde is.

Onderstaande macro lost dit voor me op...

   "Sub OpenIDW()
On Error GoTo Oops

Dim oDoc As Document
Set oDoc = ThisApplication.ActiveDocument

Dim sFullFileName As String
sFullFileName = oDoc.FullFileName

Dim sDrawingName As String
sDrawingName = Left(sFullFileName, Len(sFullFileName) - 6) & "01.idw"

Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.Documents.Open(sDrawingName)

Exit Sub

Oops:
MsgBox "Oops! Something went wrong!", vbInformation
End Sub
" 

[Fréderic]

Dus wanneer de idw niet in dezelfde folder staat verschijnt er een fout?

De optie om in andere folders binnen de workspace te zoeken zou wel leuk zijn!

[Stefaan Boel]

bij ons staan deze altijd in dezelfde folder...

moet ik verder uitzoeken als je deze optie er bij wil... :D