vlisp2012 发表于 2012-4-14 10:10:26

矩形云线

非原创，不知出处。我只是简单的修改了一下。
(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 8))
(SetQ al (/ dy 8)))
(Command "revcloud" "a" al al "s" "c" "o" "l" "")

(setvar "cmdecho" 1)
(prinC)
)

KO你 发表于 2019-1-19 17:45:07

如果加上样式切换：
[普通(D)/手绘(F)]
就更完美,期待完善。

Saging 发表于 2012-4-14 10:28:45

每次画云线都是手画,想都没想用扩展.呵,这个好,省事多了.

注册 发表于 2012-4-14 11:18:21

不错，跟贱人的一样好像

注册 发表于 2012-4-14 11:22:34

晕，实验一下完全不同

hgf876 发表于 2012-4-14 11:31:12

不错，挺方便的。

yoyoho 发表于 2012-4-14 11:55:16

感谢分享程序!

wslnjut 发表于 2013-3-4 13:47:44

代码咋看不到了啊·····

lengyan 发表于 2014-12-10 21:02:24

不错，很少方便啊

sxm121233 发表于 2015-1-28 15:45:50

很好，小弟谢过了

夺天工 发表于 2015-12-18 16:45:39

不错
页: [1] 2
查看完整版本: 矩形云线