[求助]：如何得到文字的四个角点坐标呢？

tjchkys

如图，我想求一段程序可以计算出文字所在范围的四个角点坐标
因为文字的字高不同，字体不同，文字还有不同的角度，文字的长度也不一样，怎样才能得到一串字符串所覆盖的四个角点坐标呢？

taner

2. 
   
3.   [FONT=courier new]
   
4. (defun tt-text-corners (ename / ang dx dy key p1 p2 p3 p4)
   
5.   (if (is-ename ename)
   
6.     (progn
   
7.       (setq key (th-get-dxf 0 ename)
   
8.             ang (th-get-dxf 50 ename)
   
9.       )
   
10.       (cond
    
11.         ((= key "TEXT")
    
12.           (txt-text-corners ename)
    
13.         )
    
14.         ((= key "MTEXT")
    
15.           (setq p4 (th-get-dxf 10 ename)
    
16.                 dx (th-get-dxf 42 ename)
    
17.                 dy (th-get-dxf 43 ename)
    
18.                 p3 (polar p4 ang dx)
    
19.                 p1 (polar p4 (- ang (/ pi 2)) dy)
    
20.                 p2 (polar p1 ang dx)
    
21.           )
    
22.           (list p1 p2 p3 p4)
    
23.         )
    
24.         (t
    
25.           nil
    
26.         )
    
27.       )
    
28.     )
    
29.   )
    
30. )
    
31. (defun txt-text-corners (ent / ang p0 p1 p2 tb)
    
32.   (if (and
    
33.         (is-ename ent)
    
34.         (= (th-get-dxf 0 ent) "TEXT")
    
35.       )
    
36.     (progn
    
37.       (setq p0 (th-get-dxf 10 ent)
    
38.             ang (th-get-dxf 50 ent)
    
39.       )
    
40.       (setq tb (textbox (entget ent))
    
41.             p1 (car tb)
    
42.             p2 (cadr tb)
    
43.             tb (list p1 (list (car p2) (cadr p1)) p2 (list (car p1)
    
44.                                                            (cadr p2)
    
45.                                                      )
    
46.                )
    
47.       )
    
48.       (mapcar
    
49.         '(lambda (x)
    
50.            (polar p0 (+ ang (angle '(0. 0. 0.) x)) (distance '(0. 0. 0.) x))
    
51.          )
    
52.         tb
    
53.       )
    
54.     )
    
55.   )
    
56. )
    
57. (defun th-get-dxf (g e)
    
58.   (cond
    
59.     ((= 'ename (type e))
    
60.       (cdr (assoc g (entget e)))
    
61.     )
    
62.     ((= 'list (type e))
    
63.       (cdr (assoc g e))
    
64.     )
    
65.   )
    
66. )
    
67. (defun is-ename        (arg)
    
68.   (equal (type arg) 'ename)
    
69. )
    
70.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun tt-text-corners (ename / ang dx dy key p1 p2 p3 p4)<br />   (if (is-ename ename)<br />     (progn<br />       (setq key (th-get-dxf 0 ename)<br />             ang (th-get-dxf 50 ename)<br />       )<br />       (cond<br />         ((= key "TEXT")<br />           (txt-text-corners ename)<br />         )<br />         ((= key "MTEXT")<br />           (setq p4 (th-get-dxf 10 ename)<br />                 dx (th-get-dxf 42 ename)<br />                 dy (th-get-dxf 43 ename)<br />                 p3 (polar p4 ang dx)<br />                 p1 (polar p4 (- ang (/ pi 2)) dy)<br />                 p2 (polar p1 ang dx)<br />           )<br />           (list p1 p2 p3 p4)<br />         )<br />         (t<br />           nil<br />         )<br />       )<br />     )<br />   )<br /> )<br /> (defun txt-text-corners (ent / ang p0 p1 p2 tb)<br />   (if (and<br />         (is-ename ent)<br />         (= (th-get-dxf 0 ent) "TEXT")<br />       )<br />     (progn<br />       (setq p0 (th-get-dxf 10 ent)<br />             ang (th-get-dxf 50 ent)<br />       )<br />       (setq tb (textbox (entget ent))<br />             p1 (car tb)<br />             p2 (cadr tb)<br />             tb (list p1 (list (car p2) (cadr p1)) p2 (list (car p1)<br />                                                            (cadr p2)<br />                                                      )<br />                )<br />       )<br />       (mapcar<br />         '(lambda (x)<br />            (polar p0 (+ ang (angle '(0. 0. 0.) x)) (distance '(0. 0. 0.) x))<br />          )<br />         tb<br />       )<br />     )<br />   )<br /> )<br /> (defun th-get-dxf (g e)<br />   (cond<br />     ((= 'ename (type e))<br />       (cdr (assoc g (entget e)))<br />     )<br />     ((= 'list (type e))<br />       (cdr (assoc g e))<br />     )<br />   )<br /> )<br /> (defun is-ename        (arg)<br />   (equal (type arg) 'ename)<br /> )<br />   [/FONT]<br />

hangjier

好东西，顶

13174545660

这有什么用处呢