[求助]：CAD中如何测量所有线的长度

流浪小小狗

各位:
       我在CAD中画一个矩形,中间有个小圆.怎么一下子测量所有线的长度?
       不需通过计算,请高手赐教.

      谢谢

taner

2. 
   
3.   [FONT=courier new]
   
4. (defun txt3-get-curve-lengtxt-ss (ss / ss s1 i l)
   
5.   (if (= nil ss)
   
6.     (setq ss (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC"))))
   
7.   )
   
8.   (setq l 0
   
9.         i -1
   
10.   )
    
11.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
12.     (command "._list" s1 "")
    
13.     (setq l (+ l (getvar "PERIMETER")))
    
14.   )
    
15. )
    
16.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun txt3-get-curve-lengtxt-ss (ss / ss s1 i l)<br />   (if (= nil ss)<br />     (setq ss (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC"))))<br />   )<br />   (setq l 0<br />         i -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (command "._list" s1 "")<br />     (setq l (+ l (getvar "PERIMETER")))<br />   )<br /> )<br />   [/FONT]<br />

流浪小小狗

最初由 taner 发布
[B][CODE]
  
(defun txt3-get-curve-lengtxt-ss (ss / ss s1 i l)
  (if (= nil ss)
    (setq ss (ssget '((0 . "CIRCLE,ELLIPSE,*LINE,ARC"))))
  )
  (setq l 0
        i -1
  )
  (while (se... [/B]

太复杂了,有没有得意的,直接可以用的啊.
这个代码我不知道在哪里运行啊?