[编程申请]：批量BOUNDARY？

matichen

能不能批量根据一个字的层生成周围闭合线（pline） 我的意思是用ENTGET得到那个字的层和坐标，然后执行以那个坐标为选取点BOUNDARY生成那个层的pline。   

不晓得我说清楚没有（表达能力差） 摆脱哪位帮忙看看行不行。

XDSoft

最初由 matichen 发布
[B]能不能批量根据一个字的层生成周围闭合线（pline） 我的意思是用ENTGET得到那个字的层和坐标，然后执行以那个坐标为选取点BOUNDARY生成那个层的pline。   

不晓得我说清楚没有（表达能力差） 摆脱哪位帮忙看看行?.. [/B]

字的层是什么意思？

你的意思是把选取的文字，给加上外框吗？

如下图：

matichen

不是，已经有边界了，只是要新边，主要是要是文字那个层 用来算建筑面积 ：） 层起名为楼层数，文字用过滤放入层。

我写了个LISP 但是看不到的地方不能生成边界。不知为什么？

2. 
   
3. 
   
4. (defun c:o()
   
5.   (setq en (entget (car (entsel))))
   
6.   (setq lay (cdr (assoc 8 en)))
   
7.   (setq ss(ssget "x" (list (cons 8 lay))))
   
8.   (setvar "clayer" lay)
   
9.   (setq ename(ssname ss 0))
   
10.   (setq elen(sslength ss))
    
11.   (setq loop 0
    
12.         time 0
    
13.         no 0
    
14.   )
    
15. 
    
16.   (while loop
    
17.     (setq idxy( cdr (assoc 10 (entget ename))))
    
18.     (setq idx(rtos (nth 0 idxy) 2 2))
    
19.     (setq idy(rtos (nth 1 idxy) 2 2))
    
20.     (setq id(strcat idx "," idy))
    
21.     (command "boundary" id "")
    
22.     (setq time (+ time 1))
    
23.     (setq no (+ no 1))
    
24.     (setq ename (ssname ss no))
    
25.     (if (= time elen)
    
26.       (setq loop nil)
    
27.       )
    
28.     )
    
29.   (princ)
    
30.   )
    
31.           

<br /> <br /> (defun c:o()<br />   (setq en (entget (car (entsel))))<br />   (setq lay (cdr (assoc 8 en)))<br />   (setq ss(ssget "x" (list (cons 8 lay))))<br />   (setvar "clayer" lay)<br />   (setq ename(ssname ss 0))<br />   (setq elen(sslength ss))<br />   (setq loop 0<br />         time 0<br />         no 0<br />   )<br /> <br />   (while loop<br />     (setq idxy( cdr (assoc 10 (entget ename))))<br />     (setq idx(rtos (nth 0 idxy) 2 2))<br />     (setq idy(rtos (nth 1 idxy) 2 2))<br />     (setq id(strcat idx "," idy))<br />     (command "boundary" id "")<br />     (setq time (+ time 1))<br />     (setq no (+ no 1))<br />     (setq ename (ssname ss no))<br />     (if (= time elen)<br />       (setq loop nil)<br />       )<br />     )<br />   (princ)<br />   )<br />           

matichen

还有个问题，能不能避免重复生成？