qflut 发表于 2006-12-24 16:48:00

[求助]请教填充相关的几个问题

<p>就是一个图层有好多的矩形以及一些其他闭合的图形，我现在的目标是一个个把这些图形都填充好，但我希望这些图形一个个单独填充（就是不希望用CAD的框选然后一起填充）。这样我就碰到如下几个问题：</p><p>1、如何判别操作者选中的图元（图形中已存在）中哪些是组成闭合空间的（不需要孤岛检测类的功能）</p><p>2、能不能用VBA调用CAD填充时弹出的那个窗口，作为填充特性。</p><p>说到底就是想把已有图层中闭合的部分都填充起来，但是要一个个的填，每个闭合的区域填充相互独立！</p><p>VBA是否可以实现，给个思路也行，谢谢先</p>

兰州人 发表于 2006-12-24 17:49:00

<p>用VBA完全可以实现你的目标</p><p>－－如何判别操作者选中的图元（图形中已存在）中哪些是组成闭合空间的</p><p>在建立图元是就要生成面域（封闭多义线段和圆除外）</p><p>结论：最好在建模是多采用封闭多义线段或圆，用遍历的方法很容易实现你的目标需求．</p><p></p><p></p>

qflut 发表于 2006-12-24 18:37:00

<p>看来我没有把问题表述清楚：现在的问题是那些图元不是我的程序产生的，而是图纸中早已存在，我现在是要编辑这个图纸。只知道这些图元都放在某一个图层里面。另外能不能用什么方法调用系统的那个填充的窗口，然后把里面的图案填充参数如比例等引用出来？谢谢</p>

兰州人 发表于 2006-12-25 10:46:00

<p class="1-liner">有关闭合图元,查AutoCad帮助文件有以下几种类型</p><p class="1-liner">Specifies whether the 3D polyline, lightweight polyline, polyline, or spline is open or closed.</p><p class="1-liner">要解决这个问题,我的观点是通过遍历方法将line等图元转换为多义线段.</p><p class="1-liner">dim ent as object</p><p class="1-liner">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ptStart = ent.StartPoint<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ptEnd = ent.EndPoint<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; AddLWPlineSeg ptStart, ptEnd, width<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ent.Delete<br/>再通过遍历的方法,判断ent.colse true (false) </p><p class="1-liner">用什么方法调用系统的那个填充的窗口,我需要花点时间去收集资料．</p><p class="1-liner">如你解决这个问题，请告诉我一下．</p><p class="1-liner"></p>
页: [1]
查看完整版本: [求助]请教填充相关的几个问题