社区 › AutoLISP/Visual LISP 编程技术 › 如何获得标注对像的精度？ 我查看了标注对像定义数据，没有找到控制其精度的组码。

clh521 发表于 2016-4-12 16:20:56

本帖最后由 clh521 于 2016-4-12 16:24 编辑

终于zml84的博客找到了，谢谢自贡黄明儒和zml84；本人将程序改为函数如下：

;;;功能：尝试获取    标注尺寸的小数位数http://zml84.blog.sohu.com/251579063.html
;;;日期：zml84 于 2013-01-08
;;例：(setq en (car (entsel)))
;;(dimdigits en)
(defun dimdigits (en / en ent tmp str)
(if (and en
         (setq ent (entget en '("ACAD"))
         )
      )
    (cond
      ;;
      ((and
         (setq tmp (cadr (assoc -3 ent)))
         (setq tmp (member (cons 1070 271) tmp))
       )
       (cdadr tmp)
      )
      ;;
      ((and (setq str (cdr (assoc 3 ent)))
            (setq tmp (tblsearch "DIMstyle" str))
       )
       (cdr (assoc 271 tmp))
      )
      ;;
      ((member '(0 . "DIMENSION") ent)
       (getvar "DIMDEC")
      )
      ;;
      (t nil)
    )
)
)

查看完整版本: 如何获得标注对像的精度？ 我查看了标注对像定义数据，没有找到控制其精度的组码。