CAD Fórum : Vykresova vlastnost do Uzivatelskej https://www.cadforum.cz/forum/ Mon, 27 Jul 2026 06:22:52 +0000 Thu, 16 Mar 2017 19:15:56 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=23999 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Vykresova vlastnost do Uzivatelskej : Dakujem, vyskusam. Este sa chcem...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=23999&PID=106062&title=vykresova-vlastnost-do-uzivatelskej#106062 Autor: DM1
Předmět: 23999
Zasláno: 16.bře.2017 v 19:15

Dakujem, vyskusam. Este sa chcem spytat akym sposobom preniest cez iLogic napr. fyz. vlastnost Hmotnost do CustomProp vo vykrese. V peciatke ju mam zadefinovanu ako MASS no neviem ako to v Ilogicu sformulovat aby sa MASS ( po vlozeni nejakeho modelu) ked sa aktualizuje hodnota preniesla do danej CustomProp. 
Mam to takto ale v CustomProp sa to stale len prepise na Hodnotu Yes/No. Kde robim chybu? Dakujem.

If mass = iProperties.Mass TheniProperties.Value("Custom", "Hmotnost") = mass = iProperties.MassEnd If
]]> Thu, 16 Mar 2017 19:15:56 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=23999&PID=106062&title=vykresova-vlastnost-do-uzivatelskej#106062 <![CDATA[Vykresova vlastnost do Uzivatelskej : Tato kontrola je špatně, protože...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=23999&PID=104954&title=vykresova-vlastnost-do-uzivatelskej#104954 Autor: Navara
Předmět: 23999
Zasláno: 06.bře.2017 v 08:22

Tato kontrola je špatně, protože ověřujete hodnotu typu Integer jako Boolean. Navíc hodnota  
ThisDrawing.Document.Sheets.Count
je vždy větší, nebo rovna 1.
 
Ukázka zjištění čísla listu podle jeho názvu
Sub Main 
 MsgBox(GetSheetIndex(ActiveSheet.Name))
End Sub
Function GetSheetIndex(activeSheetName As String) As Integer
    Dim drawing As DrawingDocument = ThisDrawing.Document
    Dim sheetIndex As Integer = 1
    For Each sheet As Sheet In drawing.Sheets
        If sheet.Name = activeSheetName Then
            Return sheetIndex
        Else
            sheetIndex += 1
        End If
    Next
    Return 0
End Function
 
 
]]> Mon, 06 Mar 2017 08:22:40 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=23999&PID=104954&title=vykresova-vlastnost-do-uzivatelskej#104954 <![CDATA[Vykresova vlastnost do Uzivatelskej : Dakujem pomohlo.Vyriesil som...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=23999&PID=104953&title=vykresova-vlastnost-do-uzivatelskej#104953 Autor: DM1
Předmět: 23999
Zasláno: 05.bře.2017 v 23:05

Dakujem pomohlo.

Vyriesil som to takto : 


If ThisDrawing.Document.Sheets.Count Then
iProperties.Value("Custom", "Pocet listov") = ThisDrawing.Document.Sheets.Count
End If

Co sa tyka cisla listu, dalo by sa to definovat tak ze si vytvorim X Custom Properties napr Cislo listu 1 ... X
a v iLogicu definujem, ktory list cislo X sa ma prenasat do vybranej vlastnosti ? 

Na definovanie poradoveho cisla sluzi tato f-cia? 

ActiveSheet.Name

]]> Sun, 05 Mar 2017 23:05:32 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=23999&PID=104953&title=vykresova-vlastnost-do-uzivatelskej#104953 <![CDATA[Vykresova vlastnost do Uzivatelskej : Počet listů se zjistí snadno...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=23999&PID=104952&title=vykresova-vlastnost-do-uzivatelskej#104952 Autor: Navara
Předmět: 23999
Zasláno: 05.bře.2017 v 16:08

Počet listů se zjistí snadno takto: 
ThisDrawing.Document.Sheets.Count

ale číslo aktuálního listu nedává smysl, protože těžko určíte, který list má brát v jako aktuální. Pokud to dokážete specifikovat, pak se dá najít i pořadové číslo.

]]> Sun, 05 Mar 2017 16:08:43 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=23999&PID=104952&title=vykresova-vlastnost-do-uzivatelskej#104952 <![CDATA[Vykresova vlastnost do Uzivatelskej : Takze vyriesil som to nakoniec...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=23999&PID=104951&title=vykresova-vlastnost-do-uzivatelskej#104951 Autor: DM1
Předmět: 23999
Zasláno: 05.bře.2017 v 15:08

