如何选中选择集 sss 里最后生成的 (0 . "dimension")

669423907

向大家请教一个问题：
如何选中选择集 sss 里最后生成的
(8 . "标注")
(0 . "dimension")

1993063

(Defun C:tt (/ i s1 ss)
  (setq i  -1 ss (ssget))
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (print (Assoc 8 (Entget s1)))
    (print (Assoc 0 (Entget s1)))
  )(princ)
)

669423907

1993063 发表于 2014-8-27 09:09
(Defun C:tt (/ i s1 ss)
  (setq i  -1 ss (ssget))
  (while (setq s1 (ssname ss (setq i (1+ i))))

首先非常感谢你的回复，只是我看不懂啊，不知怎么改，还望明示

edata

试试

1. (sssetfirst nil sss)
   
2. (setq ss(ssget "P" '((8 . "标注")(0 . "dimension"))))
   
3. (sssetfirst)

(sssetfirst nil sss)<br /> (setq ss(ssget "P" '((8 . "标注")(0 . "dimension"))))<br /> (sssetfirst)

1993063

669423907 发表于 2014-8-26 15:27
首先非常感谢你的回复，只是我看不懂啊，不知怎么改，还望明示

你不就要这效果么?
(8 . "标注")
(0 . "dimension")
;遍历图元提取组码0和8

669423907

1993063 发表于 2014-8-27 09:40
你不就要这效果么?
(8 . "标注")
(0 . "dimension")

;可见区域处理（hbllw 2010-11-6）
(defun kjqycl( / $screen atio ce ch ch2 hh hh2 k p1 p2 ss)
(setq $screen (getvar "SCREENSIZE"))
(setq ch (getvar "viewsize"))
(setq ch2 (/ ch 2)) (setq ce (getvar "viewctr"))
(setq atio (/ (car $screen) (cadr $screen)))
(setq hh (* atio ch))
(setq hh2 (/ hh 2))
(setq p1 (polar (polar ce 0 hh2)
(* 1.5 pi) ch2))
(setq p2 (polar (polar ce pi hh2)
(* 0.5 pi) ch2))
(setq chuangkou (ssget "C" p1 p2))
(princ))


(Defun C:`Q()
(kjqycl)
，，，，，，，，，，，，，，，，，

亮显 chuangkou 中最后的生成的(8 . "标注")(0 . "dimension")


这样表达应该好多了

669423907

edata 发表于 2014-8-27 09:31
试试

谢谢参与，详见6楼

edata

1. ;可见区域处理（hbllw 2010-11-6）
   
2. (defun kjqycl( / $screen atio ce ch ch2 hh hh2 k p1 p2 ss)
   
3. (setq $screen (getvar "SCREENSIZE"))
   
4. (setq ch (getvar "viewsize"))
   
5. (setq ch2 (/ ch 2)) (setq ce (getvar "viewctr"))
   
6. (setq atio (/ (car $screen) (cadr $screen)))
   
7. (setq hh (* atio ch))
   
8. (setq hh2 (/ hh 2))
   
9. (setq p1 (polar (polar ce 0 hh2)
   
10. (* 1.5 pi) ch2))
    
11. (setq p2 (polar (polar ce pi hh2)
    
12. (* 0.5 pi) ch2))
    
13. (if (setq chuangkou (ssget "C" p1 p2))
    
14.   (sssetfirst nil chuangkou)
    
15.   )
    
16. (if (setq ss(ssget "P" '((8 . "标注")(0 . "dimension"))))
    
17.   (progn
    
18.   ;(sssetfirst nil ss) 亮显所有
    
19.   (sssetfirst nil (ssadd (ssname ss 0)));亮显最后一个
    
20.   )
    
21.   )
    
22. (princ))
    
23. 
    
24. 
    
25. (Defun C:`Q()
    
26. (kjqycl)
    
27.   )

;可见区域处理（hbllw 2010-11-6）<br /> (defun kjqycl( / $screen atio ce ch ch2 hh hh2 k p1 p2 ss)<br /> (setq $screen (getvar "SCREENSIZE"))<br /> (setq ch (getvar "viewsize"))<br /> (setq ch2 (/ ch 2)) (setq ce (getvar "viewctr"))<br /> (setq atio (/ (car $screen) (cadr $screen)))<br /> (setq hh (* atio ch))<br /> (setq hh2 (/ hh 2))<br /> (setq p1 (polar (polar ce 0 hh2)<br /> (* 1.5 pi) ch2))<br /> (setq p2 (polar (polar ce pi hh2)<br /> (* 0.5 pi) ch2))<br /> (if (setq chuangkou (ssget "C" p1 p2))<br />   (sssetfirst nil chuangkou)<br />   )<br /> (if (setq ss(ssget "P" '((8 . "标注")(0 . "dimension"))))<br />   (progn<br />   ;(sssetfirst nil ss) 亮显所有<br />   (sssetfirst nil (ssadd (ssname ss 0)));亮显最后一个<br />   )<br />   )<br /> (princ))<br /> <br /> <br /> (Defun C:`Q()<br /> (kjqycl)<br />   )

669423907

edata 发表于 2014-8-27 12:39

谢谢E大，我运行时，程序无过滤，全亮了。还有一个问题：

(kjqycl)是个公用的程序，有好几个小程序要用到，比方说修剪，局部刷新一些图层操作，，，，，，，，，

所以只想在(Defun C:`Q()中操作，，，

再次有劳E大了

1993063

(defun kjqycl (/ $screen atio ce ch ch2 hh hh2 k p1 p2 ss)
  (setq $screen (getvar "SCREENSIZE"))
  (setq ch (getvar "viewsize"))
  (setq ch2 (/ ch 2))
  (setq ce (getvar "viewctr"))
  (setq atio (/ (car $screen) (cadr $screen)))
  (setq hh (* atio ch))
  (setq hh2 (/ hh 2))
  (setq        p1 (polar (polar ce 0 hh2)
                  (* 1.5 pi)
                  ch2
           )
  )
  (setq        p2 (polar (polar ce pi hh2)
                  (* 0.5 pi)
                  ch2
           )
  )
  (setq   chuangkou (ssget "C" p1 p2))
  (princ)
)
(defun c:tt nil ( kjqycl))