Před příkaz command vložte řádku
(setq osold (getvar "OSMODE")) ;ta vám uloží aktuální nastavení úchopů

před princ vložte řádku
(setvar "OSMODE" osold) ;nastaví úchopy podle uloženého stavu

osold je libovolný název proměnné, můžete zvolit něco vlastního

Nemuzu to vyzkouset, ale mozna je to tim jednim prikazem command, kde je jak uchopeni tak _pline

Zkuste uchopeni nastavit pomoci
(setvar "OSMODE" hodnota)

kde hodnota je bitový součet hodnot úchopů, které chcete nastavit. Na hodnoty jednotlivých úchopů se koukněte do nápovědy. Když by například byl (hodnoty si vymýšlím):
koncový = 1
průsečík = 2
tak bitový součet je 3 a tedy
(setvar "OSMODE" 3)

a pak zavolat teprve příkaz na kreslení křivky.hodnota

Jinak, pokud nepoužijete funkci *error* , tak pokud skončíte funkci předčasně (například máčknutím ESC při kreslení křivky), tak se příkaz na zpětné nastavení úchopu neprovede.
Příkaz (setvar "OSMODE" osold)
napíšete i do funkce *error*.

Ta křivka byla trochu oříšek, ale na google se to dalo najít během minuty....

Zkopírujte si to do souboru. Pozor, funkce se spouští "UZAVRI" - bez diakritiky.

(defun *error_uzavri* (msg)
  (princ "error: ")
  (setq *error* *old_error*)
  (setvar "OSMODE" osold)
  (princ msg)
  (print)
); defun error

(defun C:uzavri ()
  (setq osold (getvar "OSMODE"))
  (setq *old_error* *error*)(setq *error* *error_uzavri*)
  ;koncový = 1
  ;průsečík = 16
  (setvar "OSMODE" 17)
  (command "_pline")
  (while (> (getvar 'cmdactive) 0) (command pause))
  (setvar "OSMODE" osold)
  (setq *error* *old_error*)
  (princ)
)

A nestačilo by toto?

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

alfred napsal(a): ...až budu chtít ukončit a uzavřít pline, tak místo bodu napíšu "U" enter a hotovo, ne?

Upravil Ferdinand - 07.led.2009 v 13:23

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 :)

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ý