帮看看这个代码有什么问题

laibinwu

为什么选择的是单行文字也显示 object type error
帮看看哪里有问题。
代码来自 AutoLisp&DCL学习教程.CHM  自己改了一点

1. (defun c:text_f  ()
   
2.   (setq obj (entsel "\n select text : "))
   
3.   (if (= obj nil)
   
4.     (princ "\n none object select")
   
5.     (progn
   
6.       (setq ent (entget (car obj)))
   
7.       (if (/= (cdr (assoc 0 ent)) "text")
   
8.   (princ "\n object type error")
   
9.   (progn
   
10.     (setq  temp  (cadr (textbox (list (assoc 1 ent))))
    
11.     temp_w  (car temp)
    
12.     temp_h  (cadr temp)
    
13.     pt_base  (cdr (assoc 10 ent))
    
14.     )
    
15.     (command "pline"
    
16.        pt_base
    
17.        (setq pt_temp (polar pt_base 0 temp_w))
    
18.        (setq pt_temp (polar pt_temp (/ pi 2) temp_h))
    
19.        (setq pt_temp (polar pt_temp pi temp_w))
    
20.        "c"
    
21.     )
    
22.   )
    
23.       )
    
24.     )
    
25.   )
    
26.   (princ)
    
27. )

(defun c:text_f  ()<br />   (setq obj (entsel "\n select text : "))<br />   (if (= obj nil)<br />     (princ "\n none object select")<br />     (progn<br />       (setq ent (entget (car obj)))<br />       (if (/= (cdr (assoc 0 ent)) "text")<br />   (princ "\n object type error")<br />   (progn<br />     (setq  temp  (cadr (textbox (list (assoc 1 ent))))<br />     temp_w  (car temp)<br />     temp_h  (cadr temp)<br />     pt_base  (cdr (assoc 10 ent))<br />     )<br />     (command "pline"<br />        pt_base<br />        (setq pt_temp (polar pt_base 0 temp_w))<br />        (setq pt_temp (polar pt_temp (/ pi 2) temp_h))<br />        (setq pt_temp (polar pt_temp pi temp_w))<br />        "c"<br />     )<br />   )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

Free-Lancer

"text" 大写来自: Android客户端

laibinwu

Free-Lancer 发表于 2013-5-18 16:39
"text" 大写

:lol 嗯。原来如此。

ll_j

"text"改为"TEXT”，判断时大小写是有区别的。

laibinwu

ll_j 发表于 2013-5-18 16:43
"text"改为"TEXT”，判断时大小写是有区别的。

新手，以前不知道:L

Lispboy

要养成习惯啊，所有entget表返回的，都要用大写去判断。

另外提个建议，entsel 赋给的变量 用 e or ent,  VAL对象用obj ，这些都是约定俗成的，便于交流。

laibinwu

Lispboy 发表于 2013-5-18 16:45
要养成习惯啊，所有entget表返回的，都要用大写去判断。

另外提个建议，entsel 赋给的变量 用 e or ent, ...

多谢大家指导