[ВоваН]

Нужен лисп, поднимающий отрезок на заданную высоту.

Имеется: горизонтали, лежащие на плоскости с координатой Z=0 и подписанная высота (как на рисунке)

Надо: взять координату из однострочного текста и подставить ее в: Начало Z и Конец Z.

Заранее спасибо.

[Do$]

Вот так пойдет?:

Код:

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

(defun c:ZLINE (/ num gl_lin)
  (setq	num    (atof
		 (cdr (assoc 1 (entget (car (entsel "\Select text:")))))
	       ) ;_ end of atof
	gl_lin (entget (car (entsel "\Select line:")))
	gl_lin (entmod
		 (subst
		   (reverse (cons num (cdr (reverse (assoc 10 gl_lin)))))
		   (assoc 10 gl_lin)
		   gl_lin
		 ) ;_ end of subst
	       ) ;_ end of entmod
  ) ;_ end of setq
  (entmod
    (subst (reverse (cons num (cdr (reverse (assoc 11 gl_lin)))))
	   (assoc 11 gl_lin)
	   gl_lin
    ) ;_ end of subst
  ) ;_ end of entmod
  (princ)
) ;_ end of defun

[ВоваН]

А можно чтобы по ескейпу выходила?

то есть - щелкнул цифру, щелкнул линию, щелкнул цифру, щелкнул линию,
щелкнул цифру, щелкнул линию........ ескейп (вышел).

[Do$]

Можно, в акаде есть замечательная команда _multiple

[ВоваН]

Сообщение от Do$ Можно, в акаде есть замечательная команда _multiple

Не помогает