[求助]

jingsabing · 发表于 2002-5-28 13:56

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

mccad · 发表于 2002-5-28 15:44

(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 · 发表于 2002-5-29 09:15

可是我只用AUTO LISP啊!

gangzy1 · 发表于 2002-6-25 07:26

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

账号		自动登录	找回密码
密码			注册

[求助]

以下程序中，dimmeasure就是你要的尺寸了

1

如此这般