[求助]：初学lisp，请教关于textbox的问题

firstintimate

窝想利用textbox来获取字体的长度，不知道行不行？那位大大可以帮忙高手窝下textbox在lisp具体是如何应用的，帮助文件中的范例窝没完全看懂，谢谢大家了～

zxq0220

参考下面求文字中心点的程序

2. 
   
3. (DEFUN TEXTCEN ()
   
4. (SETQ OBJ (ENTSEL "\nSelect Text : "))
   
5. (IF (/= OBJ nil) (PROGN
   
6.   (SETQ ENT (ENTGET (CAR OBJ)))
   
7.   (IF (= (CDR (ASSOC 0 ENT)) "TEXT") (PROGN
   
8.    (SETQ TEMP    (CADR (TEXTBOX (LIST (ASSOC 1 ENT))))
   
9.          PT_BASE (CDR (ASSOC 10 ENT))
   
10.          ANG     (CDR (ASSOC 50 ENT))
    
11.          TEXTW   (CDR (ASSOC 41 ENT))
    
12.          TEMP_W  (* (CAR TEMP) TEXTW)
    
13.          TEMP_H  (CADR TEMP)
    
14.          PT_CEN (POLAR (POLAR PT_BASE ANG (* TEMP_W 0.5)) (+ (/ PI 2) ANG) (* TEMP_H 0.5)))
    
15.    (COMMAND "POINT" PT_CEN)
    
16.   ))
    
17. ))
    
18. )
    

<br /> (DEFUN TEXTCEN ()<br /> (SETQ OBJ (ENTSEL "\nSelect Text : "))<br /> (IF (/= OBJ nil) (PROGN<br />   (SETQ ENT (ENTGET (CAR OBJ)))<br />   (IF (= (CDR (ASSOC 0 ENT)) "TEXT") (PROGN<br />    (SETQ TEMP    (CADR (TEXTBOX (LIST (ASSOC 1 ENT))))<br />          PT_BASE (CDR (ASSOC 10 ENT))<br />          ANG     (CDR (ASSOC 50 ENT))<br />          TEXTW   (CDR (ASSOC 41 ENT))<br />          TEMP_W  (* (CAR TEMP) TEXTW)<br />          TEMP_H  (CADR TEMP)<br />          PT_CEN (POLAR (POLAR PT_BASE ANG (* TEMP_W 0.5)) (+ (/ PI 2) ANG) (* TEMP_H 0.5)))<br />    (COMMAND "POINT" PT_CEN)<br />   ))<br /> ))<br /> )<br />

xxming

这个函数将计算一个文字图元并返回包围文字的交互坐标框。elist 必须定义一文字图元。如果有别于文字本身的定义文字参数的项于 elist 中被忽略, 那么将使用目前设定。如果 textbox 成功执行, 那么它将返回两点, 否则返回nil。
范例

    经过 textbox 所能接受的最小表就是文字本身。

    (textbox '((1 . "Hello world.")))

    可能返回：   

    ((0.0 0.0 0.0)(0.8 0.2 0.0))

    在这种情况下, textbox 将为文字使用目前的缺省值来供应其他的参数。经过 textbox 所返回的点将描述文字图元的框(当插入点在(0, 0, 0) 且旋转角度为 0 时)。第一个表将返回 (0, 0, 0), 除非文字图元是倾斜的、垂直或包含下降字符(如, g或 p) 。第一个点表的值将指定由文字插入点平移到文字小方框的左下角点。第二个点表将指定文字框的右上角。点表将忽略文字方位的测量而经常返回文字小方框的左下角点与右上角点。