测试ssget在2008下((0 . DIMENSION) (70 . 37) )只选三点角度标注却把弧度标注选上了

xinxirong

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:测试ssget在2008下((0 . DIMENSION) (70 . 37) )只选三点角度和圆却把弧度标注选上了.dwg.zip 
下载次数:3  文件大小:28.11 KB 
下载权限: 不限 以上  [免费赚D豆]

测试ssget在2008下(ssget  '((0 . "DIMENSION") (70 . 37) ) )只选三点角度标注却把弧度标注选上了

Lisphk

应该是组码37不是唯一确定的吧，试试 用 (-4 . "&=") or (-4 . "&") 带上能表示唯一的值

marting

你(entget dim) 下，看看你的两个标注的实体数据都是什么，贴上来。

newer

看下组码70定义

70	标注类型： 值 0-6 是表示标注类型的整数值。值 32、64 和 128 是位值，可添加到整数值（在 R13 和更高的版本中总是设置值 32） 0 = 旋转、水平或垂直；1 = 对齐 2 = 角度；3 = 直径；4 = 半径 5 = 角度三点；6 = 坐标 32 = 表明仅由此标注参照该块参照 64 = 坐标类型。这是一个仅通过整数值 6 使用的位值（位 7）。如果设置此位，坐标为 X 类型；如果不设置此位，坐标为 Y 类型 128 = 这是一个添加到其他组 70 值的位值（位 8）（如果标注文字已放置到用户定义的位置，而不是放置到默认位置）

看下弧度的数据格式

((-1 . <图元名: -24a3d0>) (0 . "ARC_DIMENSION") (5 . "2AE") (102 .
"{ACAD_XDICTIONARY") (360 . <图元名: -24a358>) (102 . "}") (102 .
"{ACAD_REACTORS") (330 . <图元名: -24a2f8>) (102 . "}") (330 . <图元名: -24c308>)
(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbDimension")
(2 . "*D4") (10 5779.51 -473.543 0.0) (11 5974.84 -269.224 0.0) (12 0.0 0.0
0.0) (70 . 37) (1 . "") (71 . 5) (72 . 1) (41 . 1.0) (42 . 862.439) (73 . 0)
(74 . 0) (75 . 0) (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0 0.0 1.0)
(3 . "ISO-25_exp") (100 . "AcDbArcDimension") (13 5356.79 -244.716 0.0) (14
5638.93 250.156 0.0) (15 5483.12 11.1232 0.0) (70 . 0) (40 . 4.25372) (41 .
0.993131) (71 . 0) (16 5356.79 -244.716 0.0) (17 5638.93 250.156 0.0) (18 0.0
0.0 0.0) (42 . 0.0) (50 . 0.0))


看下三点角度标注的数据格式

((-1 . <图元名: -24a4e0>) (0 . "DIMENSION") (5 . "294") (102 .
"{ACAD_XDICTIONARY") (360 . <图元名: -24a470>) (102 . "}") (102 .
"{ACAD_REACTORS") (330 . <图元名: -24a3d8>) (102 . "}") (330 . <图元名: -24c308>)
(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbDimension")
(2 . "*D3") (10 5294.85 348.341 0.0) (11 5145.97 203.339 0.0) (12 0.0 0.0 0.0)
(70 . 37) (1 . "") (71 . 5) (72 . 1) (41 . 1.0) (42 . 3.26059) (73 . 0) (74 .
0) (75 . 0) (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0 0.0 1.0) (3 .
"ISO-25_exp") (100 . "AcDb3PointAngularDimension") (13 5356.79 -244.716 0.0)
(14 5638.93 250.156 0.0) (15 5483.12 11.1232 0.0) (16 0.0 0.0 0.0) (40 . 0.0)
(50 . 0.0))


组码70都是37，所以不能用37区分他俩，用下组码100，(100 . "AcDb3PointAngularDimension")就行了。

所以，试试 (ssget '((0 . "dimension")(100 . "AcDb3PointAngularDimension")))

xinxirong

100组码是不能用来过滤的，ssget究竟哪些组码可以过滤哪些不行，要试过才知道，只有一个的应该可以，100有多个的肯定不行。

newer

xinxirong 发表于 2017-5-11 16:50

那就得增加额外代码去过滤了

1. (if (and
   
2.       (setq ss (ssget '((0 . "dimension"))))
   
3.       (setq ss1 (ssadd))
   
4.       (setq i -1)
   
5.       (while (setq e (ssname ss (setq i (1+ i))))
   
6.         (if (= "AcDb3PointAngularDimension" (vla-get-objectname
   
7.                                                                 (vlax-ename->vla-object e)
   
8.                                             )
   
9.             )
   
10.           (ssadd e ss1)
    
11.         )
    
12.       )
    
13.       (> (sslength ss1) 0)
    
14.     )
    
15.   ss1
    
16. )
    

(if (and<br />       (setq ss (ssget '((0 . "dimension"))))<br />       (setq ss1 (ssadd))<br />       (setq i -1)<br />       (while (setq e (ssname ss (setq i (1+ i))))<br />         (if (= "AcDb3PointAngularDimension" (vla-get-objectname<br />                                                                 (vlax-ename->vla-object e)<br />                                             )<br />             )<br />           (ssadd e ss1)<br />         )<br />       )<br />       (> (sslength ss1) 0)<br />     )<br />   ss1<br /> )<br />

xinxirong

而且只是2008是这样，2007，2013，2016都正常。

marting

xinxirong 发表于 2017-5-11 19:44

那其他版本的 组码70 肯定不一样的。