在CAD中使用分段标注多段线线长它标注出来带小数50.00我不要带小数要整数50这样

万事如意

在CAD中使用分段标注多段线线长它标注出来带小数50.00我不要带小数要整数50这样一下是代码麻烦哪位大神能帮我修改一下谢谢。


;;;分段标注线长
(defun c:PPP (/ zg ss obj lst n l lst lst1 lst2 lst3 obj1 obj2)
  (prompt "\n请选择需要标注的线：")
(setq zg 6);;; 字高可自定义
  (if (setq ss (ssget ":S:E" '((0 . "LWPOLYLINE"))))
    (progn
      (setq obj        (vlax-ename->vla-object (ssname ss 0))
            lst        nil
            n        -1
      )
      (while (setq l (vlax-curve-getDistAtParam obj (setq n (1+ n))))
        (setq lst (cons l lst))
      )
      (setq lst         (reverse lst)
            lst1 (mapcar '(lambda (a b) (- b a)) lst (cdr lst))
      )
      (setq
        lst2 (mapcar '(lambda (x) (vlax-curve-getPointAtDist obj x))
                     (mapcar '(lambda (a b) (+ a (* 0.5 b))) lst lst1)
             )
      )
      (setq lst3
             (mapcar '(lambda (x)
                        (setq
                          ang (angle
                                x
                                (mapcar        '+
                                        x
                                        (vlax-curve-getFirstDeriv
                                          obj
                                          (vlax-curve-getParamAtPoint obj x)
                                        )
                                )
                              )
                        )
                        (if (< (* 0.5 pi) ang (* 1.5 pi))
                          (- ang pi)
                          ang
                        )
                      )
                     lst2
             )
      )
      (setq obj1 (car (vlax-safearray->list
                        (vlax-variant-value (vla-offset obj zg))
                      )
                 )
            obj2 (car (vlax-safearray->list
                        (vlax-variant-value (vla-offset obj (- zg)))
                      )
                 )
      )
      (or (> (vla-get-Length obj1) (vla-get-Length obj2))
          (vla-Delete obj1)
          (setq        obj1 obj2
                obj2 nil
          )
      )
      (and obj2 (vla-Delete obj2))
      (setq lst2
             (mapcar '(lambda (x) (vlax-curve-getClosestPointTo obj1 x))
                     lst2
             )
      )
      (vla-Delete obj1)
      (mapcar '(lambda (a b c)
                 (entmake (list        '(0 . "TEXT")
                                (cons 1 (rtos a 2 2))
                                (cons 10 b)
                                (cons 40 zg)
                                (cons 11 b)
                                '(72 . 1)
                                '(73 . 2)
                                (cons 50 c)
                          )
                 )
               )
              lst1
              lst2
              lst3
      )
    )
  )
  (princ)
)

土土木木人

(cons 1 (rtos a 2 2))
改成 (cons 1 (rtos a 2 0))试下

万事如意

土土木木人 发表于 2024-8-1 11:25
(cons 1 (rtos a 2 2))
改成 (cons 1 (rtos a 2 0))试下

谢谢你大神改好了，你好还的麻烦你一下在怎么改标注文字数字总在多段线上方，现在标注的数字在多段线下方数字还是反，标注的数字跟画多段线的方向转动。

muai2010

不保留小数位

czb203

万事如意 发表于 2024-8-1 14:04
谢谢你大神改好了，你好还的麻烦你一下在怎么改标注文字数字总在多段线上方，现在标注的数字在多段线下方 ...

改标注文字数字总在多段线上方