cj52000 发表于 2010-12-26 11:49:40

求复制图层的图元到指定图层上的程序？

各位好：

          想求一程序，就是输入命令后，选择要复制的图元，然后空格，就直接复制到“DIE"层了，如果要复制到其它层，直接把层名改下就可以了，谢谢大家！

露水2 发表于 2010-12-26 12:57:49

本帖最后由 露水2 于 2010-12-26 12:58 编辑

(defun c:test()
(setq ss (ssget))
(setq str (getstring "\n新图层:"))
(command "chprop" ss "" "la" str "")
)


不完善剩下的自己改

cj52000 发表于 2010-12-26 13:51:03

回复 露水2 的帖子

谢谢相助，可能是我没有表达清楚，我希望的是输入命令后，选择要复制的图元，空格，就直接复制到“DIE"层了，不用再次输入层名了，而且原图层上的内容还在，您的程序好像原图层上的图元没有了，直接转到了”DIE"层，烦请再看下，谢谢！

露水2 发表于 2010-12-26 13:52:56

cj52000 发表于 2010-12-26 13:51 static/image/common/back.gif
回复 露水2 的帖子

谢谢相助，可能是我没有表达清楚，我希望的是输入命令后，选择要复制的图元，空格，就直 ...

(defun c:test()
(setq ss (ssget))
(command "chprop" ss "" "la" "die" "")
)

露水2 发表于 2010-12-26 13:53:22

我没有测试 感情你一点都不会啊
你试试

cj52000 发表于 2010-12-26 14:21:05

本帖最后由 cj52000 于 2010-12-26 14:28 编辑

回复 露水2 的帖子

呵呵，见笑了，很有兴趣 但是不知道从何下手

刚试了下，原图层上的图元没有了，比如说我在0图层上画了一个圆，然后用了您的程序，结果只有"DIE"图层上的圆，0图层上的圆没有了，烦请再看下，谢谢！

露水2 发表于 2010-12-26 14:33:30

用原地拷贝 再改涂层 @ 这个你研究一下

Andyhon 发表于 2010-12-26 14:36:06

(setq ss (ssget))
(command "copy" ss "" '(0 0) "")    ; 补这列
(command "chprop" ss "" "la" "die" "")

露水2 发表于 2010-12-26 14:46:59

(setq ss (ssget))
(command "copy" ss "" "@" "@")   ; 这个也可以
(command "chprop" ss "" "la" "die" "")
记住再用点时 前加"non"

461045462 发表于 2010-12-27 21:01:41

先建立DIE层、复制、再让它转为DIE层
页: [1] 2
查看完整版本: 求复制图层的图元到指定图层上的程序？