Vytisknout stránku | Zavřít okno

ČÁST PRAVIDLA - read only

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: iLogic a ETO
Popis fóra: Funkce a makra iLogic, Inventor Engineering to Order (ETO), automatizace a konfigurace výrobků
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=25723
Datum vytištění: 04.kvě.2026 v 17:13


Téma: ČÁST PRAVIDLA - read only
Odeslal: Lukáš Záruba
Předmět: ČÁST PRAVIDLA - read only
Datum odeslání: 23.úno.2018 v 09:39
Zdravím, potřebuji napsat část pravidla, které mi před vlastním úkonem daného pravidla koukne na soubor nebo složku a pokud je jen pro čtení nebo se doněj nedá zapisovat z důvodu že je z jiného projektu tak zastaví pravidlo. Ví někdo jak to napsat a bude tak a laskav a podělí se o to?

-------------
Budu rád za radu i případně všelijaké postřehy.


Odpovědi:
Odeslal: Petr Klimeš
Datum odeslání: 23.úno.2018 v 10:08
Dobrý den,
můžete použít následující fragment, který vypíše, zda dokument, ve kterém pravidlo spouštíte je readonly :

Imports System.IO
Sub Main()

Dim oDoc As PartDocument = ThisDoc.Document

Dim oDocName As String = oDoc.FullDocumentName

Dim oReadOnlyDocument As Boolean = IsFileReadOnly(oDocName)

If oReadOnlyDocument Then

    MsgBox(oDocName + " = true")

Else

    MsgBox(oDocName + " = false")

End If

End Sub

 Function IsFileReadOnly(ByVal FileName As String) As Boolean

        Dim fInfo As New FileInfo(FileName)

        Return fInfo.IsReadOnly

End Function

Odeslal: Vladimír Michl
Datum odeslání: 23.úno.2018 v 10:12
Anebo prostě zkusit zapsat - a ošetřit přes Try/Catch.

-------------
Vladimír Michl (moderátor)
ARKANCE CZ - https://arkance.world - arkance.world
(podpora viz helpdesk.arkance-systems.cz)

Odeslal: Lukáš Záruba
Datum odeslání: 23.úno.2018 v 10:28
Try/Catch ? co to přesně znamená ? můžete mi to blíže vysvětlit?

-------------
Budu rád za radu i případně všelijaké postřehy.

Odeslal: Vladimír Michl
Datum odeslání: 23.úno.2018 v 10:40
To slouží k odchycení a ošetření možných chyb. Struktura:

Try
příkazy-které-mohou-selhat
Catch
příkazy-co-dělat-když-dojde-k-selhání
End Try


-------------
Vladimír Michl (moderátor)
ARKANCE CZ - https://arkance.world - arkance.world
(podpora viz helpdesk.arkance-systems.cz)

Odeslal: Navara
Datum odeslání: 23.úno.2018 v 11:31
No a co se týká cesty do jiného projektu, tak tam se dá použít objekt
ThisApplication.DesignProjectManager.ActiveDesignProject
 
Ten poskytuje informace o cestách aktuálního projektu. Takže pracovní složky, souborů obsahového centra, knihoven, atd...
Takže se dá testovat, jestli cílový adresáře je/není v některé uvedené cestě.


Vytisknout stránku | Zavřít okno