社区 › Auto Lisp › 求助~可否当完成绘制PLINE后自动填充HATCH呢?

cadauto 发表于 2011-9-16 01:06:00

求助~可否当完成绘制PLINE后自动填充HATCH呢?

小弟对LISP认识不深, 看了半天书也不懂门路,不知有否解决方法, 求教~

gaics 发表于 2018-10-18 08:19:00

这段程序我用了好多年了，确实很好。但有时也不太稳定，hh有时画出来的是矩形框而没有生成填充。个人觉得这个程序有点繁琐了，而且有些系统变量已经在新版本CAD中废弃了，比如blipmode。昨天还试着简化一下，可以实现同样的功能，但有几段代码还没理解其意义和目的，不知道删除后会不会出现什么bug，现在还在测试中。

gaics 发表于 2022-7-16 16:02:00

(if (= (tblsearch "layer" "HAT") nil)
    (command "layer" "N" "HAT" "C" 8 "HAT" "")
)
更新了，增加上述代码。

gaics 发表于 2018-10-18 08:21:00

(command "hatch" "" "" "" "l" "")
用这行代码可以在最后生成的封闭图形中自动填充，你可以试试。但是这句代码是什么意思我还没搞懂，发帖要问下论坛前辈。

cjjh8301 发表于 2011-9-16 08:49:00

给你一个网上淘来的，HH 是画矩形填充，HHH 是任意封闭PL 填充，填充样式是你上一次用CAD自带填充的样式。
不过有时候会出小问题，自己感受吧。

無恒的地盘 发表于 2011-9-16 15:01:00

好东西，好用

無恒的地盘 发表于 2011-9-16 15:59:00

怎么样指定填充样式

yoyoho 发表于 2011-9-16 21:29:00

感谢 cjjh8301 楼主分享程序,学习了!

cjjh8301 发表于 2011-9-17 13:11:00

填充样式是前一次用CAD 自带命令填充的那个样式。

無恒的地盘 发表于 2011-9-17 17:39:00

这个会值(if (= (getvar "hpname") "")是不是CAD上次自带命令填充的那个样式，我是菜鸟不懂，怎么设置指定样式填充，用户定义填充会有BUG

查看完整版本: 求助~可否当完成绘制PLINE后自动填充HATCH呢?