[求助]請求這樣的編程！

ljs026 · 发表于 2004-8-28 18:38

要将图层合併，合併到目标层后将原来图层删除！或者是删除一个层（包括层上的所有实体）

xyp1964 · 发表于 2004-8-28 23:57

本帖最后由作者于 2004-8-29 0:23:26 编辑

;;;*图层删除 C:tcsc 请慎用
(defun c:tcsc (/ l e)
(setq L (cdr (assoc 8 (entget (car (entsel "\n拾取被删除图层之任一物体: ")))))
ss (ssget "X" (list(cons 8 l)))
)
(command "erase" ss "")(repeat 3 (COMMAND "-PURGE" "A" "" "n"))
)

xyp1964 · 发表于 2004-8-29 00:06

;;;合并它层 C:hbtc
(defun c:hbtc (/ la s1 ss)
(while (not (setq s1 (ENTSEL "\n\t点取新层任一物体: "))))
(setq la (CDR (ASSOC 8 (entget (car s1)))))
(PRINC "\n\t确任被改层物体: ")
(setq ss (ssget))
(command "change" ss "" "p" "layer" la "") (repeat 3 (COMMAND "-PURGE" "A" "" "n"))

)

ljs026 · 发表于 2004-8-29 00:11

谢谢大大，只是小弟的意思是删除物件时也一併删除物件的层耶！另外\再请教大大，可以帮小弟编另外这个将图层合併，合併到目标层后将原来物件图层删除的程序吗！

xyp1964 · 发表于 2004-8-29 00:27

将某图层全部合并到另一图层的情况几乎不存在！

ljs026 · 发表于 2004-8-29 00:41

这分别有上头我所说功能的两个程序，但却必须靠接口，所以才想拜託大大修改一下

账号		自动登录	找回密码
密码			注册

[求助]請求這樣的編程！

本帖子中包含更多资源