[Agoral]

Здравствуйте, только начал изучать lisp, не получается создать второй "box".

Код:

[Выделить все]

 (defun draw_object ()
	(command "osnap" "off")
	(initget 1)
	(setq z1 (getpoint "Укажите базовую точку объекта:"))
	(initget (+ 1 2 4))
	(setq l (getreal "Укажите длину опоры:"))
	(initget (+ 1 2 4))
	(setq w (getreal "Укажите ширину опоры:"))
	(initget (+ 1 2 4))
	(setq h (getreal "Укажите высоту опоры:"))
	(command "box" z1 "l" l w h "")
	(setq box_1 (entlast))
	(initget (+ 1 2 4))
        (setq l2 (getreal "Укажите длину надстройки : "))
        (initget (+ 1 2 4))
        (setq w2 (getreal "Укажите ширину надстройки : "))
        (initget (+ 1 2 4))
        (setq h2 (getreal "Укажите высоту надстройки : " ))
        (command "box" z1 "l" l2 w2 h2 "")
        (setq box_2 (entlast))
)

Ошибка:
box
Specify first corner: Specify opposite corner:
Invalid window specification.
; error: Function cancelled

[5hev]

Agoral, по меньшей мере, вот так:

Код:

[Выделить все]

 (defun draw_box	 (/ z l w h os)
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (setq z (getpoint "Укажите базовую точку объекта:"))
  (setq l (getreal "Укажите длину опоры:"))
  (setq w (getreal "Укажите ширину опоры:"))
  (setq h (getreal "Укажите высоту опоры:"))
  (command "_box" z "_l" l w h)
  (setvar "osmode" os)
  (entlast)
  )