（测试）[编程申请]：确定起始边界的填充（地面铺砖用）

cqnj023

最初由 民工 发布
[B]试过了，一点矩形的角以后，屏幕上出现一个大大的白色方块，吓我一跳
有些时候，被填充的区域并不是矩形，所以民工提出主要是输入“起始边界”
另外最好还要能调整尺寸大小，而且生成的要是填充图案才好。 [/B]

选择填充物体时要选HATCH对象，不要选择矩形。

民工

最初由 snsj 发布
[B]白色方块？说的有点悬：），只是改变填充的X和Y的偏移量怎么会有大白块，对不规则图形也可以调整呀，能不能把大白块贴出来看看，看看到底是何方神圣：） [/B]

na, here you are!

看到上面的帖子才知道，原来是民工理解错误，点选的是方框。
但是这样处理要先进行尺寸合适的填充，如果能在一个命令中完成就更好了。[/COLOR]

xgwl

我都说了用迷你小工具, 后来看了你的图解要求, 再加上晓东工具,轻松实现!

民工

最初由 xgwl 发布
[B]我都说了用迷你小工具, 后来看了你的图解要求, 再加上晓东工具,轻松实现! [/B]

没有用过“迷你小工具”，不知道是否支持acad200+，论坛里也搜索不到相关内容。

楼上的处理方式还是要调用不同的工具，还是不如在一个命令过程中全部完成方便。

经过摸索，我是这样按照楼上的步骤来操作的：
先建立填充，再用晓东工具箱的“填充相关”下面的“修改比例”命令，修改间距输入“sp”（可惜默认总是sc，要是能够记忆上次输入就好了）。
调整好间距的填充再用snsj提供的程序（因为没有迷你小工具），修改定位点，完成

eachy

最初由 民工 发布
[B]在装修施工图中经常要做地砖、石材的填充，多数是矩形。
使用acad自身的填充命令最多只能确定板块的大小，无法指定起始边界，而实际施工中总是有两个起始边界以保证地砖尽量完整。
能否编一个工具，在填充时能够指... [/B]

两个命令
1 BaseHatch 填充后指定基点和间隙
2 Habasedit 编辑现有填充

民工

第一个命令，在确认了你的获取正版的条件后出现下面的信息
命令: basehatch
取消!"no function definition: INITDIA"

第二个命令，指定基点，输入Y向间距后填充间距修改成功，但是不是从基点起始，因此还是没有实现起始边界板块完整。

eachy

最初由 民工 发布
[B]第一个命令，在确认了你的获取正版的条件后出现下面的信息
命令: basehatch
取消!"no function definition: INITDIA"

第二个命令，指定基点，输入Y向间距后填充间距修改成功，但是不是从基点起始，因此还是没有... [/B]

1 你用的是CAD2002，上面的程序已更新，重新下载
2  第二个问题我再看看

民工

现在程序很好用了，在acad里加载：ehatch.vlx文件

1 BaseHatch 填充后指定基点和间隙：命令输入后首先是调用acad自身的bhatch命令进行填充，这一步跟以前一样，确定填充后在命令行要求输入“基点”和“Y方向上的间距”，输入以后填充图案就改变为要求的间距，并且从基点起始填充。就是民工想要的效果了！

2 Habasedit 编辑现有填充：就是编辑现有的填充，过程如上面的后面几步。

由于命令名较长，建议定制工具按钮来简化操作
强烈推荐大家使用！

这是民工的第2000个帖子，向敬爱的eachy版主致敬！
你再高，eachy版主总是比你高“一尺”

我爱00

有没有天正2的啊？
我怎么用的时候显示是没有此命令啊？

huwei2003

basehatch和habesedit都用不了啊

舒展

最初由 eachy 发布
[B][QUOTE]最初由 民工 发布
[B]在装修施工图中经常要做地砖、石材的填充，多数是矩形。
[/B]

下载加载后显示“试用到期, 请与作者联系!”，望重新更新下载附件。

民工

acad2006已经改进了填充，增加了填充基点的设置
这一次的升级终于有了不少的长进，大家不要再抱着R14这个老夜壶不放了，该更新了。

saint12

最初由 eachy 发布
[B][QUOTE]最初由 民工 发布
[B]在装修施工图中经常要做地砖、石材的填充，多数是矩形。
使用acad自身的填充命令最多只能确定板块的大小，无法指定起始边界，而实际施工中总是有两个起始边界以保证地砖尽量完?.. [/B]

eachy 斑竹，你好？这个命令的试用期已经过了。能否再发一个阿？

eachy

在 2006 中，Hatchedit 已经可以完成上述功能，我要找找源文件才能再编译。

xyp1964

2. [FONT=courier new](defun c:test ()
   
3.   ;(CMDLA0)
   
4.   (setq        bname(USTR 1 "\n填充图案" bname nil)
   
5.         bsc(UREAL 7 "" "\n填充比例" bsc)       
   
6.         pt (getpoint"\n填充基点 : ")
   
7.         pt1 (getpoint"\n填充区域内一点 : ")
   
8.   )
   
9.   ;(setvar"osmode"0)
   
10.   (command "bpoly" pt1 "")
    
11.   (setq en (entlast))  
    
12.   (command"ucs""n" pt)
    
13.   (setvar "hpname" bname)
    
14.   (command "_bhatch" "p" "" bsc "0" "s" "" "s" en "" "")
    
15.   (entdel en)
    
16.   ;(CMDLA1)
    
17. )[/FONT]

[FONT=courier new](defun c:test ()<br />   ;(CMDLA0)<br />   (setq        bname(USTR 1 "\n填充图案" bname nil)<br />         bsc(UREAL 7 "" "\n填充比例" bsc)        <br />         pt (getpoint"\n填充基点 : ")<br />         pt1 (getpoint"\n填充区域内一点 : ")<br />   )<br />   ;(setvar"osmode"0)<br />   (command "bpoly" pt1 "")<br />   (setq en (entlast))  <br />   (command"ucs""n" pt)<br />   (setvar "hpname" bname)<br />   (command "_bhatch" "p" "" bsc "0" "s" "" "s" en "" "")<br />   (entdel en)<br />   ;(CMDLA1)<br /> )[/FONT]