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

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

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

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

本帖最后由 作者 于 2004-8-29 0:23:26 编辑 <br /><br /> ;;;*图层删除 C:tcsc 请慎用<BR>(defun c:tcsc (/ l e)<BR>       (setq L (cdr (assoc 8 (entget (car (entsel "\n拾取被删除图层之任一物体: ")))))<BR>        ss (ssget "X" (list(cons 8 l)))<BR>        )<BR>       (command "erase" ss "")<b>(repeat 3 (COMMAND "-PURGE" "A" "" "n"))<BR></b>       )

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

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


<B>       (repeat 3 (COMMAND "-PURGE" "A" "" "n"))<BR></B><BR>       )

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

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

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

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

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

这分别有上头我所说功能的两个程序，但却必须靠接口，所以才想拜託大大修改一下
页: [1]
查看完整版本: [求助]請求這樣的編程！