请问怎么云线有独立图层，颜色，不打印属性？

hooboxu

这云线LISP也是论坛里找到的，请问怎么再加工，让他有独立图层，颜色，不打印属性？
一点LISP也 不会。求教了。谢谢大家



(defun c:ew(/ x0 y0 x1 y1)

(setvar "cmdecho" 0 )

(SetQ        p0 (GetPoint "\n 第一角点：") x0(car p0) y0(cadr p0)
        p1 (getcorner p0 "\n 另一角点：") x1(car p1) y1(cadr p1)
        dx (abs (- x0 x1))
        dy (abs (- y0 y1))
)
(Command "rectang" p0 p1)

(if(<= dx dy)
(SetQ al (/ dx 10))
(SetQ al (/ dy 10)))
(Command "revcloud" "a" al al "s" "c" "o" "l" "")

(setvar "cmdecho" 1)
(prinC)
)

smartstar

试试：


(defun c:ew(/ x0 y0 x1 y1)
(setvar "cmdecho" 0 )
(setq oldlayer (getvar "clayer"))
(command "_layer" "n" "云线" "c" "1" "云线" "p" "n" "云线" "")
(setvar "clayer" "云线")
(SetQ        p0 (GetPoint "\n 第一角点：") x0(car p0) y0(cadr p0)
         p1 (getcorner p0 "\n 另一角点：") x1(car p1) y1(cadr p1)
         dx (abs (- x0 x1))
         dy (abs (- y0 y1))
)
(Command "rectang" p0 p1)
(if(<= dx dy)
(SetQ al (/ dx 10))
(SetQ al (/ dy 10)))
(Command "revcloud" "a" al al "s" "c" "o" "l" "")
(setvar "clayer" oldlayer)
(setvar "cmdecho" 1)
(prinC)
)

hooboxu

谢谢,正是我要的..哈哈

bonny

lisp好学                      可也真不好学

qianyi0710

smartstar 发表于 2014-9-24 15:30
试试：

怎么加一个动态云线源码？

mycad

学习了，谢谢！！！！！

happy336

谢谢分享，学习了

Q晋胡

smartstar 发表于 2014-9-24 15:30
试试：

大神，能问问问怎么调打印图层跟不打印图层？