一个快速填充lisp

rh88cn · 发表于 2013-12-5 10:39:45

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

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

×

;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 "1")
(setq pt (getpoint "\n 选择填充点"))
(setq sc (* 12 (getvar "dimscale")))
(command "_.bhatch" "p" "PANEL" sc "95" pt )
)
((= kw "2")
(setq pt (getpoint "\n 选择填充点"))
(setq sc (* 2 (getvar "dimscale")))
(command "_.bhatch" "p" "GRASS" sc "0" pt )
)
((= kw "3")
(setq pt (getpoint "\n 选择填充点"))
(setq sc (* 10 (getvar "dimscale")))
(command "_.bhatch" "p" "TEXTURED" sc "0" pt )
)
((= kw "4")
(setq pt (getpoint "\n 选择填充点"))
(setq sc (* 4 (getvar "dimscale")))
(command "_.bhatch" "p" "CROSS" sc "45" pt )
)
((= kw "5")
(setq pt (getpoint "\n 选择填充点"))
(setq sc (* 8 (getvar "dimscale")))
(command "_.bhatch" "p" "AR-RROOF" sc "45" pt )
)
((= kw "6")
(setq pt (getpoint "\n 选择填充点"))
(setq sc (* 12 (getvar "dimscale")))
(command "_.bhatch" "p" "AR-RROOF" sc "45" pt )
)
      ((= kw "7")
(setq pt (getpoint "\n 选择填充点"))
(setq sc (* 1 (getvar "dimscale")))
(command "_.bhatch" "p" "AR-SAND" sc "0" pt )
)
      ((= kw "8")
(setq pt (getpoint "\n 选择填充点"))
(setq sc (* 16 (getvar "dimscale")))
(command "_.bhatch" "p" "YS" sc "0" pt )
)
      ((= kw "9")
(setq pt (getpoint "\n 选择填充点"))
(setq sc (* 10 (getvar "dimscale")))
(command "_.bhatch" "p" "大理石" sc "0" pt )
)
      ((= kw "0")
(setq pt (getpoint "\n 选择填充点"))
(setq sc (* 10 (getvar "dimscale")))
(command "_.bhatch" "p" "DOLMIT" sc "0" pt )
)
      ((= kw "11")
(setq pt (getpoint "\n 选择填充点"))
(setq sc (* 10 (getvar "dimscale")))
(command "_.bhatch" "p" "101" sc "0" pt )
)
      ((= kw "12")
(setq pt (getpoint "\n 选择填充点"))
(setq sc (* 16 (getvar "dimscale")))
(command "_.bhatch" "p" "102" sc "0" pt )
)
      ((= kw "13")
(setq pt (getpoint "\n 选择填充点"))
(setq sc (* 10 (getvar "dimscale")))
(command "_.bhatch" "p" "DOTS" sc "0" pt )
)
((= kw nil)

)
)

;---------------------------------------
  (command "_layer" "s" lay )
;-------------------------------

(princ)
)

rh88cn · 发表于 2013-12-13 14:39:56

人气不足，这个东西在做室内节点时还是比较有用的。

434939575 · 发表于 2014-11-11 14:49:22

来了。谢谢！:D

pking5465 · 发表于 2014-11-13 14:22:37

建筑基本用不到，学习学习了，谢谢。

yanchao316 · 发表于 2016-12-28 19:11:37

啥也不说了，感谢楼主分享哇！

zhgcjl · 发表于 2018-7-3 03:35:43

感谢楼主分享！如何使用的

yoyoho · 发表于 2018-7-3 09:22:35

感谢楼主分享!!!!!

kqqt6236 · 发表于 2018-7-5 00:08:12

谢谢分享。

jason305341043 · 发表于 2018-11-25 17:23:15

好好学习，天天向上，感谢楼主分享

aisong220 · 发表于 2018-11-25 18:06:33

jason305341043 · 发表于 2018-11-26 15:11:54

下载试用了，填充比例那还需改善下

lizhaojun45 · 发表于 2019-4-15 12:41:09

本帖最后由 lizhaojun45 于 2019-4-19 18:27 编辑

111111111111

账号		自动登录	找回密码
密码			立即注册

[每日一码] 一个快速填充lisp

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