[求助]：求助测量圆、圆弧半径或直径的lisp

huiling6868

每次测量图中的圆、圆弧半径或直径多要点工具条上的标注程序，实在太繁，谁有测量圆、圆弧半径或直径的lisp.

xyp1964

[php]
(defun c:rad ()
  (command "dim1" "rad" (entsel) "" "")
  (princ)
)[/php]

huiling6868

二楼主我的意思是量过后数字能直接显示在屏幕上或在命令行上,不要在去量取.

xyp1964

2. [FONT=courier new]
   
3. (defun c:rad ()
   
4.   (setq ss(ssget '((0 . "ARC,CIRCLE")))
   
5.         S1 (SSNAME ss 0))
   
6.   (if s1
   
7.     (progn
   
8.      (setq rad (cdr(assoc 40 (entget s1)))
   
9.            dia (* rad 2.0)
   
10.            )
    
11.      (princ"\n半径 = ")(princ rad)
    
12.      (princ"\n直径 = ")(princ dia)
    
13.   )
    
14.     )
    
15.   (princ)
    
16. )[/FONT]

[FONT=courier new]<br /> (defun c:rad ()<br />   (setq ss(ssget '((0 . "ARC,CIRCLE")))<br />         S1 (SSNAME ss 0))<br />   (if s1<br />     (progn<br />      (setq rad (cdr(assoc 40 (entget s1)))<br />            dia (* rad 2.0)<br />            )<br />      (princ"\n半径 = ")(princ rad)<br />      (princ"\n直径 = ")(princ dia)<br />   )<br />     )<br />   (princ) <br /> )[/FONT]

狂刀

list命令

gzlish

直接双击看属性就有！

曾小五

可以呀，就是空间有一点浪费