[Ingpro]

Всем доброго дня!
Лисп вставляет в чертеж сумму длин линий в мм.
Как сделать так, чтоб программа выдавала результат умноженный
на масштабный коэффициент <0.001>, т.е. в м.

Код:

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

 (defun c:LPLm (/ 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)
)

[name02]

Строку 18 замени на

Код:

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

 (cons 1 (rtos (/ l 100)))

И строку 21 замени на

Код:

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

 (princ (strcat "\nTotal length = " (rtos (/ l 100))))

[Ingpro]

name02, спасибо большое, только для мм надо

Код:

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

 (cons 1 (rtos (/ l 1000)))

----- добавлено через ~2 мин. -----

Сообщение от name02 И строку 21 замени на

сработало и без замены 21 строки, но подправлю...

Код:

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

 (defun c:LPLm2 (/ 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 1000)))
          )
        )
        (princ (strcat "\nTotal length = " (rtos (/ l 1000))))

      )
    )
  )
  (princ)
)

Теперь выдаёт в м, спасибо!!!

[name02]

В 21-й строке выводится результат, если на запрос "Specify a point to insert text:" не кликнуть левой мышкой, а правой (результат выведется в строку)

[Ingpro]

Сообщение от name02 если на запрос "Specify a point to insert text:" не кликнуть левой мышкой, а правой (результат выведется в строку)

Спасибо за разъяснение...