[求助]：CHAM同時換層

colatree

當line 1 layer為1，line 2 layer為2
chamfer(倒直角時)，點選第1 條線與第2條線，讓第2條線與第1條線變成直角且讓LINE 1 與 LINE 2同一個layer 1
是否哪位大俠可以幫忙
在此多謝了!

xyp1964

图层控制：

colatree

我並不需要圖層管理，我只是想將換層與倒角同時處理
不想執行兩個程序

logo3490

(defun c:test (/ nam chamfera chamferb chammode e e1 e2 es ex lays)

        (repeat 2
                (setq nam nil)
                (while (/= nam "LINE")
                        (while (null (setq e (entsel))))
                        (setq nam (cdr (assoc 0 (entget (car e)))))
                ) ; end while
                (setq es (append es e))
        )

        (setq
                CHAMMODE        (getvar "CHAMMODE")
                CHAMFERA        (getvar "CHAMFERA")
                CHAMFERB        (getvar "CHAMFERB")
                e1                        (car es)
                e2                        (caddr es)
                lays                (assoc 8 (entget e1))
                ex                        (entget e2)
                ex                        (subst lays (assoc 8 ex) ex)
        ) ; end setq

        (entmod ex)

        (setvar "CHAMMODE" 0)
        (setvar "CHAMFERA" 0)
        (setvar "CHAMFERB" 0)

        (command "_chamfer" e1 e2)

        (setvar "CHAMMODE" CHAMMODE)
        (setvar "CHAMFERA" CHAMFERA)
        (setvar "CHAMFERB" CHAMFERB)

        (princ)

) ; end defun

dwg001

最初由 logo3490 发布
[B](defun c:test (/ nam chamfera chamferb chammode e e1 e2 es ex lays)

        (repeat 2
                (setq nam nil)
                (while (/= nam "LINE")
                        (while (null (setq e (entsel))))
                        (setq nam (cdr (assoc 0 (entget (... [/B]

logo3490 兄：你的图片是如何做出来的？能否透露一下？先谢了。邮箱:dwg001@21cn.com

logo3490

那圖片是 PHOTOSHOP 做的