求方法/代码解决标注向下取整

Linhay

最近工作过程中一直有个问题,就是把标注向下取整,不保留小数。如下图


标注的时候实际值为330.8，怎么能让标注值显示为330呢？

本人Lisp幼儿园水平，恳请各位帮忙，不胜感激。

zjsru_18_505

(defun C:TT (/ E EN I LEN SS)
  (if (setq SS (ssget '((0 . "DIMENSION"))))
    (progn (setq LEN (sslength SS))
           (setq I 0)
           (repeat LEN
             (setq E  (ssname SS I)
                   EN (entget E)
                   EN (subst (cons 1 (itoa (fix (cdr (assoc 42 EN)))))
                             (assoc 1 EN)
                             EN
                      )
             )
             (entmod EN)
             (setq I (1+ I))
           )
    )
  )
)

鱼与熊掌

修改1祖玛，

Linhay

zjsru_18_505 发表于 2015-1-29 13:42
(defun C:TT (/ E EN I LEN SS)
  (if (setq SS (ssget '((0 . "DIMENSION"))))
    (progn (setq LEN (s ...

太谢谢了,方便太多了~