CAD超好用的选择插件

注意使用时把文件后缀改为.LISP加载语言是SS祝您使用愉快！(defunc:ss(/slentfdcl_namelst2lst1colortmpindex_valueflagentllst3lst4codektmpklstlst4handfjfltfilterkl_pre;;原为全局变量，样板实体空选时按上次过滤表进行选择，现用ss_saved_lst保存ssfjlstsslattdisstrtmp);;ss_saved_lst作为全局变量保存上次选择的变量值，格式：(handfjfltfilterkl_pre)(setqattdisYkl_pre(lastss_saved_lst)slentN)(while(=slentN)(initgetN)(setqslent(entsel(strcat\n请选择样板实体(N-关闭块属性显示,当前状态：(if(=Yattdis)打开关闭)):)))(if(=slentN)(setqattdisN)(setqslent(carslent))));;while(ifslent;;;----------------------1(progn;;;-----------------------1(setqfjfltnilfilternilentl(entgetslent))(setqlst2'((通用((0实体类型)(6实体线型)(8所在图层)(48线型比例)(62实体颜色((256随层)(0随块)(1红色)(2黄色)(3绿色)(4青色)(5蓝色)(6紫色)(7黑白)))(370实体线宽)))(ARC((-4圆弧)(10圆心坐标)(40圆弧半径)(39实体厚度)(50起点角度)(51终点角度))(FJ(FJ1圆弧长度(lenslent))))(CIRCLE((-4圆形)(10圆心坐标)(40圆形半径)(39实体厚度)))(SOLID((-4SOLID)(39实体厚度)))(POINT((-4点)(10点的位置)(39实体厚度)(50旋转角度)))(LINE((-4直线段)(10起点坐标)(11终点坐标)(39实体厚度))(FJ(FJ1线段长度(lenslent))(FJ2线段角度(REM(ATOF(ANGTOS(ANGLE(DXF10slent)(DXF11slent))))180))))(ELLIPSE((-4椭圆)(10椭圆中心)(11长轴端点)(40长短轴比)(41开始参数)(42结束参数)))(INSERT((-4图块)(10图块位置)(2图块名称)(41X轴比例)(42Y轴比例)(43Z轴比例)(50旋转角度)));(FJ(FJ1属性标志(car(attstrslent)))(FJ2属性数值(cadr(attstrslent)))))(LWPOLYLINE((-4轻多义线)(38复线标高)(43固定宽度)(90顶点个数)(39复线厚度)(70是否闭合((0不闭合)(1闭合))))(FJ(FJ1曲线长度(lenslent))))(POLYLINE((-4重多义线)(70是否闭合((0不闭合)(1闭合))))(FJ(FJ1曲线长度(lenslent))))(HATCH((-4图案填充)(2填充图案)(41填充比例)(52填充角度)(71边界关联((0不关联)(1关联)))(76图案类型((0用户定义)(1预定义)(2自定义)))))(TEXT((-4文字)(1文字内容)(7文字样式)(10插入位置)(40文字高度)(41宽度系数)(50旋转角度)(51倾斜角度)(71文字镜像((0默认)(2文字反向)(4文字倒置)(6反向倒置)))(72水平对齐((0左对齐)(1居中对齐)(2右对齐)(3对齐)(4中间)(5拟合)))(73垂直对齐((0基线对齐)(1底端对齐)(2居中对齐)(3顶端对齐))))(FJ(FJ1文字数值(ATOF(DXF1slent)))))(ATTDEF((-4属性定义)(2属性标记)(7字型样式)(10插入位置)(40文字高度)(50旋转角度)(51倾斜角度)(71文字镜像((0默认)(2文字反向)(4文字倒置)(6反向倒置)))(72水平对齐((0左对齐)(1居中对齐)(2右对齐)(3对齐)(4中间)(5拟合)))(73垂直对齐((0基线对齐)(1底端对齐)(2居中对齐)(3顶端对齐))))(FJ(FJ1标记数值(ATOF(DXF2slent)))))(MTEXT((-4多行文字)(10插入位置)(1文字内容)(7文字样式)(40文字高度)(50旋转角度)))(SPLINE((-4样条曲线)(70曲线标志)(71曲线阶数)(72节点数量)(73控制点数)(74拟合点数)(42节点公差)(43控点公差)(44拟合公差))(FJ(FJ1曲线长度(lenslent))))(DIMENSION((-4尺寸标注)(1标注文字)(42测量值)(3标注样式)(70标注类型((32水平垂直)(33对齐标注)(34角度标注)(35直径标注)(36半径标注)(37三点角度)(38坐标标注)))))));;setqlst2(if(and(=attdisY)(=INSERT(dxf0slent)))(kldc_1));;对块实体，增加属性过滤表，slent及lst2作为全局变量传递(setqlst3(car(dxf通用lst2))lst5(dxf(dxf0entl)lst2)lst4(carlst5)lst5(cadrlst5))(foreachtmplst3(if(and(not(dxf(cartmp)entl))(/=(cartmp)62))(setqlst3(vl-removetmplst3))));;foreach(setqdcl_name(strcat(getenvtemp)\\sel.dcl)f(OPENdcl_namew))(write-linesl:dialog{label=\我的选择易--By小菜\;f)(write-line:column{f)(write-line:boxed_column{label=\过滤条件\;f)(write-line:boxed_column{label=\通用\;f)(foreachtmplst3(write-line:row{fixed_width=true;f)(write-line(strcat:toggle{key=\(itoa(cartmp))\;label=\(cadrtmp)\;width=12;})f)(write-line(strcat:popup_list{edit_width=5;key=\pop(itoa(cartmp))\;})f)(setqktmp(list(strcatpop(itoa(cartmp)))(itoa(cartmp))))(if(/=62(cartmp))(progn(setqktmp(writefktmp(cartmp)(vl-princ-to-string(dxf(cartmp)entl))txt16))(if(=48(cartmp))(setqktmp(writefktmp48容差txta7)));;if);;progn(progn(setqcolor(dxf62entl))(if(notcolor)(setqcolor256))(setqktmp(writefktmp62(itoacolor)txt16))(write-line(strcat:edit_box{value=\(vl-princ-to-string(car(dxfcolor(caddrtmp))))\;edit_width=7;allow_accept=true;})f));progn);;if(write-line}f)(setqklst(cons(reversektmp)klst)));;foreach(write-line}f)(write-line(strcat:boxed_column{label=\(vl-princ-to-string(car(dxf-4lst4)))\;)f)(setqlst4(cdrlst4));;去掉前面的-4组码(foreachtmplst4(setqcode(cartmp)ktmpnil)(if(dxfcodeentl)(progn(write-line:row{fixed_width=true;f)(setqktmp(list(strcatpop(itoacode))(itoacode)))(write-line(strcat:toggle{key=\(itoacode)\;label=\(vl-princ-to-string(cadrtmp))\;width=12;})f)(write-line(strcat:popup_list{edit_width=5;key=\pop(itoacode)\;})f)(cond((or(=code10)(=code11))(setqktmp(writefktmpcode(vl-princ-to-string(car(dxfcodeentl)))txt_x6.5))(setqktmp(writefktmpcode(vl-princ-to-string(cadr(dxfcodeentl)))txt_y6))(setqktmp(writefktmpcode(vl-princ-to-string(caddr(dxfcodeentl)))txt_z7)))((membercode'(12379038394041424344505152707172737476))(setqstrtmp(vl-princ-to-string(dxfcodeentl)))(if(=code1)(foreachtmp'(\r\n\\P\\)(while(vl-string-searchtmpstrtmp)(setqstrtmp(vl-string-substtmpstrtmp))));;foreach;;;;消除acad2005中的mtext中的换行符(shift+enter)导致对话框不正常);;endifcode=1(setqktmp(writefktmpcodestrtmptxt16));原strtmp=(vl-princ-to-string(dxfcodeentl))(cond((membercode'(38394041424344505152))(setqktmp(writefktmpcode容差txta7)))((membercode'(707172737476))(if(car(dxf(dxfcodeentl)(cadr(dxfcodelst4))))(write-line(strcat:edit_box{value=\(vl-princ-to-string(car(dxf(dxfcodeentl)(cadr(dxfcodelst4)))))\;edit_width=7;allow_accept=true;})f));if));;cond));;cond(write-line}f)));;progn&if(ifktmp(setqklst(cons(reversektmp)klst))));;foreach(write-line}f)(iflst5(progn(setqlst5(cdrlst5));;去掉lst5第一个元素FJ(write-line:boxed_column{label=\附加过滤\;f)(foreachtmplst5(write-line:row{fixed_width=true;f)(write-line(strcat:toggle{key=\(cartmp)\;label=\(cadrtmp)\;width=12;})f)(write-line(strcat:popup_list{edit_width=5;key=\pop(cartmp)\;})f)(setqktmp(list(strcatpop(cartmp))(cartmp