Re: LISP. Выравнивание текстов по горизонтали или вертикали
> kpblc
Так не получится.
Убрать можно проверку так:
;;;(z-text-align-input-ss-pt) ;;;Выбор объектов и указание точки выравнивания (defun z-text-align-input-ss-pt (/ ss pt_align) (setq ss (ssget (list '(0 . "TEXT,MTEXT") ;;;(z-ss-filter-layer-no-loced-freeze) ;!!!! ) ;_ list ) ;_ ssget ) ;_ setq (if (and ss (> (sslength ss) 0)) (if (setq pt_align (getpoint "\nВведите точку выравнивания: ")) (list ss pt_align) ) ;_ if ) ;_ if ) ;_ defun