[ilka_t]

при указании линии, он из нее брал ее длинну, а потом вставлял ее длинну, как число на указанный текст (заменяя его при етом).
Задавать точность, и ещебы задавать округление
Ни у кого такого нету?
А то я с LISPOM не дружу, и написать го сам не смогу, а работу бв он облегчил.
Заранее спасибо.

[{Smirnoff}]

Поподробнее пожалуйста. Щелкаем на линии, потом щелкаем на тексте и он заменяеться на длинну линии? Или текст (новый) надо создавать, после щелчка на линии, двигать и вставлять куда надо?

[ilka_t]

Все правильно :
*Щелкаем на линии, потом щелкаем на тексте и он заменяеться на длинну линии?*


Есть линия, есть текст. Выделяем линию, затем указываем на текст, и старыц текст заменяется на длину линии.

[{Smirnoff}]

Хорошо, сейчас схожу пообедаю, займемся.

[{Smirnoff}]

Вот, работает для любых примитивов (слизано у Kos).:

Код:

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

(defun c:lex (/ cur_ent vla_obj len cur_text vla_text) 
  (setvar "cmdecho" 0) 
  (vl-load-com) 
  (while T 
    (setq cur_ent (car(entsel "Select Line: "))) 
    (setq vla_obj (vlax-ename->vla-object cur_ent)) 
      (setq len (vlax-curve-getDistAtParam vla_obj
(vlax-curve-getEndParam vla_obj))) 
    (terpri) 
    (setq cur_text (car(entsel "Select Text: ")))
      (setq vla_text (vlax-ename->vla-object cur_text))
  (vla-put-TextString vla_text (rtos len 2 2))
    (terpri) 
    );end while 
  (princ) 
  )

Точность можешь установить сам. (rtos len 2 2) - вместо 2-й двойки количество знаков после запятой. Никакой "защиты от дурака" нет. Если щелкнешь в пустоту или не по тексту, выдаст ошибку. Извини сейчас больше времени нет. Если что надо еще модифицировать, попозже модифицируем.

[ilka_t]

Спасибо то что нужно .