[prajdziswet]

хочу например выставить выравнивание например вправо, но почему оно реагирует непонятно как и односит текст и вручную и кодом через entmod? иногда очень сильно...
не хочется высчитывать координаты через textbox потом их прописвать

Код:

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

 
(defun deleteassoc (spis tmp1 tmp2)
  (if (and (= (type (car spis)) (type '(1 2))) (or (/= (caar spis) tmp1) (/= (caar spis) tmp2)))
    (setq spis (append (list (car spis)) (deleteassoc (cdr spis) tmp1 tmp2)))
    )
  )
;------------------------------------------
(setq object (entget (car (entsel))))
(if (= "TEXT" (cdr (assoc 0 object)))
  (progn
    (setq object (subst (cons 72 2) (assoc 72 object) object))
    (entmod (deleteassoc object 10 11))
    ;или проста (entmod object)-результат одинаков
 ))

брр:

или оно учитывает координату (11 ...) но почему влево например не учитывает?

[Кулик Алексей aka kpblc]

Когда-то с этим разбирался: http://autolisp.ru/2010/04/06/text-and-attrib-entities/

[Setvar]

Обязательно менять выравнивание текста именно при помощи (entmod)?

[prajdziswet]

спасибо Алексей прочитал статью (интересна), понял что надо и координаты ...

Сообщение от Setvar Обязательно менять выравнивание текста именно при помощи (entmod)?

Не обязательно, просто самая простая функция, да и по статье Алексея видно, что на активХ он ведет себя точно также. А добавить три строчки для изменения координат не так сложно, самое главное чтобы entmod сработал...Спасибо