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

Re: LISP. Выравнивание текстов по горизонтали или вертикали

> ZZZ
или так

;|(z-layer-lst-no-loced-freeze)
Возвращет список всех не заблокированых и не замороженых слоёв|;
(defun z-layer-lst-no-loced-freeze (/ layer_lst layer)
  (setq layer_lst (list (cdr (assoc 2 (tblnext "layer" t)))))
  (while (setq layer (tblnext "layer"))
    (setq layer_lst (cons (cdr (assoc 2 layer)) layer_lst))
    ) ;_ while
  (vl-remove-if-not
    '(lambda (layer)
       (= (cdr (assoc 70 (entget (tblobjname "layer" layer)))) 0)
       ) ;_ lambda
    (acad_strlsort layer_lst)
    ) ;_ vl-remove-if-not
  ) ;_ defun

Re: LISP. Выравнивание текстов по горизонтали или вертикали

пока все работает спасибо

Re: LISP. Выравнивание текстов по горизонтали или вертикали

> ZZZ
"В итоге я бы не приводил бы код на всеобщее обозрение, а дал бы ссылку на файл fas (только для использования, без коректирования и критики)".
_____________________________________________________________________________
1.    Глобальные переменные не приветствуются (ALIGN_SIDE  ZV_TA) - это закон. Если в этом есть такая необходимость - необходимо предупреждать.
    Вспомогательные функции (или их часть) лучше сделать локальными и не задумываться о совпадении имен.
2. Значения системных переменных, все таки, принято возвращать к старым значениям, установленных пользователем.

Re: LISP. Выравнивание текстов по горизонтали или вертикали

proga rabotaet testiroval v2007
no...v ucs text uletaet mojesh
eto ispravit???

Re: LISP. Выравнивание текстов по горизонтали или вертикали

Уважаемо-дорогой Виталий Зуенко (ZZZ)!
спасибо за вашу чудо как вовремя найденную прогу
"z-text-align"
она не просто выручила,можно сказать спасла ,мои глаза и нервы (о выгоданном времени просто умолчу,дабы не захлебнуться от благодарных слов)
большое СПАСИБО!
(опробовано в ACAD2008)

Re: LISP. Выравнивание текстов по горизонтали или вертикали

nu chto rabotaet ili net??