选择线段，将节点坐标附给扩展字符数据。报错

kingerst

选择线段，将节点坐标附给扩展字符数据。报错：; 错误: DXF 组不正确: (-3 ("设备类" (1000 90.0 110.0)))
请高手帮忙，另外如果多个坐标怎么一一对应相应的注册名？

2. (defun c:kz()
3. (regapp "设备类")   ;;;注册专属名
4.    ;(setq a (getstring "please input"))
5.     (setq en (car (entsel)))
6.     ( if en
7.       (progn
8.          (setq a (cdr(assoc 10 endata)))
9.       (setq new_list(list -3 (list "设备类" (cons 1000 a))))
10.       (setq endata (entget en))
11.             (if (setq old_list(assoc -3 endata))
12.        (setq endata(subst new_list old_list endata))
13.        (setq endata(append endata(list new_list)))
14.           )
15.    (entmod endata)
16.     )
17.   )
18.   
19. )

(defun c:kz() (regapp "设备类")   ;;;注册专属名    ;(setq a (getstring "please input"))     (setq en (car (entsel)))     ( if en       (progn          (setq a (cdr(assoc 10 endata)))       (setq new_list(list -3 (list "设备类" (cons 1000 a))))       (setq endata (entget en))             (if (setq old_list(assoc -3 endata))        (setq endata(subst new_list old_list endata))        (setq endata(append endata(list new_list)))           )    (entmod endata)     )   )    )

5061220

我也想跑，但怕怕啊！

kingerst

这就是在走了。如果真的跑，你会不会觉得我在飞？

ljttjl

(setq new_list(list -3 (list "设备类" (cons 1000 a))))

此处变量a如为坐标点，则对应扩展数据组码不应为1000，可查看帮助文件看下坐标点对应的扩展数据组码。

kingerst

就是想放在字符串里，有没有办法tostring?