获取一个标注的实际测量值

CHRISTIEFUL

请问获取一个标注的实际测量值用什么VLISP函数?

marting

vla-get-measurement

1. (defun c:tt ()
   
2.   (if (and (setq e (car (entsel "\n拾取尺寸<退出>:")))
   
3.            (setq o (vlax-ename->vla-object e))
   
4.            (= (wcmatch (vla-get-ObjectName o) "*dimension"))
   
5.       )
   
6.     (progn (princ "\n测量值是:")
   
7.            (princ (vla-get-measurement o))
   
8.     )
   
9.   )
   
10.   (princ)
    
11. )
    

(defun c:tt ()<br />   (if (and (setq e (car (entsel "\n拾取尺寸<退出>:")))<br />            (setq o (vlax-ename->vla-object e))<br />            (= (wcmatch (vla-get-ObjectName o) "*dimension"))<br />       )<br />     (progn (princ "\n测量值是:")<br />            (princ (vla-get-measurement o))<br />     )<br />   )<br />   (princ)<br /> )<br />

evayleung

学习一下，谢谢楼上、、、、、、

yinchuan99001

能不能循环查出整个图档有尺寸手改，并列成表格且手改的尺寸变另一个样色。