如何修改尺寸标注的属性?

pxt2001

1. 
   

复制代码

(defun c:t ()
  (or pre (setq pre "2"))
  (setq        pre0 (getstring
               (strcat "\n输入精度值:<" pre ">:")
             )
  )
  (if (/= pre0 "")
    (setq pre pre0)
  )
  (if (and
        (princ "\n选择尺寸标注，改精度<退出>:")
        (setq ents (ssget '((0 . "DIMENSION"))))
      )
    (progn
      (setq n 0)
      (while (< n (sslength ents))
        (setq ent (vlax-ename->vla-object (ssname ents n)))        
        (vlax-put-property ent 'primaryunitsprecision pre)
        (setq n (1+ n))
      )
    )
  )
  (princ)
);; 以上代码修改尺寸标注精度，如何修改其它属性，例如：标注舍入，文字替代？

q3_2006

(Vlax-Get (Vlax-Ename->Vla-Object (car (entsel))) 'TextOverride )

pxt2001

q3_2006 发表于 2017-8-28 10:16
(Vlax-Get (Vlax-Ename->Vla-Object (car (entsel))) 'TextOverride )

q3_2006，文字替代已经解决，多谢了

pxt2001

尺寸精度，四舍五入，等等对应的属性，例如TextOverride ，如何查找？