不是小问题的小问题之二

lyt0623 · 发表于 2004-10-14 09:46:00

各位大侠，我是刚学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 · 发表于 2004-10-14 12:47:00

;;;注意括号的全角和半角输入。（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 · 发表于 2004-10-14 13:04:00

;;;试试
(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 · 发表于 2004-10-14 18:42:00

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

不是小问题的小问题之二

发表回复

精选推荐