Zobrazit plnou verzi příspěvku: minsert(2.)

Ferdinand
30.10.2006, 12:48
Lisp bych chtěl používat pro vytvoření pole z bloku, pokaždé z jiného Název vkládaného bloku = VLBL je volán na konci řádku menu pro vytvoření pole z příslušného bloku:[FB(FBS-SLOUP11_POLE,čtvercový -pole)]^C^C(setq VLBL "FBS-SLOUP11") _VLMMS Nevím proč, ale volby bere jako příkaz1. Průběh na příkazovém řádku:Command: _appload VLMMS.lsp successfully loaded.Command:Command:Command:Command:Command:Command:Command: (setq VLBL "FBS-SLOUP11") "FBS-SLOUP11"Command: _VLMMSZadejte mìøítko bloku pro smìr X: 50Zadejte mìøítko bloku pro smìr Y :  <50> 25Zadejte bod:Unknown command "PX".  Press F1 for help.50Unknown command "PY".  Press F1 for help.; error: bad argument value: AutoCAD command:2. Aplikace:(defun c:VLMMS (/ ZB MX MY VLBL)  (setvar "osmode" 39)  (setq MX (getint "\nZadejte měřítko bloku pro směr X: "))  (setq MY (default MX "\Zadejte měřítko bloku pro směr Y : " "int"))  (prompt "\nZadejte bod:")  (command "_-insert" VLBL "_PX" MX "_PY" MY pause ^C^C)  (setq ZB (getvar "lastpoint"))  (command "_minsert" VLBL "_PX" MX "_PY" MY "_PR" 0 ZB MX MY 0 pause pause pause pause)  (princ))