lisp快速匹配地物_晓东CAD家园-论坛-A/VLISP-一个快速填充lisp-;the ch of hatch(defun c:Bnn(/ kw lay pt sc PTR1 PTR2 MAX-P...

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有帐号？立即注册

x

;the ch of hatch

(defun c:Bnn(/ kw lay pt sc PTR1 PTR2 MAX-PT-X MIN-PT-X MAX-PT-Y MIN-PT-Y hatch_layer hatch_color)

;-------------------------------------------------------

(setq lay (getvar "clayer"))

(command "_layer" "n" "B-ELEV-FULL-立面填充" "c" 8 "B-ELEV-FULL-立面填充" "")

(command "_layer" "s" "B-ELEV-FULL-立面填充" "")

;-------------------------------------------------------

(princ "\n /1 饰木面/2 牆紙/3 牆紙/4 布艺/5 清玻璃/6 镜面/7 磨砂玻璃/8 艺术玻璃/9 大理石/0 复合木地板/11 地毯/12 地毯/13 花岗岩<1>")

(initget 128 "1 2 3 4 5 6 7 8 9 0")

(setq kw (getkword))

(cond

((= kw &