;;;Nasobne vlozeni -pole (MINSERT)
;;;InsertionPoint=ZADAT; Scale=ZADAT-X/Y; Rotate=0;
;;;Columns=ZADAT; RowsDistance=ZADAT; ColumnsDistance=ZADAT
 (defun c:VLMMS (/ ZB MX MY VLBL OSM)
  (setvar "cmdecho" 0)
  (setvar "attdia" 1)
  (setq OSM (getvar "osmode"))
  (setvar "osmode" 39)
  (setq MX (getint "\nZadejte měřítko bloku pro směr X: "))
  (setq MY (getint "\Zadejte měřítko bloku pro směr Y : "))
;;ev. bych raději s předdef. volbou MX, kde "default" je další malí lispík pro zadání předvoleb (real, int, str) ale nechce to brát :-(
  ;(setq MY (default MX "\Zadejte měřítko bloku pro směr Y : " "int"))
  (PROMPT "\nZadejte bod:")  (command "_minsert" VLBL "_PX" MX "_PY" MY pause ^c^c)
;;tak tady se mi to zasekne:
;;Unknown command "PX".  Press F1 for help.
  (setq ZB (getvar "lastpoint"))
  (command "_minsert" VLBL "_X" MX "_Y" MY ZB MX MY "" pause pause pause pause)
;;tak tady se mi to zasekne taky:
;;Unknown command "X".  Press F1 for help.
;;zajímavé je, že u ostatních aplikací pro spec. vkládání formulace pro získání vkládacího bodu funguje:
  ;;(command "_insert" VLBL pause ^c^c)
;;(což jsem zde prvně zkoušel samozřejmě taky jako možnost č.1, ale nezabrala...)
  (setvar "osmode" OSM)  (princ))

Prosím vás, mohl by mi někdo poradit, v čem je zrada anebo co tam chybí? Nemohu na to přijít... Funkce DEFAULT je na i-projectu

Funkce je v pořádku, jen jaksi nevrací návratovou hodnotu, protože tu si na konci přepisujete funkcí (princ). Vymažte ji a bude to fungovat.

To myslíte princ v Default.lsp anebo princ v diskutované aplikaci? Ferdinand2007-07-11 16:02:43