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