请教选择扩展属性问题，急急！！！

虾屮蛋

((-1 . <图元名: 7d4641d8>) (0 . "LWPOLYLINE") (5 . "32D36B") (102 . "{ACAD_REACTORS") (330 . <图元名: 7d464208>) (102 . "}") (330 . <图元名: 7e2d4cc0>) (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "DMTZ") (6 . "Continuous") (100 . "AcDbPolyline") (90 . 11) (70 . 128) (43 . 0.0) (38 . 0.0) (39 . 0.0) (10 426763.0 3.13265e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 426761.0 3.13266e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 426758.0 3.13267e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 426755.0 3.13267e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 426750.0 3.13268e+006) (40 . 0.0) (41 . 0.0) (42
. 0.0) (10 426745.0 3.13268e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 426743.0 3.13268e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 426743.0 3.13268e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 426742.0 3.13269e+006) (40 . 0.0) (41 . 0.0) (42
. 0.0) (10 426743.0 3.1327e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 426743.0 3.1327e+006) (40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0) (-3 ("SOUTH" (1000 . "204421") (1070 . 1))))

用(setq a (ssget "x" '((8 . "DMTZ") (-3 ("SOUTH"(1000 . "204421"))))))可以选择到

((-1 . <图元名: 7d32ede8>) (0 . "LINE") (5 . "366D75") (102 . "{ACAD_REACTORS") (330 . <图元名: 7d464208>) (102 . "}") (330 . <图元名: 7e2d4cc0>) (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "DMTZ") (6 . "Continuous") (100 . "AcDbLine") (10 426763.0 3.13265e+006 0.0) (11 426747.0 3.13265e+006 0.0) (210 0.0 0.0 1.0) (-3 ("SOUTH" (1000 . "204420-1"))))

用(setq a (ssget "x" '((8 . "DMTZ") (-3 ("SOUTH"(1000 . "204420-1"))))))为什么选择不到呢？？？

xiabin68

-3只能选择第一个后面的没有反应，

虾屮蛋

选择类似204420-1编码的就选择不到
选择类似204420编码的就可以
不知道为什么

4041186888

2. (defun C:ent()
   
3.   (While (Not (SetQ a (EntSel "\n指定一个对象: ")))
   
4.               (PrinC "\n没选中任何目标, 请再试...")
   
5.              
   
6.        )
   
7.        (SetQ a (Car a)
   
8.              b (EntGet a '("*"))
   
9.              c (Cdr (Assoc 0 b))
   
10.              d (List b)
    
11.        )
    
12.   (princ    b)
    
13.   (while (not (= "SEQEND" c))
    
14.       (setq a (entnext a)
    
15.             d (cons (entget a '("*")) d)
    
16.             c (cdr (assoc 0 (entget a)))
    
17.             )
    
18.     (princ d)
    
19.   );;;    (setq pel (entget pen))
    
20. 
    
21.   (princ  )
    
22.   )
    

(defun C:ent()<br />   (While (Not (SetQ a (EntSel "\n指定一个对象: ")))<br />               (PrinC "\n没选中任何目标, 请再试...")<br />               <br />        )<br />        (SetQ a (Car a)<br />              b (EntGet a '("*"))<br />              c (Cdr (Assoc 0 b))<br />              d (List b)<br />        )<br />   (princ    b)<br />   (while (not (= "SEQEND" c))<br />       (setq a (entnext a)<br />             d (cons (entget a '("*")) d)<br />             c (cdr (assoc 0 (entget a)))<br />             )<br />     (princ d)<br />   );;;    (setq pel (entget pen))<br /> <br />   (princ  )<br />   )<br />

这个程序你试下。我试了下 凡是能SSGET能选到的都会报错，选不到的都不会报错，我研究半天没弄动什么原因，希望你能有什么启示，貌似跟块或者线形有关

zhb236623

我也是遇到相关的问题，帮顶下。

xujinhua

用(setq a (ssget "x" '((8 . "DMTZ") (-3 ("SOUTH"(1000 . "204421"))))))可以选择到
我用这个也选不到啊

雪山飞狐_lzh

只有lwployline能选择1000码 其他的只能按扩展应用名选择 这是规定

xujinhua

雪山飞狐_lzh 发表于 2016-10-8 13:46
只有lwployline能选择1000码 其他的只能按扩展应用名选择 这是规定

好的，谢谢你啊