Takze vyriesil som to nakoniec takto :

If ActiveSheet.Size = "A0" TheniProperties.Value("Custom", "Format")="A0"End IfIf ActiveSheet.Size = "A1" TheniProperties.Value("Custom", "Format")="A1"End IfIf ActiveSheet.Size = "A2" TheniProperties.Value("Custom", "Format")="A2"End IfIf ActiveSheet.Size = "A3" TheniProperties.Value("Custom", "Format")="A3"End IfIf ActiveSheet.Size = "A4" TheniProperties.Value("Custom", "Format")="A4"End If
Je potrebne ale definovat Custom properties napr. Format vo vykrese. Do modelu resp. zostavy to preniest zatial neviem.
Neviete aka f-cia v iLogicu je pre pocet listov a poradove cislo listu?


Upravil DM1 - 05.bře.2017 v 23:08]]>
   
   Sun, 05 Mar 2017 15:08:21 +0000
   https://www.cadforum.cz/forum/forum_posts.asp?TID=23999&PID=104951&title=vykresova-vlastnost-do-uzivatelskej#104951
   
  
   <![CDATA[Vykresova vlastnost do Uzivatelskej : Mě vše programuje kolega. Zeptam...]]>
   https://www.cadforum.cz/forum/forum_posts.asp?TID=23999&PID=104940&title=vykresova-vlastnost-do-uzivatelskej#104940
   
    Autor: maiklss
Předmět: 23999
Zasláno: 04.bře.2017 v 20:50

Mě vše programuje kolega. Zeptam se ho v pondělí pokud vám neporadi někdo zde.]]>
   
   Sat, 04 Mar 2017 20:50:07 +0000
   https://www.cadforum.cz/forum/forum_posts.asp?TID=23999&PID=104940&title=vykresova-vlastnost-do-uzivatelskej#104940
   
  
   <![CDATA[Vykresova vlastnost do Uzivatelskej : V iLogic-u nie som zbehly len...]]>
   https://www.cadforum.cz/forum/forum_posts.asp?TID=23999&PID=104939&title=vykresova-vlastnost-do-uzivatelskej#104939
   
    Autor: DM1
Předmět: 23999
Zasláno: 04.bře.2017 v 20:46

V iLogic-u nie som zbehly len sa ucim, viete mi poradit, naviest ako by ta f-cia mala vyzerat? 

Upravil DM1 - 04.bře.2017 v 22:39]]>
   
   Sat, 04 Mar 2017 20:46:07 +0000
   https://www.cadforum.cz/forum/forum_posts.asp?TID=23999&PID=104939&title=vykresova-vlastnost-do-uzivatelskej#104939
   
  
   <![CDATA[Vykresova vlastnost do Uzivatelskej : Asi by to šlo nastavit aby se...]]>
   https://www.cadforum.cz/forum/forum_posts.asp?TID=23999&PID=104938&title=vykresova-vlastnost-do-uzivatelskej#104938
   
    Autor: maiklss
Předmět: 23999
Zasláno: 04.bře.2017 v 20:43

Asi by to šlo nastavit aby se kopirovala vlastnost třeba při uložení dokumentupomoci i-logic.]]>
   
   Sat, 04 Mar 2017 20:43:07 +0000
   https://www.cadforum.cz/forum/forum_posts.asp?TID=23999&PID=104938&title=vykresova-vlastnost-do-uzivatelskej#104938
   
  
   <![CDATA[Vykresova vlastnost do Uzivatelskej : Zdravim,je mozne preniest vykresovu...]]>
   https://www.cadforum.cz/forum/forum_posts.asp?TID=23999&PID=104937&title=vykresova-vlastnost-do-uzivatelskej#104937
   
    Autor: DM1
Předmět: 23999
Zasláno: 04.bře.2017 v 19:43

Zdravim,
je mozne preniest vykresovu vlastnost napr. format, ktoru mam definovanu v razitku vykresu do uzivatelskej vlastnosti modelu resp. zostavy ktoru vlozim do vykresu?
Dakujem.
]]>
   
   Sat, 04 Mar 2017 19:43:43 +0000
   https://www.cadforum.cz/forum/forum_posts.asp?TID=23999&PID=104937&title=vykresova-vlastnost-do-uzivatelskej#104937