Zobrazit plnou verzi příspěvku: Zaobleni obdelniku 1 povelem

orlik
04.02.2009, 21:15
Potrebuji zaoblit asi 100 jiz vytvorenych obdelniku . Kdyby vytvarel nove, dam v povelu R v rozich a neni co resit. Lze nejak jednoduse, bud vse naraz, nebo postupne, zaoblit v obdelniku vsechny rohy najednou? Obdelnik je polylajna.Autocad 2005.Dik

Mikemamm
04.02.2009, 21:26
V Autocadu 2009 funguje prikaz zaobli zadam R nastavim radius napr 50 potvrdim   dale znovu prikaz zaobli zadam K (krivka) a vyberu obdelnik a zaobli se vsechny rohy, predpokladam, ze v 2005 to bude stejne, zkuste to

edit : na dalsi obdelniky pouziji pouze prikaz zaobli - vyberu krivka a je toMikemamm2009-02-04 21:27:30

vbehun
04.02.2009, 22:36
Jinak aktuální poloměr zaoblení (_FILLET / ZAOBLI ) je uložen v proměnné FILLETRAD.

orlik
05.02.2009, 06:38
Dik, funguje, jen s tim opakovanim to je slozitejsi. Stale se musi zadavat P jako polylajna, a teprve potom vyber krivky. asi bych musel udelat kraticky lisp programek s opakovanim, kde bude asi (command "fillet" "P")

Ferdinand
05.02.2009, 08:22
Pro 1 by to provedl takto
(defun C:oobli (/)
(command "_fillet")
(while(>(getvar "cmdactive")0)(command "_P"))
)
ale nevím, jak to dostat do opakování - asi by se dalo nějak využít možnosti volby mUltiple
(command "_fillet" "_U")
 

Sedláček
05.02.2009, 09:01
Stačí si dát na nějakej čudlík
 
*^C^C_FILLET _P
 
ta hvězdička zajistí opakování
 

orlik
05.02.2009, 09:54
Do jednoho radku v autocadu jsem napsal
(repeat 10 (setq (ssget)) (command "fillet" "P" ss))
a jen jsem vybiral obdelnicky a entr. Samozrejme, ze by sel pouzit while , ale tam by to s podminkou bylo slozitejsi