[Ingpro]

Всем доброго дня!
LISP выводит в чертёж сумму длин выбранных объектов. Высота текста в коде -5.
Иногда приходят чертежи в масштабе 1:1, а по факту всё в М1:100.
При вызове команды и выборе объектов, вставка текста осуществляется высотой 5, если масштаб чертежа - 1:1.
Если в этом же чертеже установить М1:100, то высота текста становится 500.
Если заменить в коде 5 на 250, то в М1:100 высота текста становится 25000.
Подскажите, пожалуйста, как подправить лисп, чтобы при любом масштабе чертежа высота текста была 250.
Думаю - дело в этой строке (cons 40 (/ 5.0 (getvar 'cannoscalevalue))), нельзя масштабировать значение?
А значение-то как-раз и масштабируется?..

Код:

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

 (defun c:LPL (/ e ss l p i)
  (if
    (setq l 0.0 ss (ssget '((0 . "LINE,SPLINE,LWPOLYLINE,POLYLINE,ARC,CIRCLE,ELLIPSE"))))
    (progn
      (repeat (setq i (sslength ss))
        (setq e (ssname ss (setq i (1- i)))
              l (+ l (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e)))
        )
      )
      (if
        (setq p (getpoint "\nSpecify a point to insert text: "))
        (entmake
          (list
            '(0 . "TEXT")
            '(100 . "AcDbText")
            (cons 10 (trans p 1 0))
            (cons 40 (/ 5.0 (getvar 'cannoscalevalue)))
            (cons 1 (rtos l))
          )
        )
        (princ (strcat "\nTotal length = " (rtos l)))
      )
    )
  )
  (princ)
)

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

Текущий текстовый стиль сделай неаннотативным
(cons 40 (/ 5.0 (getvar 'cannoscalevalue)))
заменить на
(cons 40 250)

[Ingpro]

Сообщение от Кулик Алексей aka kpblc заменить на (cons 40 250)

Это сработало, спасибо Алексей!