求助!!!

spring

(defun c:h_copy ()
;;;_______________________________________________________
(setq plate '("PH_W" "PPS_W"))
(setq plate_wc '("0" "1"))
(setq ss (ssget))
(if ss
(progn
(setq n 0)
(while (> (sslength ss) n)
(setq en (ssname ss n))
(setq ed (entget en))
(setq n@ 0)
(while (> (length plate) n@)
(setq lay (nth n@ plate))
(setq ed (subst (cons 8 lay) (assoc 8 ed) ed))
(setq lay_wc (nth n@ plate_wc))
;;(setq ff (cons 1000 lay_wc))
(regapp "MY_TAG")
(setq exdata (list (list -3
(list "MY_TAG"
(cons 1000 "h")
(cons 1000 lay_wc)
)
)
)
)
(setq ed (append ed exdata))
(entmake ed)
;;(setq lay_wc nil)
(setq n@ (1+ n@))
)
(setq n (1+ n))
)
(setq plate nil)
(setq plate_wc nil)
)
)
(princ)
) 这段程序不能正常运行，但是如果把 (regapp "MY_TAG")
(setq exdata (list (list -3
(list "MY_TAG"
(cons 1000 "h")
(cons 1000 lay_wc)
)
)
)
)
(setq ed (append ed exdata)) 这段删掉就可以正常运行了，如果没删掉它只复制到 PH_W 层去，我百思不得其解，不知道问题出在哪.

meflying

我这里可以正常运行,不过你使用了ENTMAKE,就新建了一个对象,不知你是否只是需要添加扩展数据,这样就应该用ENTMOD

spring

不会吧，我这里不行啊，只能升成一个 我是要新建一个并显需要添加扩展数据，不动原来的 我改成这样子了还是不行 (while (> (length plate) n@)
(setq lay (nth n@ plate))
(setq ed (subst (cons 8 lay) (assoc 8 ed) ed))
(setq lay_wc (nth n@ plate_wc))
(if (= (regapp "MY_TAG") NULL)
(regapp "MY_TAG")
)
(setq exdata (list (list -3
(list "MY_TAG"
(cons 1000 "h")
(cons 1000 lay_wc)
)
)
)
)
(setq ed (append ed exdata))
(entmake ed)
;;(setq lay_wc nil)
(setq n@ (1+ n@))
)

meflying

原来你是要生成新的啊,我是在2005里测试的,不知道是不是会自动过滤无效DXF组码...因为你要用ENTMAKE,你应该仔细看看帮助文件中ENTMAKE的介绍,哪些是不可以的,比如组码(-1 . 对象名)就是不可以的

spring

程序一 :在 PH_W         PPS_W图层上建立新图元(不加扩展数据)，程序没问题






程序二 :在 PH_W         PPS_W图层上建立新图元增加扩展数据，程序有问题

meflying

那就搞不明白了,我拷贝你的程序,一个字都没有改过,直接运行,随便画了几条线来测试的,完全没有问题,即新建了对象,又在新建的对象上添加了扩展数据...


如果你还是不行,你可以这样试试,先新建对象,然后再在新建的对象上添加扩展数据,两者分开做

spring

好的，我试试看


程序二我执行的结果是,在 PH_W 层上生成了图元并显也有扩展数据（只生成了一个图元）


我要的结果是在 PH_W         PPS_W 层上生成了图元并显也有扩展数据(生成两个图元)


我用的是简体版的 AutoCAD2002

meflying

才搞明白你的意思...改这里,应该明白原因了吧... ;(setq ed (append ed exdata)) ;增加扩展数据
(setq ed (subst exdata (assoc -3 ed) ed))

spring

还是不行，改成那样字图元就没有扩展数据了 如果我选择的物体有扩展数据的话那应该改成这样 (if (= (assoc -3 ed) nil)
(setq ed (append ed exdata))
(setq ed (subst exdata (assoc -3 ed) ed)) ;增加扩展数据
)

meflying

呵呵,对了...