ssget使用

(setqss(ssget:S'((0.LINE))));只选取一次直线（省约回车）(setqss(ssgetX'((0.LINE))));自动选取直线，包含冻结的直线(setqss(ssgetA'((0.LINE))));自动选取直线，不包含冻结的直线(setqss(ssget'((1.*[0-9]*))));只选取含数字的文本(setqss(ssget'((1.*#*))));只选取含数字的文本(setqss(ssget'((0.TEXT)(1.~*[~`--9]*))));只选取数字文本(ssget'((0.TEXT)(-4.)(1.*[0-9]*)(-4.NOT));只选择不是数字的文字(ssget'((0.TEXT)(1.~*#*)));只选择不是数字的文字(setqss(ssget'((0.TEXT)(1.#,1#,2#,3#,4#,50))));选取1—50的数字文本(SETQSS(SSGET'((0.*text)(1.*(*,*)*,*（*,**）**))));选取含括号的文本(setqss(ssget'((1.*[a-A-z-Z]*))));只选取字母(setqss(ssget'((0.~insert))));选取不含块的对象(SETQss(ssget(list'(0.CIRCLE)(cons40RR))));按半径的大小选取圆(setqss(ssget:E:S'((0.line))));选取拾取框内的直线,选取不到就结束(setqss(ssget:E'((0.LINE))));选取拾取框内的直线,选取不到就不结束，直到按右键(setqss(ssget:N'((0.LINE))));只有通过窗口、窗交点拾取(setqss(ssget:D'((0.LINE))));会累加选取的直线,同一条直线，选取两次个数就会乘以2，3次则3.....(setqss(ssget:L'((0.LINE))));提示有几个在锁定图上,选取没有的锁定的直线(setqss(ssgetP'((0.LINE))));上次的选择集(setqss(ssget'((0.line)(8.~0))));选取0层以外的线(setqss(ssget'((0.line)(8.~*[a-A-z-Z]*))));选取图层名不含字母以外的线(setqss(ssget'((0.CIRCLE)(-3(APPNAME)))));选取带扩展数据的实体(圆);得到矩形p1p2点框内的文字,包含在框内的被选取相交的不选取,屏幕外的选取不到,WP点集(setqss(ssgetwpt1pt3'((0.*text))));得到矩形p1p2点框内的文字,包含在框内的及和框相交的被选取,屏幕外的选取不到,CP点集(setqss(ssgetcpt1pt3'((0.*text))));线相交的线删除（屏幕外的选取不到郁闷所以要用zoomob）(defunc:XX(/ptptlss)(setqptlnil)(while(setqpt(getpoint))(setqptl(consptptl)))(setqss(ssgetfptl'((0.line))))(KX-ESS));选取图层表(CENTERDIMCOOLCORE-------N个图层)内的线(setqla'(CENTERDIMCOOLCORE)ss(ssget(list'(0.LINE)(cons8(apply'strcat(mapcar'(lambda(x)(strcatx,))la))))));选取经过某点的实体(setqpt(getpoint))(setqss(ssgetCptpt));选取不含数字的文本(setqss(ssget'((-4.)(0.*TEXT)(-4.)(1.*[0-9]*)(-4.NOT)(-4.AND))));只选取不含字母的文本(setqss(ssget'((-4.)(0.*TEXT)(-4.)(1.*[a-A-z-Z]*)(-4.NOT)(-4.AND))));------------------------------------------------------------------------------------------------------------;图层1图层2图层n中的文本,图层1为层名(SETQSS(ssgetx(list'(0.TEXT)(cons8图层[1-n]))));------------------------------------------------------------------------------------------------------------;选取0层以外的线(setqss(ssget'((-4.)(0.line)(-4.)(8.0)(-4.NOT)(-4.AND))));------------------------------------------------------------------------------------------------------------;按颜色号选取对象(setqcol(KX-Int7颜色号col1))(setqSS(ssget(list'(-4.)(cons62COL)'(-4.OR))));-----------------------------------------------------------------------------------------------------------;选取含KX的文本(setqXT(strcat*KX*));KX为文字内容(ssget(list'(0.text)(cons1XT)));-----------------------------------------------------------------------------------------------------------;判断选取某个区域有没有直线(setqSS(ssgetc(polar'(00)(*0.25pi)0.5);坐标点(polar'(00)(*1.25pi)0.5);坐标点'((0.LINE))));-----------------------------------------------------------------------------------------------------------;选取颜色不是随层的圆、直线(setqSS(ssgetX'((0.CIRCLE,LINE)(-4./=)(62.256);-462面不可以加ANDOR)));------------------------------------------------------------------------------------------------------------;选取颜色1和2的对象（OR)的用法(setqss(ssget'((-4.)(62.2)(62.1)(-4.or))));--------------------------------------------------------------------------------------------------------------;选取半径大于20小于100的圆(setqss(ssget'((-4.)(0.circle)(-4.)(40.20);大于20(-4.)(40.100);小于100(-4.and))));--------------------------------------------------------------------------------------------------------------;只选取文字（包括多行文字）、尺寸、带属性的块(setqss(SSGET'((-4.)(0.*TEXT,DIMENSION)(-4.)(0.INSERT)(66.1)(-4.AND)(-4.OR))));--------------------------------------------------------------------------------------------------------------;屏幕外的窗口模式选取(setqrec_p1'(00));窗口左下角点(setqrec_p2'(10001000));窗口右上角点(setqfilter_list(list'(0.insert)'(-4.)'(-4.,,*)(cons10rec_p1)'(-4.,,*)(cons10rec_p2)'(-4.and)))(ssgetxfilter_list);--------------------------------------------------------------------------------------------------------------;--------------------------------------------------------------------------------------------------------------;一次产生n个不同选取集(if(setqss(ssget))(setqss1(ssget_p'((0.*TEXT)))));从选择集中分解出文字;空回车得出不同结果的选取集(if(setqss(ssget))(setqss(ssget_pflt))(setqss(ssget_xflt)));--------------------------------------------------------------------------------------------------------------;;;坐标范围选择，有点类似(ssgetcp1p2filter),但本函数在屏幕外的也可选择;;;测试(tt(getpoint)(getpoint)'((0.insert)))(defuntt(p1p2filter/minXminYmaxXmaxY)(setqminX(min(carp1)(carp2))minY(min(cadrp1)(cadrp2))maxX(max(carp1)(carp2))maxY(max(cadrp1)(cadrp2)))(iffilter(ssgetx(append(list'(-4.)'(-4.=,=,*)(list10minXminY0)'(-4.=,=,*)(list10maxXmaxY0))(appendfilter'((-4.and)))))(ssgetX(list'(-4.)'(-4.=,=,*)(list10minXminY0)'(-4.=,=,*)(list10maxXmaxY0)'(-4.and)