CAD Fórum : Docasne uchopy na cely prikaz KRIVKA https://www.cadforum.cz/forum/ Sun, 05 Jul 2026 17:28:03 +0000 Thu, 08 Jan 2009 19:39:22 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=7824 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Docasne uchopy na cely prikaz KRIVKA : To Ferdinand: všechno je to nastavení...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=7824&PID=39698&title=docasne-uchopy-na-cely-prikaz-krivka#39698 Autor: Kackac
Předmět: 7824
Zasláno: 08.led.2009 v 19:39

To Ferdinand: všechno je to nastavení úchopů, takže
pol = polovina (úchop na poloměr není, pouze na kvadrant, ten je česky kva)
prů = průsečík (ta diakritika mi v cadu furt nějak nevoní)
kon = koncový
]]> Thu, 08 Jan 2009 19:39:22 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=7824&PID=39698&title=docasne-uchopy-na-cely-prikaz-krivka#39698 <![CDATA[Docasne uchopy na cely prikaz KRIVKA : Neznám české zkratky - proto (jen...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=7824&PID=39689&title=docasne-uchopy-na-cely-prikaz-krivka#39689 Autor: Ferdinand
Předmět: 7824
Zasláno: 08.led.2009 v 18:57

Neznám české zkratky - proto (jen ze zvědavosti) se zeptám:
pol = polovina anebo poloměr? (_mid OR _Radius)
prů = průsečík anebo průměr? (_int OR _Diameter)
kon = koncový bod? (_endp)
]]> Thu, 08 Jan 2009 18:57:05 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=7824&PID=39689&title=docasne-uchopy-na-cely-prikaz-krivka#39689 <![CDATA[Docasne uchopy na cely prikaz KRIVKA : Zdravim,děkuji moc za návrhy,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=7824&PID=39687&title=docasne-uchopy-na-cely-prikaz-krivka#39687 Autor: johny
Předmět: 7824
Zasláno: 08.led.2009 v 18:05

Zdravim,
děkuji moc za návrhy, omlouvám se ze jsem chvíli pro pracovní vytízení nezasahoval (a bohužel ani nesledoval)... A taky se me podařilo vymyslet nějaké řešení (myslím, že zajímavou fintou-popisu nize)

Nicméně děkuji za řádek   (while (> (getvar 'cmdactive) 0) (command pause))   tohle se dá určitě výhodně využít nejen v tomto případě :)

Předně popíšu motivaci (resp. už to takle pouzívam dlouho a je to velmi velmi rychlé - ted jsem se rozhodl to jeste vylepsit).
V dopravnich situacich se stale vybarvuji plochy - uz jsem zkousel hodne metod, a prestoze autodesk casto ty funkce vylepsuje (srafa bodem, hromande slucovani usecek a oblouku do krivek... však stale trvaji zname problemy - male mezery (nekdy nebere ani kdyz mam mereza s jistotou neni), nebo navazujici oblouky)    
Proste me z toho porad vychazi, ze nejlepsi je to proste oklikat krivkou a pak vybarvit. No a toto oklikavani-hlavne caste stridani usecka-oblouku, resp. oblouky vubec - je dost narocne rekneme na "prstoklad" :)

Cil: Zmenit prstoklad pri zadavani krivky na jinak zridka vyuzivane klavesy F9-F11, F12.
Takle mam makra v _cui pro Klaveskove zkratky F9-F12
F9, která spusti prikaz krivka se spravnymi uchopy a stejnym tlacitkem se na konci uzavre (proto C:Uzavři, ktery tu řešíme)
'-uchop kon,pol,prů,nej Ečka Uzavři;
  - lisp Uzavři je pořád stejny (zatim) (defun C:uzavři() (command "'uchop" "kon,pol") (command "_pline") (princ))
  - jinak je tu ta finta - uchopy se znovu nastavuji při uzavřeni (ano, musim vsechny zavrit, jinak se to nenastavi)
F10, nastavuje usečkove useky
 e (mezera "e" mezera)
F11, nastavuje obloukove useky (rovnou druhy bod)
o d (zas mezera nakonci)
F12 - zde je lisp, ktery vybrane krivky vyšrafuje solidem dle hladiny krivky a obe hodi uplne dospod (v pripadě zájmu mohu lisp poskytnout - reps. chci ho jeste doladit, aby pokud nejsou vybrane zadne krivky, tak vzal posledni objekt, pokud je to krivka)

Jeste detaily k uchopum
pri podrzeni F10 - uzije se uchop kolmo
pri podrzeni F11 - uzije se uchop nejbl

Toť vše. Snad to nekomu pomuze k rychlejsimu srafovani :)

K návrhum
- vyuziti cadovkeho _pline nechava otevreny i dalsi moznosti uprav křivky (zpět)
- nutne potrebuji oblouky (prave k kvuli tomu potrebuji uchop pol; prů se moc nevyuzije, vetsinou stejny s kon.

PS Omlouvam se pokud nejsem ve spravne diskusni skupine, pac rekl bych, ze toto nema s programovanim moc spolecneho, je to spis "vyuzivani" moznosti autocadu :)
]]> Thu, 08 Jan 2009 18:05:39 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=7824&PID=39687&title=docasne-uchopy-na-cely-prikaz-krivka#39687 <![CDATA[Docasne uchopy na cely prikaz KRIVKA : Samozrejme. U puvodniho dotazu...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=7824&PID=39579&title=docasne-uchopy-na-cely-prikaz-krivka#39579 Autor: alfred
Předmět: 7824
Zasláno: 07.led.2009 v 13:16

