CAD Fórum : Delit v meritku https://www.cadforum.cz/forum/ Sun, 16 Aug 2026 20:04:58 +0000 Fri, 15 Jul 2005 14:53:07 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=1108 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Delit v meritku : Funguje. Uz jen nejaky kosmeticky...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=1108&PID=4472&title=delit-v-meritku#4472 Autor: Asterix
Předmět: 1108
Zasláno: 15.čvc.2005 v 14:53

Funguje. Uz jen nejaky kosmeticky upravy a je hotovo. Klidne pak dam makro k dispozici kdyz bude zajem. Jeste jednou dekuju vsem a preji hezky den. ]]> Fri, 15 Jul 2005 14:53:07 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=1108&PID=4472&title=delit-v-meritku#4472 <![CDATA[Delit v meritku : Děkuju moc. Projdu to. Hezký den....]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=1108&PID=4465&title=delit-v-meritku#4465 Autor: Asterix
Předmět: 1108
Zasláno: 15.čvc.2005 v 12:37

Děkuju moc. Projdu to. Hezký den. L.]]> Fri, 15 Jul 2005 12:37:11 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=1108&PID=4465&title=delit-v-meritku#4465 <![CDATA[Delit v meritku : Mrkněte se na kurz 13 na stránceTéma...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=1108&PID=4462&title=delit-v-meritku#4462 Autor: Vladimír Michl
Předmět: 1108
Zasláno: 15.čvc.2005 v 11:00

Mrkněte se na kurz 13 na stránce Téma - programování AutoCADu a Inventoru, třeba vám to pomůže:
http://www.cadforum.cz/cadforum/tema.asp]]> Fri, 15 Jul 2005 11:00:27 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=1108&PID=4462&title=delit-v-meritku#4462 <![CDATA[Delit v meritku : Podle mého je zásadní nepochopení...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=1108&PID=4456&title=delit-v-meritku#4456 Autor: Seiner
Předmět: 1108
Zasláno: 15.čvc.2005 v 08:41

Podle mého je zásadní nepochopení v tom, že tam nemůžete napsat text "prvky(i)". Metoda SendCommand v podstatě posílá texty na příkazovou řádku. Napsala byste na příkazovou řádku prvky(i) a očekávala nějaký výsledek?
Přiznám se, že jsem ještě podobnou konstrukci nepoužil a teď nevím, jak to udělat. V lispu bych se odkazoval na proměnnou, ve které by byla příslušná entita. Možná nějaká konstrukce s příkazem "VYBER" a vybrání Předchozí.]]> Fri, 15 Jul 2005 08:41:01 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=1108&PID=4456&title=delit-v-meritku#4456 <![CDATA[Delit v meritku : Zatim jen tak provizorne. Mám...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=1108&PID=4455&title=delit-v-meritku#4455 Autor: Asterix
Předmět: 1108
Zasláno: 15.čvc.2005 v 08:27

Zatim jen tak provizorne. Mám ve výkresu jen 2 usecky a na tom to zkousim.

For i = 0 To 1
Set prvky(i) = ThisDrawing.ModelSpace.Item(i)
Next i

]]> Fri, 15 Jul 2005 08:27:58 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=1108&PID=4455&title=delit-v-meritku#4455 <![CDATA[Delit v meritku : Tak sem tu zas. Zkousela jsem...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=1108&PID=4454&title=delit-v-meritku#4454 Autor: Asterix
Předmět: 1108
Zasláno: 15.čvc.2005 v 08:19

Tak sem tu zas. Zkousela jsem jiny typ cyklu, kde se pouzivaji indexy, ale nepomohlo to.  Nevim jak mam v prikazu SendCommand napsat parametr prvky(i) tak, aby to pak v prikazove radce nehlasilo chybu *Neplatny vyber*, Ocekava se jediny objekt.

Dim prvky(0 To 10) As AcadEntity

For i = 0 To N
 prvky(i).Offset (-10)
 ThisDrawing.SendCommand "_measure" & vbCr & "prvky(i)" & vbCr & "b" & vbCr & "geohaie2" & vbCr & "a" & vbCr & "10" & vbCr
Next i

]]> Fri, 15 Jul 2005 08:19:07 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=1108&PID=4454&title=delit-v-meritku#4454 <![CDATA[Delit v meritku : A jak tvorite tu vyberovou mnozinu?...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=1108&PID=4453&title=delit-v-meritku#4453 Autor: Seiner
Předmět: 1108
Zasláno: 15.čvc.2005 v 08:18

A jak tvorite tu vyberovou mnozinu?]]> Fri, 15 Jul 2005 08:18:29 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=1108&PID=4453&title=delit-v-meritku#4453 <![CDATA[Delit v meritku : Ja to zkousela oboji, ale chovalo...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=1108&PID=4444&title=delit-v-meritku#4444 Autor: Asterix
Předmět: 1108
Zasláno: 14.čvc.2005 v 16:00

Ja to zkousela oboji, ale chovalo se stejne. Ted to z nejakeho duvodu nefunguje najednou vubec. V prikazove radce v cadu to hlasi chybu Neplatny vyber.Ocekava se jediny objekt. A to i v pripade, kdy je ve vyberu jen 1 prvek. Pro dnesek to vzdavam. Dekuju za pomoc.]]> Thu, 14 Jul 2005 16:00:53 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=1108&PID=4444&title=delit-v-meritku#4444 <![CDATA[Delit v meritku : Jen při zběžném pohledu mi nesedí...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=1108&PID=4442&title=delit-v-meritku#4442 Autor: Seiner
Předmět: 1108
Zasláno: 14.čvc.2005 v 15:32

Jen při zběžném pohledu mi nesedí ...& vbCr & "vyber" & vbCr & "b"...

Vy tam posíláte text vyber, ale podle mého by tam měla být proměnná prvky.

]]> Thu, 14 Jul 2005 15:32:50 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=1108&PID=4442&title=delit-v-meritku#4442 <![CDATA[Delit v meritku : Tak sem neco nasla, ale neni to...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=1108&PID=4439&title=delit-v-meritku#4439 Autor: Asterix
Předmět: 1108
Zasláno: 14.čvc.2005 v 15:12

Tak sem neco nasla, ale neni to uplne ono. Asi mam spatne paramtery. SendCommand poustim v cyklu, ale provede se to pouze u posledniho prvku. Nemohl byste mi jeste poradit? Zapsane to mam nejspis uplne hrozne takhle:

For Each prvky In vyber
ThisDrawing.SendCommand "_measure" & vbCr & "vyber" & vbCr & "b" & vbCr & "geohaie2" & vbCr & "a" & vbCr & "10" & vbCr
 Next prvky

prvky je promenna Dim prvky As AcadEntity

vyber je Dim vyber As AcadSelectionSet

 

]]> Thu, 14 Jul 2005 15:12:34 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=1108&PID=4439&title=delit-v-meritku#4439