画"云线"增强版本

夺天工

矩形云线：增加“修订”层，并将云线自动放在“修订”层；借用别人的成果，修改而成
(defun c:yx(/ x0 y0 x1 y1)

(command "layer" "M" "修订" "C" "6" "" "LT" "CONTINUOUS" "" "")  

(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 8))
(SetQ al (/ dy 8)))
(Command "revcloud" "a" al al "s" "c" "o" "l" "")
  
(setvar "cmdecho" 1)
(prinC)
)

sjl_fyl

谢谢

tensir

感谢作者的分享！