Samozrejme.

U puvodniho dotazu slo o to, ze pri
(command "_pline")

se hned provadely dalsi prikazy a tedy nefungovala docasna zmena uchopu po celou dobu bezneho nakresleni krivky a navrat uchopu zpet po dokonceni krivky.
To je myslim vyreseno radkou
(while (> (getvar 'cmdactive) 0) (command pause))

V automatickem uzavreni krivky namisto rucniho nevidim zadnou vyhodu. ]]> Wed, 07 Jan 2009 13:16:24 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=7824&PID=39579&title=docasne-uchopy-na-cely-prikaz-krivka#39579 <![CDATA[Docasne uchopy na cely prikaz KRIVKA : alfred napsal(a):...až budu...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=7824&PID=39577&title=docasne-uchopy-na-cely-prikaz-krivka#39577 Autor: Ferdinand
Předmět: 7824
Zasláno: 07.led.2009 v 12:51

Původně odeslal(a) alfred alfred napsal(a):

...až budu chtít ukončit a uzavřít pline, tak místo bodu napíšu "U" enter a hotovo, ne?
To je ale úplně stejné, jako při běžném kreslení polyline...Smile


Upravil Ferdinand - 07.led.2009 v 13:23]]> Wed, 07 Jan 2009 12:51:28 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=7824&PID=39577&title=docasne-uchopy-na-cely-prikaz-krivka#39577 <![CDATA[Docasne uchopy na cely prikaz KRIVKA : Anebo (defun C:KRIVKA2 (/ B1...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=7824&PID=39576&title=docasne-uchopy-na-cely-prikaz-krivka#39576 Autor: Ferdinand
Předmět: 7824
Zasláno: 07.led.2009 v 12:45

Anebo
(defun C:KRIVKA2 (/ B1 OSM)
(setq OSM (getvar "osmode"))
(setvar "osmode" 33)
(command "_pline" Pause ^C^C)
(setq B1 (getvar "lastpoint"))
(command "_pline" B1)
(setq B1 (getpoint B1))
(while B1
(command B1 Pause)
(setq B1 (getpoint B1))
)
(command "_C")
(setvar "osmode" OSM)
(princ)
)
...ale tahání provádí z předpředešlého bodu...(?)
Dle mého názoru je to ale zbytečná frajeřina - je lepší kreslit prostě normálně polyline a na konci dát _C - je to jen 1 klávesa...


