Question

Autolisp 程序 参数类型错误

错误: 参数类型错误: 二维/三维点: 10

程序：
(defun c:lsp_25()
(setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq en (car (entsel "\n选取线:")))
(setq pt10 (car (assoc 10 (entget en))))
(setq pt11 (cdr (assoc 11 (entget en))))
(setq dd (distance pt10 pt11))
(setq shh (getvar "textsize"))
(princ "\n线段长度=")
(princ dd)
(setq str_hh (strcat "\n文字高度<" (rtos shh 2) ">:"))
(setq hh (getdist pt10 str_hh))
(if (null hh) (setq hh shh))
(setq txt (getstring "\n文字内容:"))
(setq ang (angle pt10 pt11))
(setq i 1 txtpt pt10)
(setq nn (1- (strlen txt)))
(repeat (1+ nn)
(setq stxt (substr txt i 1))
(command "text" "c" txtpt hh (* (/ ang pi) 180) stxt)
(setq txtpt (polar txtpt ang (/ dd nn)))
(setq i (1+ i))
)
(setvar "osmode" os)
(prin1)
)
程序无法正常运行 请高手帮忙看下 问题出在哪里。
这程序是在一条线上写上文字。

Answer 1

(setq pt10 (car (assoc 10 (entget en))))

car改cdr

car取第一个值，就是10，后面distance函数要求输入两个点，要求的数据格式是二维点表，或三维点表，输入10就发生了数据类型错误。