第一次编程就要郁闷而死

e2002

关于textbox的详细信息请参考AutoLISP Developer's Guide中的 :

AutoLISP Developer's Guide\Using AutoLISP to Communicate with AutoCAD \Geometric Utilities\Text Extents

e2002

函数 textbox 返回文字对象矩形边框的对角点坐标。该函数的唯一参数是一个图元定义表，该表的格式与 entget 返回表（组码及其值的关联表）的类型相同。该表可以包含文字对象的完整关联表，也可以仅包括描述文字字符串的表。
函数 textbox 返回的点描述了文字对象的边框（一个假想的包含文字对象的框），假定它的插入点位于 (0,0,0)，且它的旋转角度为 0。返回的第一个表是点 (0.0 0.0 0.0)，除非文字对象是斜的或垂直的，或者它包含下行字符（例如 g 和 p）。第一个点表的值指定从文字插入点到边框左下角的距离，该边框是包含此文字对象的最小矩形。第二个点表指定该边框的右上角。所返回的点表总是该边框的左下角点和右上角点，而与文字测量的方向无关。

下例中，列举了 textbox 可以接受的最小的图元定义表。由于没有附加信息，所以 textbox 使用当前缺省的文字样式和高度。

命令：  (textbox '((1 . "Hello world")) )

((0.0 0.0 0.0) (2.80952 1.0 0.0))

textbox 的实际返回值会因当前文字样式不同而有所变化

不管文字方向或样式如何，由 textbox 返回的点是用原点位于文字插入点（组码 10）的对象坐标系 (OCS) 来表示的。当把由 textbox 返回的坐标转换为定义了文字实际区域的点时，这个点可以被参照。无论选定文字的方向如何，下列两个例程都调用 textbox 在文字周围放置边框。

第一个例程调用函数 textbox 在选定文字周围绘制边框。

2. 
   
3. (defun C:TBOX ( / textent tb ll ur ul lr)
   
4.   (setq textent (car (entsel "\nSelect text: ")))
   
5.   (command "ucs" "Object" textent)
   
6.   (setq tb (textbox (list  (cons -1 textent)))
   
7.         ll (car tb)
   
8.         ur  (cadr tb)
   
9.         ul  (list (car ll) (cadr ur))
   
10.         lr (list (car ur) (cadr ll))
    
11.   )
    
12.   (command "pline" ll lr ur ul "Close")
    
13.   (command "ucs" "p")
    
14.   (princ)
    
15. 
    
16. )
    

<br /> (defun C:TBOX ( / textent tb ll ur ul lr)<br />   (setq textent (car (entsel "\nSelect text: ")))<br />   (command "ucs" "Object" textent)<br />   (setq tb (textbox (list  (cons -1 textent)))<br />         ll (car tb)<br />         ur  (cadr tb)<br />         ul  (list (car ll) (cadr ur))<br />         lr (list (car ur) (cadr ll))<br />   )<br />   (command "pline" ll lr ur ul "Close")<br />   (command "ucs" "p")<br />   (princ)<br /> <br /> )<br />

第二个例程通过调用 AutoLISP 函数 sin 和 cos 进行几何计算后，完成了与第一个程序相同的操作。只有在当前 UCS 平行于文字对象所在平面时，它的结果才是正确的。

2. 
   
3. (defun C:TBOX2 ( / textent ang sinrot cosrot
   
4.                    t1 t2 p0 p1 p2 p3 p4)
   
5.   (setq textent (entget (car (entsel "\nSelect text: "))))
   
6.   (setq p0 (cdr (assoc 10 textent))
   
7.         ang (cdr (assoc 50 textent))
   
8.         sinrot (sin ang)
   
9.         cosrot (cos ang)
   
10.         t1 (car (textbox textent))
    
11.         t2 (cadr (textbox textent))
    
12.         p1 (list
    
13.           (+ (car p0)
    
14.             (- (* (car t1) cosrot)(* (cadr t1) sinrot))
    
15.           )
    
16.           (+ (cadr p0)
    
17. 
    
18.             (+ (* (car t1) sinrot)(* (cadr t1) cosrot))
    
19.           )
    
20.       )
    
21.       p2 (list
    
22.         (+ (car p0)
    
23.           (- (* (car t2) cosrot)(* (cadr t1) sinrot))
    
24.         )
    
25.         (+ (cadr p0)
    
26.           (+ (* (car t2) sinrot)(* (cadr t1) cosrot))
    
27.         )
    
28.       )
    
29.       p3 (list
    
30.         (+ (car p0)
    
31.           (- (* (car t2) cosrot)(* (cadr t2) sinrot))
    
32.         )
    
33.         (+ (cadr p0)
    
34.           (+ (* (car t2) sinrot)(* (cadr t2) cosrot))
    
35.         )
    
36.       )
    
37. 
    
38.       p4 (list
    
39.         (+ (car p0)
    
40.           (- (* (car t1) cosrot)(* (cadr t2) sinrot))
    
41.         )
    
42.         (+ (cadr p0)
    
43.           (+ (* (car t1) sinrot)(* (cadr t2) cosrot))
    
44.         )
    
45.       )
    
46.   )
    
47.   (command "pline" p1 p2 p3 p4 "c")
    
48.   (princ)
    
49. 
    
50. )
    

<br /> (defun C:TBOX2 ( / textent ang sinrot cosrot <br />                    t1 t2 p0 p1 p2 p3 p4)<br />   (setq textent (entget (car (entsel "\nSelect text: "))))<br />   (setq p0 (cdr (assoc 10 textent))<br />         ang (cdr (assoc 50 textent))<br />         sinrot (sin ang)<br />         cosrot (cos ang)<br />         t1 (car (textbox textent))<br />         t2 (cadr (textbox textent))<br />         p1 (list <br />           (+ (car p0)<br />             (- (* (car t1) cosrot)(* (cadr t1) sinrot))<br />           )<br />           (+ (cadr p0)<br /> <br />             (+ (* (car t1) sinrot)(* (cadr t1) cosrot))<br />           )<br />       )<br />       p2 (list <br />         (+ (car p0)<br />           (- (* (car t2) cosrot)(* (cadr t1) sinrot))<br />         )<br />         (+ (cadr p0)<br />           (+ (* (car t2) sinrot)(* (cadr t1) cosrot))<br />         )<br />       )<br />       p3 (list <br />         (+ (car p0)<br />           (- (* (car t2) cosrot)(* (cadr t2) sinrot))<br />         )<br />         (+ (cadr p0)<br />           (+ (* (car t2) sinrot)(* (cadr t2) cosrot))<br />         )<br />       )<br /> <br />       p4 (list <br />         (+ (car p0)<br />           (- (* (car t1) cosrot)(* (cadr t2) sinrot))<br />         )<br />         (+ (cadr p0)<br />           (+ (* (car t1) sinrot)(* (cadr t2) cosrot))<br />         )<br />       )<br />   )<br />   (command "pline" p1 p2 p3 p4 "c")<br />   (princ)<br /> <br /> )<br />