为何无法完整恢复填充边界?

onemax

用论坛里下载的hatchb.lsp测试下图的填充图案时得出的边界并不完整,是否程序还有未完善的地方?

newer

加载XDRX API, 用下面代码测试下你的填充

1. (defun c:tt()
   
2.    (if (setq e (car (xdrx_entsel "\n拾取填充实体<退出>:" '((0 . "hatch")))))
   
3.       (xdrx_hatch_remake e)
   
4.    )
   
5.    (princ)
   
6. )
   
7. 
   

(defun c:tt()<br />    (if (setq e (car (xdrx_entsel "\n拾取填充实体<退出>:" '((0 . "hatch")))))<br />       (xdrx_hatch_remake e)<br />    )<br />    (princ)<br /> )<br /> <br />

newer

你这个填充实体有点问题，看图片， 有开口。 这可能就是你那个LISP没能正确生成的原因。

newer

另外，你这填充边界里面有 椭圆弧（图片红色箭头），从你的图片看，正好是在椭圆的位置断了， 你的LISP里面用了PEDIT，可能也是没能继续下去的原因。

onemax

原来如此,谢谢指点!