SSGET选择中关键字带横杠的问题

熊咔咔

大佬有什么教材可以推荐么，新手看的迷迷糊糊的

lee50310

既然直取不行,那繞個彎就能抓到了,存在SEL中

2. 
   
3. (defun c:test()
   
4.               (setq ss (ssget "x" '((0 . "LINE")(8 . "GXYZ") ))) ;過濾線型及圖層
   
5.               (setq sel (ssadd))
   
6.    (repeat (setq i (sslength ss))
   
7.               (setq en (ssname ss (1- i)))
   
8.              (setq xdata (cdr (assoc -3 (entget en '("*"))))) ;取出擴展數據串列
   
9.              (setq z (assoc 1000 (cdar xdata)))
   
10.         (if (equal z (cons 1000 "172001-3")) ;比對兩者值
    
11.             (setq sel (ssadd en sel)) ;若符合加入選集中
    
12.         )
    
13.    )
    
14. )
    

<br /> (defun c:test()<br />               (setq ss (ssget "x" '((0 . "LINE")(8 . "GXYZ") ))) ;過濾線型及圖層<br />               (setq sel (ssadd))<br />    (repeat (setq i (sslength ss))<br />               (setq en (ssname ss (1- i)))<br />              (setq xdata (cdr (assoc -3 (entget en '("*"))))) ;取出擴展數據串列<br />              (setq z (assoc 1000 (cdar xdata)))<br />         (if (equal z (cons 1000 "172001-3")) ;比對兩者值<br />             (setq sel (ssadd en sel)) ;若符合加入選集中<br />         )<br />    )<br /> )<br />

使用版主提供的 test01.dwg 檔案做測試

13648893846

带扩展属性只能选择多段线，其他属性要二次过滤，例如楼上的方法