不是小问题的小问题之二

lyt0623

各位大侠，我是刚学LISP的，以下有一个对于你们来说是个小问题但对于我来说是大问题的问题要向各位请教。为什么以下程序不能按我的意愿标注文字。
(defun cXHC()
(setq P1(getpoint"\n请输入标注文字点:"))
（setq txt 90)
(command"line" P1 "@3000<0" "@3000<90" "@6000<180" "@3000<270" "c")
(command"circle" P1 3000)
(command"dtext" "j" "bl" P1 1000 0 txt "" "")
(princ)
)

xyp1964

;;;注意括号的全角和半角输入。（setq txt 90)应为(setq txt 90) (defun cXHC()
(setq P1(getpoint"\n请输入标注文字点:"))
(setq txt 90)
(command"line" P1 "@3000<0" "@3000<90" "@6000<180" "@3000<270" "c")
(command"circle" P1 3000)
(command"dtext" "j" "bl" P1 1000 0 txt "" "")
(princ)
)

changch

;;;试试 (defun cXHC()
(setq P1(getpoint"\n请输入标注文字点:"))
(setq txt 90)
(command "line" P1 "@3000<0" "@3000<90" "@6000<180" "@3000<270" p1 "")
(command "circle" P1 3000)
(command "text" "j" "bl" P1 1000 0 txt "" "")
(princ)
)

lyt0623

谢谢第一楼前辈的指点，更谢谢第二楼的前辈的明示。