[求助]：为什么我不能插入一个属性块

yuun

为什么我不能插入一个属性块。
插入后，自动填写数据

(defun c:mxb()
(setq scmde (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq P (getpoint " \n Please input a point："))
  (setq date nil)
(setq f (open "mxb.txt" "R"))
(setq bk "mxb1.dwg")
;(command "insert" bk P 1 1 0)
;(setq pl (list (car p) (+ (cadr p) 9)))
(while (setq a (read-line f))
(setq a (strcat "("a")"))
(setq a (read a))
(setq SERI (nth 0 a))
(setq STAN (nth 1 a))
(setq NACN (nth 2 a))
(setq NAEN (nth 3 a))
(setq SIZE (nth 4 a))
(setq METE (nth 5 a))
(setq NUMB (nth 6 a))
(setq WET (nth 7 a))
(setq SUMW (nth 8 a))
(setq MARK (nth 9 a))
(command "-insert"  bk p ""  "" "" SERI STAN NACN NAEN SIZE MATE NUMB WET sumw mark)
(setq p (1ist (Car p) (+ 8 (cadr p))))
)
(setvar "cmdecho" scmde)
(close f)
(print)
  
)

命令: mxb
Please input a point：块 mxb1 参照本身
*无效*
; 错误: 函数被取消
命令: *取消*


为什么会出错呢？别人也是这样做就行啊。


是不对应的原因。