请问如何用VLISP填充图形分离的面域

原地踏步 · 发表于 2017-6-13 20:46:37

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如下图，一个面域分为两个封闭图形，请问如何用VLISP进行填充？

xinxirong · 发表于 2017-6-13 21:02:46

这里是两个面域吧？命令hatch后选中这两个面域就OK

原地踏步 · 发表于 2017-6-13 21:17:59

是一个面域，用Union连起来的。
不用command命令，要用VLISP

zhouwei411 · 发表于 2017-6-13 21:28:57

3463467347347

newer · 发表于 2017-6-14 01:03:51

本帖最后由 newer 于 2017-6-14 01:05 编辑

原地踏步发表于 2017-6-13 21:17

去论坛搜索面域生成边界的代码，先生成边界，然后用边界生成填充。

XDRX API 一行代码
(xdrx_region->hatch <ss or ents or ent>)

longer1000 · 发表于 2017-6-14 08:08:15

学习学习了

q3_2006 · 发表于 2017-6-14 08:44:01

最简单方法就是炸开..

原地踏步 · 发表于 2017-6-14 14:08:01

多谢N版的解答！
我重新试了一下，不用面域，左图是一段弧加一条直线组成的闭合图形（填充图案是后来生成的），右图是两个圆，结果左图能填充，右图还是不能填充。

程序代码如下：
(defun c:t1 ()
  (setq *mSpace* (vla-get-modelSpace (vla-get-ActiveDocument (vlax-get-acad-object)))
      ss (ssget)
      obj1 (vlax-ename->vla-object (ssname ss 0))
      obj2 (vlax-ename->vla-object (ssname ss 1))
      hatObj (vla-AddHatch *mSpace* 0 "ANSI31" :vlax-true)
      oLoop (vlax-make-safearray vlax-vbObject '(0 . 1))
  )
  (vlax-safearray-put-element oLoop 0 obj1)
  (vlax-safearray-put-element oLoop 1 obj2)
  (vla-AppendOuterLoop hatObj oLoop)
  (vla-Evaluate hatObj)
)

麻烦帮忙看一下有什么问题。

账号		自动登录	找回密码
密码			立即注册

[求助] 请问如何用VLISP填充图形分离的面域

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子