[求助]

jingsabing

LISP如何读出当dimaso=on时尺寸标注自动生成的的尺寸数值 "(<>)"

mccad

(vl-load-com)
  (setq dim_sel (entsel "\n选择标注尺寸:"))
  (setq        diment             (car dim_sel)
        doc             (vla-get-ActiveDocument (vlax-get-acad-object))
        axdim             (vlax-ename->vla-object diment)
        dimptxt             (vla-get-textoverride axdim)
        dimmeasure             (vla-get-Measurement axdim)
        dimprecision (vla-get-TolerancePrecision axdim)
  )

jingsabing

可是我只用AUTO LISP啊!

gangzy1

1.(command "explode" sn);sn为标注实体名
2.(setq dimtxt (cdr (assoc 1 (entget (ssname (ssget "p" '((0 . "MTEXT")) 0))))))
3.dimtxt中包含了你所要的
4.最后用 (command "undo" 1) 还原标注实体.