本帖最后由 raimo 于 2012-5-30 08:13 编辑
最终完成程序详见链接
【用LISP来完成7种预设的常用填充】
hatch 的填充类型分三种: 预定义,用户定义,自定义
预定义 就是CAD本身自带的一些填充图案
用户定义 就是由用户通过 “角度”,“间距”,“双向”三个参数的调整组合出来一种线型填充图案
自定义 是用外部附加的一些自定义填充图案文件,来补充原有填充图案的不足
这里我搜索了下百度和明经论坛,都没有发现关于如何用LISP来实现用户定义填充的方法,
比如用间距300x300,双向,0度填充
不知道是否本身就不行(个人感觉应该可以的)。希望知道的高手们不吝赐教,非常感谢
我找遍论坛也就明白Hatch的这一种用法,这里给出一段我琢磨出来的代码,
用来方便填充柱子,颜色如果喜欢红色可以自己改成(command "color" "1")- ;临时填充灰色实体墙
- (defun c:h1 ()
- (prompt "\n灰色实体填充,指定内部点\n")
- (setq pt (getpoint))
- (setq oldcolor (getvar "cecolor"))
- (command "color" "8")
- (command "bhatch" "p" "solid" pt "")
- (command "color" oldcolor)
- (princ)
- )
自己瞎搞一通,居然发现这么弄就可以解决问题。
这样就可以快速的填充自己常用的一些图案,不用反复的进到界面里去设置了
- ;临时填充300x300地砖
- (defun c:h4 ()
- (prompt "\n300x300地砖,指定内部点\n")
- (setq pt (getpoint))
- (setq oldcolor (getvar "cecolor"))
- (setq hpscale "1")
- (command "color" "8")
- (command "bhatch" "p" "U" "0" "300" "Y" pt "")
- (command "color" oldcolor)
- (princ)
我打算继续完善,做一个常用填充工具来。。(已完成)
|