Beyond Inventor Wizard... The Community!

Autodesk Inventor en AutoCAD Forum

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

Aantal maal bekeken: 443

Hierop reageren

Berichten in deze discussie

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!

bij ons staan deze altijd in dezelfde folder...

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

RSS

Interessante links

Word Fan!

Inventor Wizard Cartoons

Video's

  • Video's toevoegen
  • Alles weergeven

© 2021   Gemaakt door Stefaan Boel.   Verzorgd door

Banners  |  Een probleem rapporteren?  |  Algemene voorwaarden