[LISP函数]：取得文字的四个角点的点表,

lgwlgw

取得文字的实际范围的四个点的点表,左下角为第一点，逆时针顺序
    支持TEXT , MTEXT

2. 
   
3.   [FONT=courier new]
   
4. (defun xl-textbox
   
5.        (ename / edata key ang box boxp1 boxp3 dx dy p1 p2 p3 p4)
   
6.   (setq edata (entget ename))
   
7.   (setq        key (cdr (assoc 0 edata))
   
8.         ang (cdr (assoc 50 edata))
   
9.   )
   
10.   (cond        ((= key "TEXT")
    
11.          (setq box   (textbox edata)
    
12.                boxp1 (car box)
    
13.                boxp3 (cadr box)
    
14.                dx    (car boxp3)
    
15.                dy    (cadr boxp3)
    
16.                p1    (cdr (assoc 10 edata))
    
17.                p2    (polar p1 ang dx)
    
18.                p4    (polar p1 (+ ang (/ pi 2)) dy)
    
19.                p3    (polar p4 ang dx)
    
20.          )
    
21.         )
    
22.         ((= key "MTEXT")
    
23.          (setq p4 (cdr (assoc 10 edata))
    
24.                dx (cdr (assoc 42 edata))
    
25.                dy (cdr (assoc 43 edata))
    
26.                p3 (polar p4 ang dx)
    
27.                p1 (polar p4 (- ang (/ pi 2)) dy)
    
28.                p2 (polar p1 ang dx)
    
29.          )
    
30.         )
    
31.         (t (princ (strcat "\n错误的对象类型! 对象类型: " key)))
    
32.   )
    
33.   (list p1 p2 p3 p4)
    
34. )
    
35.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun xl-textbox<br />        (ename / edata key ang box boxp1 boxp3 dx dy p1 p2 p3 p4)<br />   (setq edata (entget ename))<br />   (setq        key (cdr (assoc 0 edata))<br />         ang (cdr (assoc 50 edata))<br />   )<br />   (cond        ((= key "TEXT")<br />          (setq box   (textbox edata)<br />                boxp1 (car box)<br />                boxp3 (cadr box)<br />                dx    (car boxp3)<br />                dy    (cadr boxp3)<br />                p1    (cdr (assoc 10 edata))<br />                p2    (polar p1 ang dx)<br />                p4    (polar p1 (+ ang (/ pi 2)) dy)<br />                p3    (polar p4 ang dx)<br />          )<br />         )<br />         ((= key "MTEXT")<br />          (setq p4 (cdr (assoc 10 edata))<br />                dx (cdr (assoc 42 edata))<br />                dy (cdr (assoc 43 edata))<br />                p3 (polar p4 ang dx)<br />                p1 (polar p4 (- ang (/ pi 2)) dy)<br />                p2 (polar p1 ang dx)<br />          )<br />         )<br />         (t (princ (strcat "\n错误的对象类型! 对象类型: " key)))<br />   )<br />   (list p1 p2 p3 p4)<br /> )<br />   [/FONT]<br />