这是我根据从网络上收集到的填充LISP插件，加以修改的的结果。虽然不完美，但还是能达到，60%的期望。发出来，大家帮忙修改一下。

;填充图案的 LISP插件

(defun c:HH(/ 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" "s" "瓷砖" "");;;【把瓷砖图层置为当前工作层，根据需要来更改填充图案的放置层】

;;;如果没有这个瓷砖图层,使用这个HH命令前新建一个瓷砖图层，后面

;;;生成的填充图案，就自动的置入瓷砖图层了。

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

(princ "\n /1 801/2 801-5/3 802/4 802-5/5 清玻璃/6 镜面/7 磨砂玻璃/8 艺术玻璃/9 大理石/0 复合木地板/11 地毯/12 地毯/13

花岗岩<2>");;;输入编号，确定选择用哪种图案来填充

;;;如果鼠标右击，就表示使用2#填充图案。★★★【这个功能还没有写出来】

;;;点选要填充的区域

;;;不使用上一步的，点选填充区域的方法，输入字母S，切换到，通过选择填充对象，来确定填充区域。

;;;;;鼠标右击，结束对象选择★★★【这个功能还没有写出来】

;;;;;设置新的填充原点★★★【这个功能还没有写出来】

(initget "1 2 3 4 5 6 7 8 9 0 11 12 13")

(setq kw (getkword))

(cond

((= kw "1")

(setq pt (getpoint "\n 选择填充点"))

(setq sc (* 1 (getvar "dimscale")))

(command "_.bhatch" "p" "801" sc "0" pt );;;801代表自定义填充图案名称，“0”代表填充图案旋转角度，后面的参数类似。

)

((= kw "2")

(setq pt (getpoint "\n 选择填充点"))

(setq sc (* 1 (getvar "dimscale")))

(command "_.bhatch" "p" "801-5" sc "0" pt )

)

((= kw "3")

(setq pt (getpoint "\n 选择填充点"))

(setq sc (* 1 (getvar "dimscale")))

(command "_.bhatch" "p" "802" sc "0" pt )

)

((= kw "4")

(setq pt (getpoint "\n 选择填充点"))

(setq sc (* 1 (getvar "dimscale")))

(command "_.bhatch" "p" "802-5" sc "0" pt )

)

((= kw "5")

(setq pt (getpoint "\n 选择填充点"))

(setq sc (* 1 (getvar "dimscale")))

(command "_.bhatch" "p" "AR-RROOF" sc "0" pt )

)

((= kw "6")

(setq pt (getpoint "\n 选择填充点"))

(setq sc (* 1 (getvar "dimscale")))

(command "_.bhatch" "p" "AR-RROOF" sc "0" 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 (* 1 (getvar "dimscale")))

(command "_.bhatch" "p" "YS" sc "0" pt )

)

((= kw "9")

(setq pt (getpoint "\n 选择填充点"))

(setq sc (* 1 (getvar "dimscale")))

(command "_.bhatch" "p" "大理石" sc "0" pt )

)

((= kw "0")

(setq pt (getpoint "\n 选择填充点"))

(setq sc (* 1 (getvar "dimscale")))

(command "_.bhatch" "p" "DOLMIT" sc "0" pt )

)

((= kw "11")

(setq pt (getpoint "\n 选择填充点"))

(setq sc (* 1 (getvar "dimscale")))

(command "_.bhatch" "p" "101" sc "0" pt )

)

((= kw "12")

(setq pt (getpoint "\n 选择填充点"))

(setq sc (* 1 (getvar "dimscale")))

(command "_.bhatch" "p" "102" sc "0" pt )

)

((= kw "13")

(setq pt (getpoint "\n 选择填充点"))

(setq sc (* 1 (getvar "dimscale")))

)

(command "_.bhatch" "p" "DOTS" sc "0" pt )

((= kw nil)

)

)

(princ)

)