【问题已解决】如何用LISP控制填充中的用户定义图案
本帖最后由 raimo 于 2012-5-30 08:13 编辑最终完成程序详见链接
【用LISP来完成7种预设的常用填充】
hatch 的填充类型分三种:预定义,用户定义,自定义
预定义就是CAD本身自带的一些填充图案
用户定义就是由用户通过 “角度”,“间距”,“双向”三个参数的调整组合出来一种线型填充图案
自定义是用外部附加的一些自定义填充图案文件,来补充原有填充图案的不足
这里我搜索了下百度和明经论坛,都没有发现关于如何用LISP来实现用户定义填充的方法,
比如用间距300x300,双向,0度填充
不知道是否本身就不行(个人感觉应该可以的)。希望知道的高手们不吝赐教,非常感谢
forum.php?mod=image&aid=67500&size=300x300&key=7d9619c9eb1920f106f3adbc011d3064&nocache=yes&type=fixnone
我找遍论坛也就明白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)
我打算继续完善,做一个常用填充工具来。。(已完成)
用户定义的填充图案,必须是一个图案对应一个单独的pat文件,且文件名和图案名称保持一致,将其放在搜索目录下即可! Gu_xl 发表于 2012-5-28 11:16 static/image/common/back.gif
用户定义的填充图案,必须是一个图案对应一个单独的pat文件,且文件名和图案名称保持一致,将其放在搜索目录 ...
G版请看我补的图,是说的这种用户定义填充方式 我居然自己发现怎么弄了。。研究一下,稍后给出代码 谢谢楼主,很有启发性 学习了。。谢谢楼主!^_^ 请教楼主大大,能增 加一个 移动 指定原点的功能吗?? 谢谢分享经验与代码,,想问一下楼主,pt 是指pat文件格式吗? 还有就是“P” 是指拾取点的意思吗? 太复杂了,大哥。你这编程太呆板了。。。
简直叫我抓狂。。。
页:
[1]