[求助][0702]如何判断Boundary命令所產生LWPOLYLINE再之前已存在了呢?
<P><BR>[求助]如何判断Boundary命令所產生LWPOLYLINE再之前已存在了呢?<BR>请教各位高手们,<BR>再一线段交叉的空间中使用了"Boundary"命令,<BR>会產生"LWPOLYLINE"物件,<BR>但如果说这空间已经存在了"LWPOLYLINE"物件,<BR>该怎样去检查判断呢?</P><P>烦请帮忙提供一下~<BR>谢谢~</P> <P><BR>目前想到的答案.<BR>如还有其他解答,<BR>请各位高手在指导一下吧~</P>
<P>(defun c:ts ()<BR>(setq pt (getpoint "\n select point:"))<BR>(command "-BOUNDARY" pt "")<BR>(setq en (entlast))<BR>(setq bs#area (vla-get-Area (vlax-ename->vla-object en)))<BR>(setq pt_list(ptlst en))<BR>(setq ss nil)<BR>(setq ss (ssget "CP" pt_list))<BR>(setq ss2 (ssget "P" '((0 . "LWPOLYLINE"))))<BR>(ssdel en ss2)<BR>(setq nn (sslength ss2))<BR>(setq i 0)<BR>(repeat nn<BR>(setq ss2-obj (ssname ss2 i))<BR>(setq ss#area (vla-get-Area (vlax-ename->vla-object ss2-obj)))<BR>(if (= (rtos bs#area 2 2) (rtos ss#area 2 2))<BR>(progn<BR>(ssdel ss2-obj ss2)<BR>(entdel ss2-obj)<BR>(print "此选取有相同面积物件,以清除完毕~")<BR>)<BR>(setq i (1+ i))<BR>)<BR>)<BR>)</P> <P>谢谢您的解答</P>
<P> </P> 不知为何判断要这样用呢 (if (= (rtos bs#area 2 2) (rtos ss#area 2 2))<BR>如果这样用(if (= bs#area ss#area )就判断不出来了<BR>真是怪~可以请高手解答一下吗?谢谢~ <P>something like</P>
<P>(= (* 0.2 6) 1.2)</P>
页:
[1]