pxt2001 发表于 2017-8-27 20:59:47

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

本帖最后由 pxt2001 于 2017-8-27 21:03 编辑


(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 发表于 2017-8-27 20:59:48

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

pxt2001 发表于 2017-8-28 22:37:28

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

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

pxt2001 发表于 2017-8-31 08:27:44

尺寸精度，四舍五入，等等对应的属性，例如TextOverride ，如何查找？
页: [1]
查看完整版本: 如何修改尺寸标注的属性?