Inventor - Otevírání výkresů stejného jména jako aktivní mode

Vytisknout stránku | Zavřít okno

Otevírání výkresů stejného jména jako aktivní mode

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: Inventor
Popis fóra: Otázky k programům Autodesk Inventor, Inventor Professional a Inventor LT, Product Design Collection a Suite, Factory Design Suite; a digitální prototypy
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=6635
Datum vytištění: 25.dub.2026 v 01:41

Téma: Otevírání výkresů stejného jména jako aktivní mode

Odeslal: PeťaT
Předmět: Otevírání výkresů stejného jména jako aktivní mode
Datum odeslání: 17.čer.2008 v 07:03

Dobrý den
U nás dodržujeme pravidlo že výkresový soubor má stejné jméno souboru jako model
toto pravidlo umožňuje vytvořit ikonku která spustí toto makro které automaticky otevře k aktivnímu modelu výkres.

Public Sub myopen()

    Dim sss As String
    Dim s As String
    Dim p
    sss = ThisApplication.ActiveDocument.FullFileName
    p = InStrRev(sss, ".")
    s = Left(sss, p)
    s = s & "idw"

    On Error Resume Next
    Set doc = ThisApplication.Documents.Open(s)

End Sub

Vytisknout stránku | Zavřít okno