小菜版选择易，欢迎使用并提出完善建议

doubolin1

我的是cad2010 64位，天正给排水2014，使用选择易时出现
命令: ss
请选择样板实体(H-Help/ N-打开块属性显示/
B-打开动态块特性显示,当前状态：块属性关闭,动态块特性关闭):sl:dialog{label="我的选择易v1.29--By 小菜";
:column{
:boxed_column{label="过滤条件";
:boxed_column{label="通用";
:row{fixed_width=true;
:toggle{key="0";label="实体类型";width=14;}
:popup_list{edit_width=6;key="pop0";list= "=\n<>";}
:edit_box{value="TCH_DIMENSION2";key="txt0";edit_width=16;allow_accept=true;}
:popup_list{key="inf0";edit_width=12;list="当前实体\n所有实体\n视
口\n线和圆弧\n各种线\n类型多选...";}
}
:row{fixed_width=true;
:toggle{key="6";label="实体线型";width=14;}
:popup_list{edit_width=6;key="pop6";list= "=\n<>";}
:edit_box{value="ByLayer";key="txt6";edit_width=16;allow_accept=true;}
:popup_list{key="inf6";edit_width=12;list="实体线型\n所有线型\n当前线型\n线型多选...";}
}
:row{fixed_width=true;
:toggle{key="8";label="所在图层";width=14;}
:popup_list{edit_width=6;key="pop8";list= "=\n<>";}
:edit_box{value="AXIS";key="txt8";edit_width=16;allow_accept=true;}
:popup_list{key="inf8";edit_width=12;list="实体图层\n所有图层\n当前图层\n图层多选...";}
}
:row{fixed_width=true;
:toggle{key="62";label="实体颜色";width=14;}
:popup_list{edit_width=6;key="pop62";list= "=\n<\n>\n<=\n>=\n<>\n&\n&=";}
:edit_box{value="256";key="txt62";edit_width=16;allow_accept=true;}
:popup_list{key="inf62";edit_width=12;list="随层\n随块\n红色\n黄色\n绿色\n青色\n蓝色\n紫色\n黑白\n
其它...";}
}
:row{fixed_width=true;
:toggle{key="370";label="实体线宽";width=14;}
:popup_list{edit_width=6;key="pop370";list= "=\n<\n>\n<=\n>=\n<>\n&\n&=";}
:edit_box{value="-1";key="txt370";edit_width=16;allow_accept=true;}
:edit_box{value="容差";key="txta370";edit_width=12.3;allow_accept=true;}
}
}
:boxed_column{label="天正尺寸";
:row{fixed_width=true;
:toggle{key="47";label="天正比例";width=14;}
:popup_list{edit_width=6;key="pop47";list= "=\n<\n>\n<=\n>=\n<>";}
:edit_box{value="80.0";key="txt47";edit_width=16;allow_accept=true;}
:edit_box{value="容差";key="txta47";edit_width=12.3;allow_accept=true;}
}
}
:boxed_column{label="附加过滤";
:row{fixed_width=true;
:toggle{key="FJ1";label="显示颜色";width=14;}
:popup_list{edit_width=6;key="popFJ1";list="=\n/=\n<\n>\n<=\n>=";}
:edit_box{value="3";key="txtFJ1";edit_width=16;allow_accept=true;}
:popup_list{key="infFJ1";edit_width=12;list="绿色\n随层\n随块\n红色\n黄色\n青色\n蓝色\n紫色\n黑白\
n其它...";}
}
:row{fixed_width=true;
:toggle{key="FJ2";label="显示线型";width=14;}
:popup_list{edit_width=6;key="popFJ2";list= "=\n/=\nwcmatch\nnot match";}
:edit_box{value="CONTINUOUS";key="txtFJ2";edit_width=16;allow_accept=true;}
:popup_list{key="infFJ2";edit_width=12;list="CONTINUOUS\n实体线型\n所有线型\n当前线型\n线型多选.
..";}
}
}
}
}
:image {color = dialog_background ;height = 0.01 ;}
:row
{alignment=centered;fixed_width=true;:button{key="hand";label="手选&S";width=12;}
:button{key="all";label="全选&A";width=12;}:button{key="per";label="预选&D";width=12
;}
:button{is_cancel=true;fixed_width=true;width=12;
key="cancel";label="取消&C";}:button{fixed_width=true;width=12;
key="add";label="附加&V>>";}
}}
; 错误: 参数类型错误: streamp nil

小菜123

把图传上来看看，出错的实体标出来。这个对话框文件会在屏幕上显示？

doubolin1

小菜123 发表于 2014-3-3 07:54
把图传上来看看，出错的实体标出来。这个对话框文件会在屏幕上显示？

上面这段话只是出现在命令栏里，任何实体都不能选择。能否加您的Q，具体说明一下情况。

小菜123

似乎是选择“TCH_DIMENSION2”样本实体后出错了，其它样本实体都不能选择么？

smartstar

增加对wipeout的过滤选择

2. ("WIPEOUT" ((-4 "区域覆盖")
   
3.        (71 "剪裁边界" ((1 "矩形") (2 "多边形")))
   
4.        ;;(91 "顶点数值")    ;后面的裁剪边界顶点数（不明白什么意思，总是比“附加过滤”中的“顶点数值”的值大1）
   
5.        (280 "剪裁状态"  ( (0 "关闭")   (1 "打开")));总是不出现下拉框，不知道为什么
   
6.        (281 "图形亮度")
   
7.        (282 "对比度值")
   
8.        (283 "淡入度值")
   
9.        (70 "显示特性"  ;调试中组码70的值总是7，cad说明中无此项
   
10.      ((1 "显示图像")
    
11.        (2 "当与屏幕不对齐时显示图像")
    
12.        (4 "使用剪裁边界")
    
13.        (7 "★未知情况")
    
14.        (8 "透明度打开")
    
15.      )
    
16.        )  
    
17.       
    
18.      )
    
19. 
    
20.      ("FJ"
    
21.        ("FJ5" "顶点数值" (length (wipeout2plst slent)))
    
22.        ("FJ6" "覆盖面积"   (abs (XD::PNTS:Area (wipeout2plst slent))) )
    
23.      )
    
24. 
    
25. )
    
26. 
    
27. 
    
28. 
    
29. ;|
    
30. 函数名称:  XD::PNTS:Area  
    
31. 调用格式:  (XD::PNTS:Area pts)  
    
32. 参数说明:  pts ---- 点表  
    
33. 返回值:    实数  
    
34. 函数简介:  点围成的多边形面积  
    
35. 函数来源:  原创  
    
36. 函数作者:  Lispboy  
    
37. 适用版本:  不限
    
38. 最后更新时间:  2013-06-07  
    
39. 
    
40. 备注:
    
41. 函数本身并不是重要的，重要的是利用它判断点表的顺、逆时针。
    
42. 采用的是数学的行列式的方法算得面积，面积有正负，逆时针正，顺时针负。
    
43. 点表构成的多边形要保证不自交，自交可能结果不对。
    
44. 
    
45. 点围成的多边形面积
    
46. 
    
47. 参数： pts ----点表
    
48. 
    
49. 返回值： 实数
    
50. 副作用： 如果点表是逆时针，面积正， 顺时针 面积负
    
51. 
    
52. |;
    
53. 
    
54. (defun XD::PNTS:Area (pts / pts1 iSum p0 p1 p2 x0 x1 x2 y0 y1 y2)
    
55.   (setq pts1 pts)
    
56.   (setq iSum 0)
    
57.   (setq  p0 (car pts)
    
58.   x0 (car p0)
    
59.   y0 (cadr p0)
    
60.   )
    
61.   (while (cdr pts1)
    
62.     (setq p1   (car pts1)
    
63.     x1   (car p1)
    
64.     y1   (cadr p1)
    
65.     p2   (cadr pts1)
    
66.     y2   (cadr p2)
    
67.     x2   (car p2)
    
68.     iSum (+ iSum (- (* x1 y2) (* x2 y1)))
    
69.     pts1 (cdr pts1)
    
70.     )
    
71.   )
    
72.   (/ (+ iSum (- (* (caar pts1) y0) (* x0 (cadar pts1)))) 2.0)
    
73. )
    
74. 
    
75. ;; WO2PL (gile)
    
76. ;; Re-creates a wipeout boundary (lwpolyline)
    
77. ;; http://www.theswamp.org/index.php?topic=28059.msg336431#msg336431
    
78. ;; returns the wipeout point list (WCS)
    
79. (defun wipeout2plst (wo / elst u v mat)
    
80.   (setq  elst (entget wo)
    
81.   u    (cdr (assoc 11 elst))
    
82.   v    (cdr (assoc 12 elst))
    
83.   mat  (list u (mapcar '- v) '(0. 0. 1.))
    
84.   )
    
85.   (mapcar
    
86.     '(lambda (p)
    
87.        (mapcar '+
    
88.          (mxv (trp mat) p)
    
89.          (mapcar '(lambda (x y) (/ (+ x y) 2.)) u v)
    
90.          (cdr (assoc 10 elst))
    
91.        )
    
92.      )
    
93.     (cdr
    
94.       (mapcar 'cdr
    
95.         (vl-remove-if-not '(lambda (x) (= (car x) 14)) elst)
    
96.       )
    
97.     )
    
98.   )
    
99. )

("WIPEOUT" ((-4 "区域覆盖")<br />        (71 "剪裁边界" ((1 "矩形") (2 "多边形")))<br />        ;;(91 "顶点数值")    ;后面的裁剪边界顶点数（不明白什么意思，总是比“附加过滤”中的“顶点数值”的值大1）<br />        (280 "剪裁状态"  ( (0 "关闭")   (1 "打开")));总是不出现下拉框，不知道为什么<br />        (281 "图形亮度")<br />        (282 "对比度值")<br />        (283 "淡入度值")<br />        (70 "显示特性"  ;调试中组码70的值总是7，cad说明中无此项<br />      ((1 "显示图像")<br />        (2 "当与屏幕不对齐时显示图像")<br />        (4 "使用剪裁边界")<br />        (7 "★未知情况")<br />        (8 "透明度打开")<br />      )<br />        )  <br />       <br />      )<br /> <br />      ("FJ"<br />        ("FJ5" "顶点数值" (length (wipeout2plst slent)))<br />        ("FJ6" "覆盖面积"   (abs (XD::PNTS:Area (wipeout2plst slent))) )<br />      )<br /> <br /> )<br /> <br /> <br /> <br /> ;|<br /> 函数名称:  XD::PNTS:Area  <br /> 调用格式:  (XD::PNTS:Area pts)  <br /> 参数说明:  pts ---- 点表  <br /> 返回值:    实数  <br /> 函数简介:  点围成的多边形面积  <br /> 函数来源:  原创  <br /> 函数作者:  Lispboy  <br /> 适用版本:  不限<br /> 最后更新时间:  2013-06-07  <br /> <br /> 备注:<br /> 函数本身并不是重要的，重要的是利用它判断点表的顺、逆时针。<br /> 采用的是数学的行列式的方法算得面积，面积有正负，逆时针正，顺时针负。<br /> 点表构成的多边形要保证不自交，自交可能结果不对。 <br /> <br /> 点围成的多边形面积<br /> <br /> 参数： pts ----点表<br /> <br /> 返回值： 实数<br /> 副作用： 如果点表是逆时针，面积正， 顺时针 面积负<br /> <br /> |;<br /> <br /> (defun XD::PNTS:Area (pts / pts1 iSum p0 p1 p2 x0 x1 x2 y0 y1 y2)<br />   (setq pts1 pts)<br />   (setq iSum 0)<br />   (setq  p0 (car pts)<br />   x0 (car p0)<br />   y0 (cadr p0)<br />   )<br />   (while (cdr pts1)<br />     (setq p1   (car pts1)<br />     x1   (car p1)<br />     y1   (cadr p1)<br />     p2   (cadr pts1)<br />     y2   (cadr p2)<br />     x2   (car p2)<br />     iSum (+ iSum (- (* x1 y2) (* x2 y1)))<br />     pts1 (cdr pts1)<br />     )<br />   )<br />   (/ (+ iSum (- (* (caar pts1) y0) (* x0 (cadar pts1)))) 2.0)<br /> )<br /> <br /> ;; WO2PL (gile)<br /> ;; Re-creates a wipeout boundary (lwpolyline)<br /> ;; http://www.theswamp.org/index.php?topic=28059.msg336431#msg336431<br /> ;; returns the wipeout point list (WCS)<br /> (defun wipeout2plst (wo / elst u v mat)<br />   (setq  elst (entget wo)<br />   u    (cdr (assoc 11 elst))<br />   v    (cdr (assoc 12 elst))<br />   mat  (list u (mapcar '- v) '(0. 0. 1.))<br />   )<br />   (mapcar<br />     '(lambda (p)<br />        (mapcar '+<br />          (mxv (trp mat) p)<br />          (mapcar '(lambda (x y) (/ (+ x y) 2.)) u v)<br />          (cdr (assoc 10 elst))<br />        )<br />      )<br />     (cdr<br />       (mapcar 'cdr<br />         (vl-remove-if-not '(lambda (x) (= (car x) 14)) elst)<br />       )<br />     )<br />   )<br /> )

小菜123

谢谢提供

smartstar

添加对WIPEOUT过滤时，发现个问题，能力有限，望老大解决。详见图片：




测试文件

小菜123

曲线面积是CAD曲线自带的属性，不是选择易的问题。只画一条直线，也是有面积的，但在几何上却不应该有。把Wipeout的顶点连成直线后计算面积，好像意义不大，没有考虑顶点之间是曲线的问题

小菜123

关于面积计算，XD::PNTS:Area函数说明中已经说了不支持自相交，事实上自相交曲线很多时候都会不方便计算。曲线面积是自动桌子自己算的，低版本的CAD中是0，2014中不是0，不必深究。
另外这个测试图为什么存个低版本就是65M之大？
一楼程序已更新。

小菜123

左下角那个多段线，没有采用C进行闭合，显示顶点个数是5，这时候面积就是0，如果pt4后用C闭合，则面积显示正确。
用area命令，按图输入五个点，面积也是0