另类"继承填充”，改变你的填充传统

尘缘一生

1：对于继承填充，第一步：选择继承的图案，取得它的1：图案名 2：图案比例 3：图案角度 即可，至于其它的，纯粹无多大意义。
2：取得后，下一步就是：点选、围选画出它来。

3： 问题是，围曲不闭合是常事，经常出错。哪么我写了个代码，不管围区它存不存在，有没有，只要你鼠标逐点点取下想填充的范围各角点 即可完成了。

本站参考帖子：

    http://bbs.mjtd.com/thread-168991-1-1.html

2. ;;---------继承填充------------------------------------------------------------
   
3. (defun c:jctc (/ a pt0 pt1 lis lis1 ent tcm tcb tcj)
   
4.   (setvar "OSMODE" 4327) ;;;f3打开
   
5.   (vl-load-com)
   
6.   (princ "继承填充")
   
7.   (setq ent (entsel "\n选择点选一个填充图案<退出>:"))
   
8.   (setq tcm (cdr (assoc 2 (entget (car ent)))));获取填充图案的名称
   
9.   (setq tcb (cdr (assoc 41 (entget (car ent)))));获取填充图案的比例
   
10.   (setq tcj (cdr (assoc 52 (entget (car ent)))));获取填充图案的角度（这个值是以弧度返回的）
    
11.   (setq tcj (/ (* 180 tcj) pi)) ;图案弧度转换成角度
    
12.   (setq pt1 (getpoint "\n请给出围区第一点:?"))
    
13.   (setq lis (list pt1))
    
14.   (setq pt0 pt1)
    
15.   (while (/= pt1 nil)
    
16.     (setq pt1 (getpoint pt1 "\n请逐点给出围区下面各点:?"))
    
17.     (setq lis (append
    
18.                 lis
    
19.                 (list pt1)
    
20.               )
    
21.     )
    
22.   )
    
23.   (setq lis1 (list "_.PLINE" pt0 "W" 0 0))
    
24.   (setq lis (append
    
25.               lis1
    
26.               lis
    
27.             )
    
28.   )
    
29.   (foreach n lis
    
30.     (command n)
    
31.   )
    
32.   (setq a (entlast))
    
33.   (command "HATCH" tcm tcb tcj a "")
    
34.   (entdel a)
    
35. )
    

;;---------继承填充------------------------------------------------------------<br /> (defun c:jctc (/ a pt0 pt1 lis lis1 ent tcm tcb tcj)<br />   (setvar "OSMODE" 4327) ;;;f3打开<br />   (vl-load-com)<br />   (princ "继承填充")<br />   (setq ent (entsel "\n选择点选一个填充图案<退出>:"))<br />   (setq tcm (cdr (assoc 2 (entget (car ent)))));获取填充图案的名称<br />   (setq tcb (cdr (assoc 41 (entget (car ent)))));获取填充图案的比例<br />   (setq tcj (cdr (assoc 52 (entget (car ent)))));获取填充图案的角度（这个值是以弧度返回的）<br />   (setq tcj (/ (* 180 tcj) pi)) ;图案弧度转换成角度<br />   (setq pt1 (getpoint "\n请给出围区第一点:?"))<br />   (setq lis (list pt1))<br />   (setq pt0 pt1)<br />   (while (/= pt1 nil)<br />     (setq pt1 (getpoint pt1 "\n请逐点给出围区下面各点:?"))<br />     (setq lis (append<br />                 lis<br />                 (list pt1)<br />               )<br />     )<br />   )<br />   (setq lis1 (list "_.PLINE" pt0 "W" 0 0))<br />   (setq lis (append<br />               lis1<br />               lis<br />             )<br />   )<br />   (foreach n lis<br />     (command n)<br />   )<br />   (setq a (entlast))<br />   (command "HATCH" tcm tcb tcj a "")<br />   (entdel a)<br /> )<br />

xman00

非常感谢楼主的努力，看了各位的发言，特别尝试了下，对于不闭合的情况下，使用自动的hatch命令，选择区域后，得到的填充效果与楼主程序的效果完全一致。而对于此等情况，楼主的程序需要多次选点点击，hatch命令选择外框（不闭合）一次就可以了。
或许表达得不对，请楼主审视哈

xman00

补充发现，不闭合的情况，填充的覆盖面积，和选择的填充样式有关。

morsin

100 字节的代码，　额，感觉被骗了[em0]

love1030312

没有介绍 没有演示  没有说明的  东西 都是~~~~哈哈  我不上当

andyhua

就是，至少也得有个说明吧，一下来就要币才能看，做人太不厚道了。好东西也得吆喝啊！

流动的清泉

这是 什么 鬼，多的话都不想说了

bai2000

同意楼上的意见

尘缘一生

不会录屏，我再说一遍，大家要是试过明白，大家要的就是这个。


选择图中已存在得填充图案，下一步，就是描画你目标填充的边，1：若边界存在，你一一点转点， 2：若不存在，你随便画个，最后也不需要你闭合，程序自动。

ll_j

尘缘一生 发表于 2016-4-10 17:20
不会录屏，我再说一遍，大家要是试过明白，大家要的就是这个。

现在不太画图了，也就不看你的程序了，不过看你的描述，就是hatch命令自带的“继承”特性功能，在很早版本的cad就有了。

wzg356

还自己觉得稀奇，cad本身就有，想写就是填充+特性匹配几句搞定。若果讨币，就明说求赏得了。

tryhi

看楼主的发言好像是楼主写了个自认为不错的程序，应该是有了进步，购买一下表示鼓励，瞄了一眼发表几句评价
第一：需要一个点一个点的把填充区域点出来，而且点错一个还得重头来过，假如我要填充的图形有几百个节点，估计想一次性全部正确点到是不可能的了，用户体验太差
第二：楼主修改了捕捉设置结束后却不改回原来设置
第三：楼主取得刚刚一个一个点出来的所有点之后，调用了PLINE命令，却没有对捕捉进行处理，很容易跑偏
第四：如果我的填充区域带有弧线，请问怎么点出那条弧线？
第五：其实就是hatch命令自带的“继承”特性功能，就一句command "HATCH"，说实话，其他代码真的可有可无，甚至比你的代码还好，因为自带的支持弧线