Question

autolisp参数类型错误 怎么破

autolisp参数类型错误哪位大神看一下(defun c:hh() (setq filename (getfiled "select File:" "d:/HH/" "txt" 1)) (if (not filename) (progn (alert "没有发现文件！") (exit)) ) (setq id (open filename "w")) (setq en (entnext)) (setq nedata (entget en)) (while en (princ nedata id) (princ "\n" id) (setq en (entnext en)) (if en (setq nedata (entget en))) ) (close id)) (setq A (assoc 10 nedata)) (setq x1 (nth 1 A)) (setq y1 (nth 2 A)) (setq B (assoc 11 nedata)) (setq x2 (nth 1 B)) (setq y2 (nth 2 B)) (setq r 0.2) (setq A1 (list x1 y1)) (setq B1 (list x2 y2)) (command "circle" A1 r) (command "circle" B1 r) (setq dx 0.1) (setq n (fix (/ (- x2 x1) dx))) (setq n1 1) (repeat n (setq x (+ (* dx n1) x1)) (setq y (+ (* (/ (- x x1) (- x2 x1)) (- y2 y1)) y1)) (setq p1 (list x y)) (print p1) (setq n1 (1+ n1)) (command "circle" p1 r) ))

Answer 1

按一下程序停在哪一句，然后重点分析。应该是返回数据空之类的错误。