（API应用）绘制文字实体同心指定间隙圆

newer

下面代码可以绘制选择文本实体置圆心给定间隙的圆，图中矩形框是文本最贴近盒子，蓝色是文字实体的最小包围圆，大圆是给定间隙绘制的最终我们需要的。

代码用了20141218API新加的一些特性，(xdrx_getpropertyvalue txt "TextBox" t)  t参数是得到最贴近盒子，不给t参数得到的是正常实体最小包围盒。

1. (defun c:tt ()
   
2.   (if (and
   
3.         (xdrx_prompt "\n选取文字实体<退出>:")
   
4.         (setq ss (ssget '((0 . "TEXT"))))
   
5.         (setq gap (getreal "\n字间隙<退出>:"))
   
6.       )
   
7.     (progn
   
8.       (mapcar
   
9.         '(lambda (x)
   
10.            (setq tigerBox (xdrx_getpropertyvalue x "textbox" t))
    
11.            (setq c (xdrx_points_mincircle tigerbox)
    
12.                  cen (car c)
    
13.                  r (+ gap (cadr c))
    
14.            )
    
15.            (xdrx_polyline_make tigerbox t)
    
16.            (xdrx_setpropertyvalue (entlast) "color" 1)
    
17.            (xdrx_circle_make cen r)
    
18.            (xdrx_circle_make cen (cadr c))
    
19.            (xdrx_setpropertyvalue (entlast) "color" 5)          
    
20.          )
    
21.         (xdrx_pickset->ents ss)
    
22.       )
    
23.     )
    
24.   )
    
25.   (princ)
    
26. )
    
27. 
    

(defun c:tt ()<br />   (if (and<br />         (xdrx_prompt "\n选取文字实体<退出>:")<br />         (setq ss (ssget '((0 . "TEXT"))))<br />         (setq gap (getreal "\n字间隙<退出>:"))<br />       )<br />     (progn<br />       (mapcar<br />         '(lambda (x)<br />            (setq tigerBox (xdrx_getpropertyvalue x "textbox" t))<br />            (setq c (xdrx_points_mincircle tigerbox)<br />                  cen (car c)<br />                  r (+ gap (cadr c))<br />            )<br />            (xdrx_polyline_make tigerbox t)<br />            (xdrx_setpropertyvalue (entlast) "color" 1)<br />            (xdrx_circle_make cen r)<br />            (xdrx_circle_make cen (cadr c))<br />            (xdrx_setpropertyvalue (entlast) "color" 5)           <br />          )<br />         (xdrx_pickset->ents ss)<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

20055647

挺不错的一个程序，学习