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 Professional, Product Design & Manufacturing Collection, Factory Design; digitální prototypy
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=6635
Datum vytištění: 27.čvc.2026 v 01:32


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