Проставить размеры на отрезках. Лисп.

Доброго времени суток! Прошу помощи! На чертеже есть отрезки, нужен лисп который подписывает длину выбранных отрезков с точностью до сантиметра.

 

Размерный стиль сделать собственный как нужно нет возможности? Или я не правильно понял вопрос, уточните пожалуйста

 

размерный стиль это долго, нужно указывать 2 точки каждого отрезка, а хочется выделить нужные отрезки и чтоб у них подписались текстом длины. У меня есть лисп, но он работает с полем данных, и не округляет до сантиметров.

 

pashuha, а не пробовали перед запуском лиспа, командой ЕДИНИЦЫ, в поле "точность" выбрать нужное количество знаков после запятой?

 

Код:

(defun C:dist_line (/)
  (mapcar
    (function
      (lambda (l)
    (entmake
      (mapcar
        'cons
        '(0 10 1 40 7 50)
        (list
          "TEXT"
          (car l)
          (cadr l)
          (getvar 'TEXTSIZE)
          (getvar 'TEXTSTYLE)
          (if
        (and (<= (caddr l) (* pi 1.5)) (> (caddr l) (/ pi 2)))
        (+ pi (caddr l))
        (caddr l)
          )
        )
      )
    )
      )
    )
    (mapcar (function (lambda (o / n k s)
            (setq n    (cdr (assoc 10 (entget o)))
                  k    (cdr (assoc 11 (entget o)))
                  s    (list (/ (+ (car n) (car k)) 2)
                      (/ (+ (cadr n) (cadr k)) 2)
                )
            )
            (list s (rtos (distance n k) 2 2) (angle n k))
              )
        )
        (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget '((0 . "LINE"))))))
    )
  )
  (princ)
)

Команда: dist_line

 

Alexandr-GR, большое спасибо, то что нужно!

 

хочу найти ответ

 

Вас услышат и с первого раза...

 

опубликуйте сообщение рассчитываю на Alexandr-GR, для менязнаток и авторитет

 

Программа, которая очень мне нужна, только можно сделать без разделения линии пополам?
Спасибо

 

Добрый день, подскажите возможно ли ваш код переделать? чтобы размеры не делилил сегмент полилинии пополам?

 

http://geodesist.ru/forum/resources/oformlenie-sxemy-pvo-lisp.68/
потом лишнее уберешь

 

Здравствуйте как отредактировать скрипт чтобы он не ставил размеры по середине прямого участка полиинии

 

https://geodesist.ru/threads/malenkie-besplatnye-lispy.67505/page-4#post-1006041