lisp中窗选线_【Visual Lisp】图元选择集专题

图元选择集专题

;;★★★01.选择集操作★★★

(setq ss (ssadd));;创建一个空选择集

(ssadd (car(entsel)) ss);;将点取的图元添加到ss选择集中，可以不用setq语句图元便加入ss所指向的选择集

(ssdel en1 ss);;将en1图元从ss中删除

(ssmemb (car (entsel)) ss);;测试图元名所表示的对象是否在选择集中，在则返回图元名，否则返回nil

(ssname ss 0);;根据索引获取选择集中的图元名.使用repeat或者while来遍历选择集

(sslength ss);;返回选择集元素个数

注意：用ssadd或者其他方式创建了选择集使用完后要记得清空，否则下次创建变量名相同的选择集可能包含之前的选择集的图元。特别注意循环的情况。所以用完后记得(setq ss nil)

;;★★★02.ssget专题★★★

(ssget);;鼠标去框选窗选图元创建选择集

(ssget '((0 . "TEXT") (62 . 3)));;(ssget 过滤表)的形式，图元必须满足过滤表中所有条件才可被选中。过滤表使用 '修饰表示时不能使用变量，可以使用(list (cons 0 etype) (cons 62 color))的形式来表示,etype和color为变量

(ssget "-P");;此方法同(ssget)只是此处可以在执行前先选好图元然后执行此命令后创建的就是之前选中图元的选择集[此方法用的多]

(ssget "P");;此方法是创建最近一次选中的图元组成的选择集，也就是说当下没有选中图元执行命令后将创建之前有选中过图元组成的选择集，此方法不用鼠标去选。

(ssget "C" pt1 pt2 [过滤器表]);;创建在以pt1 pt2为对角线的矩形或者接触这个矩形范围的图元组成的选择集(pt1和pt2为矩形的对角点)。过滤表同上

(ssget "CP" pt_list [过滤器表]);;pt