Upravil Ferdinand - 07.led.2009 v 13:25]]> Wed, 07 Jan 2009 12:45:07 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=7824&PID=39576&title=docasne-uchopy-na-cely-prikaz-krivka#39576 <![CDATA[Docasne uchopy na cely prikaz KRIVKA : pavelstyl napsal(a):A nestačilo...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=7824&PID=39533&title=docasne-uchopy-na-cely-prikaz-krivka#39533 Autor: alfred
Předmět: 7824
Zasláno: 06.led.2009 v 11:52

Původně odeslal(a) pavelstyl pavelstyl napsal(a):

A nestačilo by toto?


Mát několik nevýhod:
-nelze ukončit příkaz - chybí funkce *error*
-nelze využít možností kreslení křivky - kreslení obloukových částí, tloušťky, vracení se zpět, tloušťka...

Ale jinak to tak jde. :-D

]]> Tue, 06 Jan 2009 11:52:25 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=7824&PID=39533&title=docasne-uchopy-na-cely-prikaz-krivka#39533 <![CDATA[Docasne uchopy na cely prikaz KRIVKA : Ferdinand napsal(a):Takhle...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=7824&PID=39532&title=docasne-uchopy-na-cely-prikaz-krivka#39532 Autor: alfred
Předmět: 7824
Zasláno: 06.led.2009 v 11:44

Původně odeslal(a) Ferdinand Ferdinand napsal(a):

Takhle ale nevytvoří uzavřenou polyline. To chce tam nějak (?) napašovat na konec (po ukončení zadávání bodů).


A proč by nevytvořilo? Prostě až budu chtít ukončit a uzavřít pline, tak místo bodu napíšu "U" enter a hotovo, ne?

Úchop jsem nastavoval koncový a průsečík, zdálo se mi to lepší. Polovina a koncový se mi zdálo nepraktické. Ale hodnota se změní snadno.]]> Tue, 06 Jan 2009 11:44:00 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=7824&PID=39532&title=docasne-uchopy-na-cely-prikaz-krivka#39532 <![CDATA[Docasne uchopy na cely prikaz KRIVKA : A nestačilo by toto? Přikaz KRIVKA1....]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=7824&PID=39530&title=docasne-uchopy-na-cely-prikaz-krivka#39530 Autor: pavelstyl
Předmět: 7824
Zasláno: 06.led.2009 v 11:34

A nestačilo by toto?
Přikaz KRIVKA1. A když se ukončí ENTERem, tak se i uzavře.
 
(defun C:KRIVKA1 (/ p1 osm)
 (setq osm (getvar "OSMODE"))
 (setvar "OSMODE" 33)
 (setq p1 (getpoint "\nZ bodu: "))
 (command "_pline" p1)
 (setq p1 (getpoint p1 "\nDo bodu: "))
 (while p1
  (command p1)
  (setq p1 (getpoint p1 "\nDo bodu: "))
 )
 (command "_c")
 (setvar "OSMODE" osm)
 (princ)
)
 
Pavel Štyl
]]> Tue, 06 Jan 2009 11:34:48 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=7824&PID=39530&title=docasne-uchopy-na-cely-prikaz-krivka#39530 <![CDATA[Docasne uchopy na cely prikaz KRIVKA : Takhle ale nevytvoří uzavřenou...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=7824&PID=39523&title=docasne-uchopy-na-cely-prikaz-krivka#39523 Autor: Ferdinand
Předmět: 7824
Zasláno: 06.led.2009 v 10:58

Takhle ale nevytvoří uzavřenou polyline. To chce tam nějak (?) napašovat na konec (po ukončení zadávání bodů) _C (close). Taky jsem se podíval na tu hodnotu osmode - pro <_endp&_mid> je 16387.]]> Tue, 06 Jan 2009 10:58:19 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=7824&PID=39523&title=docasne-uchopy-na-cely-prikaz-krivka#39523