夺天工 发表于 2015-12-18 16:58:44

本帖最后由 夺天工 于 2015-12-18 17:05 编辑

;又加了一句，创建“修订”层，并将云线自动放在“修订”层；
(defun c:ew(/ 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)
)

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

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

xgd80 发表于 2019-1-21 08:16:36

支持一下

奥特蛋 发表于 2019-1-23 00:35:12

谢谢分享

cjjh8301 发表于 2020-4-3 17:33:00

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