wmz 发表于 2004-9-18 17:29:00

如何选取多段线围成区域里面的实体

各位大侠,我有一个问题请教,如果用多段线围成一个区域,如何才能做到只要点取该多段线,即可选取里面的所需要层的实体呢(用LISP实现)?

f5612140 发表于 2004-9-18 17:46:00

(defun c:tttt()<BR>        (setq obj (car (entsel "\nSelect a Polyline: ")))<BR>        (MASSOC 10 (entget obj))<BR>)<BR>(defun massoc (key alist / x nlist)<BR>               (foreach x alist<BR>               (if (eq key (car x))<BR>                                               (setq nlist (cons (cdr x) nlist))<BR>               )<BR>               )


               (reverse nlist)<BR>               (setq ss (ssget "WP" nlist))               <BR>)

wmz 发表于 2004-9-18 18:06:00

多谢<A name=52612><FONT color=#000066><B>f561214</B></FONT></A>0老弟!您的程序经我试用效果很好,解决了我的问题,特表示衷心地感谢,送鲜花一朵!
页: [1]
查看完整版本: 如何选取多段线围成区域里面的实体