扩展数据追加的问题

ljcgq

扩展数据追加,请帮忙看看错在哪.
(defun C:kz()
(setq gg(entget(ssname (ssget) 0)))
(regapp "MYAPp" )
(setq g (-3 ("MYAPP" (1000 "SUITOFARMOR") (1002 "{") (1040 0.0) (1040 1.0) (1002 "}") ) )
)

(setq ggg (append gg g))
(entmod ggg)

meflying

感觉你不应该不知道问题在哪儿啊...很基础的问题


调用方法:


函数fun abc)


表1 2 3)或(list 1 2 3)

龙龙仔

2. (defun C:KZ ()
3.    (setq GG (entget (ssname (ssget) 0)))
4.    (regapp "MYAPp")
5.    (setq  G '(-3
6.          ("MYAPP"
7.            (1000 . "SUITOFARMOR")
8.            (1002 . "{")
9.            (1040 . 0.0)
10.            (1040 . 1.0)
11.            (1002 . "}")
12.          )
13.        )
14.    )
15.    (setq GGG (append GG (list G)))
16.    (entmod GGG)
17.    (princ)
18. )

(defun C:KZ ()    (setq GG (entget (ssname (ssget) 0)))    (regapp "MYAPp")    (setq  G '(-3          ("MYAPP"            (1000 . "SUITOFARMOR")            (1002 . "{")            (1040 . 0.0)            (1040 . 1.0)            (1002 . "}")          )        )    )    (setq GGG (append GG (list G)))    (entmod GGG)    (princ) )

ljcgq

不好意思,谢谢班主的帮助,

无痕

哈哈，小钓一笔