社区 › AutoLISP/Visual LISP 编程技术 › 求助~可否当完成绘制PLINE后自动填充HATCH呢?

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

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

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

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

cjjh8301 发表于 2011-9-16 08:49
给你一个网上淘来的，HH 是画矩形填充，HHH 是任意封闭PL 填充，填充样式是你上一次用CAD自带填充的样式。
...

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

gaics 发表于 2022-8-15 07:30:46

tfanghui 发表于 2022-8-12 19:30
前辈，这个代码如果要指定图案该怎么写

(command "hatch" "" "" "" "L" "")
;;(command "hatch" "名称" "比例" "角度" "边界" "确定")
;;"L"同entlast

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

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

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

好东西，好用

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

怎么样指定填充样式

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

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

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

本帖最后由 cjjh8301 于 2011-9-17 13:13 编辑

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

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

本帖最后由 無恒的地盘 于 2011-9-17 17:40 编辑

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

hhh454 发表于 2011-9-17 17:52:41

我也刚刚用到这个功能，就是设置一个变量为刚刚绘制好的图形。学习楼上的程序

hhh454 发表于 2011-9-17 19:05:48

非常感谢楼上的帮助，通过上面的代码，我自己的思路终于能够实现，我已经在我的帖子更新了。

cadauto 发表于 2011-9-20 22:49:03

谢谢 cjjh8301 的分享, 可惜這个不能画弧~

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