xdrx_searchoutline 曲线轮廓函数搜出轮廓有时不对

Love-Lisp

;;利用晓东API做的对象背景遮罩程序

1. (defun c:entmask ()
   
2.   (princ "\n选择遮掩对象:")
   
3.   (if (setq ss (ssget))
   
4.     (progn
   
5.       (if (setq pl (xdrx_searchoutline ss))
   
6.   (progn
   
7.     (command "wipeout")
   
8.     (foreach p pl (command (trans p 0 1)))
   
9.     (command "")
   
10.     (ssadd (setq e (entlast)) ss)
    
11.     (xdrx_draworder_above e ss)
    
12.     (xdrx_group_make "*" ss)
    
13.     (command "_move" ss "" (getpoint "\n基点：") pause)
    
14.     (princ)
    
15.   )
    
16.       )
    
17.     )
    
18.   )
    
19. )

(defun c:entmask ()<br />   (princ "\n选择遮掩对象:")<br />   (if (setq ss (ssget))<br />     (progn<br />       (if (setq pl (xdrx_searchoutline ss))<br />   (progn<br />     (command "wipeout")<br />     (foreach p pl (command (trans p 0 1)))<br />     (command "")<br />     (ssadd (setq e (entlast)) ss)<br />     (xdrx_draworder_above e ss)<br />     (xdrx_group_make "*" ss)<br />     (command "_move" ss "" (getpoint "\n基点：") pause)<br />     (princ)<br />   )<br />       )<br />     )<br />   )<br /> )

下面是一个圆和一个多边形，但是圆的边界没有搜出来！

st788796

感觉这个函数应该是几个函数的组合，API 中还有一个  xdrx_curve_union , 但这个仅对 2 个曲线，其实可以用这个Union写一个 searchoutline

XDSoft

xdrx_searchoutline这个函数，主要是对INSERT操作的，参数可以是实体，也可以是选择集，如果只给实体名参数，只适合INSERT、HATCH实体。

XDSoft

如果都是曲线，用 xdrx_curve_union 获取并集。

searchoutline的，我再检查检查代码。

Love-Lisp

XDSoft 发表于 2013-6-16 20:38
xdrx_searchoutline这个函数，主要是对INSERT操作的，参数可以是实体，也可以是选择集，如果只给实体名参数 ...

老大，即使将一个多边形和一个圆制成块，效果还是一样的！圆的轮廓取不到！

XDSoft

Love-Lisp 发表于 2013-6-16 21:22
老大，即使将一个多边形和一个圆制成块，效果还是一样的！圆的轮廓取不到！

我在检查代码。

对于曲线的轮廓，先用 xdrx_curve_union 获得。

XDSoft

对圆处理已经正常，谢谢反馈，下个版本更新。