[求助]附加数据间题。

cag

(defun CL (/ lastent exdata newent xData)
(setq xData "This is a new thing!")
(setq lastent (entget (car (entsel))))
(regapp "NEWDATA")
(setq exdata
'((-3
("NEWDATA"
;;; (1000 . "This is a new thing!")
(1000 . xData)
)
)
)
)
(setq newent
(append lastent exdata)
)
(entmod newent)
) 会出现:错误: DXF 组不正确: (-3 ("NEWDATA" (1000 . XDATA)))
怎么修改(1000 . xData)
用这个程序添加的附加数据可以用(entget (car (entsel))'("NEWDATA"))查看到,因为它是添加在图元表的后边，怎么写才能让附加数据看不到。

meflying

1,注意看 ' 的用法,不是随便用的,还有点表的组成方法(cons)...


2,即是扩展数据,就可以看到...

cag

呵，回应很快，能否帮我修改一下？对纯Lisp不太懂了。


用VBA编的扩展数据可以看不到啊。

meflying

(setq exdata
(list (list -3
( list "NEWDATA"
;;; (1000 . "This is a new thing!")
(cons 1000 xData)
)
)
)
) 你做个来看看,有看不到的扩展数据?

cag

多谢了。


哦，试过了，原来都是可以看到了，学习学习！