关于图形填充颜色问题？

renyong119

求大神给个代码！cad里有几十个图形，或者是有很多线条相交形成的多边形框，对该图形填充颜色，每个图形颜色随机生成，并且可以更改颜色。

Lispboy

老规矩，贴图片上来，手工做几个，这样才清楚。
另外，可以更改颜色是什么意思？

Lispboy

http://bbs.xdcad.net/thread-670392-1-1.html

这个帖子应该能帮到你。

renyong119

更改颜色意思是可改变填充的颜色

renyong119

已贴出照片，实际使用中图形要复杂点

newer

renyong119 发表于 2013-9-1 18:39
已贴出照片，实际使用中图形要复杂点

程序你要求随机填充颜色，然后还说可以修改颜色，这个修改颜色是在什么时候？

renyong119

Lispboy 发表于 2013-9-1 14:48
http://bbs.xdcad.net/thread-670392-1-1.html

这个帖子应该能帮到你。

帮帮我嘛！

renyong119

Lispboy 发表于 2013-9-1 14:46
老规矩，贴图片上来，手工做几个，这样才清楚。
另外，可以更改颜色是什么意思？

帮帮我！！！

newer

renyong119 发表于 2013-9-2 14:17
帮帮我！！！

LISPBOY给你的那个帖子链接，已经帮你做了90%的工作了，剩下就是把那些边界填充了。

renyong119

newer 发表于 2013-9-2 14:33
LISPBOY给你的那个帖子链接，已经帮你做了90%的工作了，剩下就是把那些边界填充了。

我不会代码！

renyong119

newer 发表于 2013-9-2 14:33
LISPBOY给你的那个帖子链接，已经帮你做了90%的工作了，剩下就是把那些边界填充了。

newer，帮帮我

aeo

2. (defun c:tt( / i n ss)
   
3.    (xdrx_begin '("cmdecho" 0 "hpname" "solid" ))
   
4. 
   
5.    (if (setq ss (ssget))
   
6.       (progn
   
7.          (vl-cmdf "copy" ss "" '(0 0 0) '(0 0 0))  ;;原来的线保留一份
   
8.          (setq ss (xdrx_curve_intersectbreak ss);;所有交点处打断
   
9.                ss (xdrx_curve->region ss);;生成REGION
   
10.                ss (xdrx_region->curve ss);;REGION生成封闭的多段线，OVER
    
11.          )
    
12.          (setq i 1);;用各种不同颜色画出来
    
13.          (foreach n (xdrx_pickset->ents ss)
    
14.             (vl-cmdf "-hatch" "s" n "" "")
    
15.             (xdrx_entity_setcolor(entlast) i)
    
16.             (entdel n)   ;;如果保留填充边界 去掉这行
    
17.             (setq i (1+ i))
    
18.          )
    
19.       )
    
20.    )
    
21.    (xdrx_end) (princ)
    
22. )

(defun c:tt( / i n ss)<br />    (xdrx_begin '("cmdecho" 0 "hpname" "solid" )) <br /> <br />    (if (setq ss (ssget))<br />       (progn<br />          (vl-cmdf "copy" ss "" '(0 0 0) '(0 0 0))  ;;原来的线保留一份<br />          (setq ss (xdrx_curve_intersectbreak ss);;所有交点处打断<br />                ss (xdrx_curve->region ss);;生成REGION<br />                ss (xdrx_region->curve ss);;REGION生成封闭的多段线，OVER<br />          )<br />          (setq i 1);;用各种不同颜色画出来<br />          (foreach n (xdrx_pickset->ents ss)<br />             (vl-cmdf "-hatch" "s" n "" "")<br />             (xdrx_entity_setcolor(entlast) i)<br />             (entdel n)   ;;如果保留填充边界 去掉这行<br />             (setq i (1+ i))<br />          )<br />       )<br />    )<br />    (xdrx_end) (princ)<br /> )

没装api ,按以前对api的印象，改了一下,试试可以不

XDSoft

aeo 发表于 2013-10-14 21:45
没装api ,按以前对api的印象，改了一下,试试可以不

aeo 你记忆真好。

API 今年升级后，又新加入5,6百个函数了吧，以后一起完善它吧。

XDSoft

aeo 发表于 2013-10-14 21:45
没装api ,按以前对api的印象，改了一下,试试可以不

这个程序最后由NEWER版写成 “拓步造区” 插件了，去看看。

http://bbs.xdcad.net/forum.php?mod=viewthread&tid=670588

快乐小子春天

随机的颜色不好控制的啊，