[求助]如何遍历当前显示的图元（屏幕中）

Suyj_xia

如何遍历当前显示的图元（屏幕中），然后才可以分别编辑它的属性值。 (repeat (vla-get-count (model-space))
(setq acadobj (vla-item (model-space) *index*))
(if (vlax-write-enabled-p acadobj)
(progn
(vla-put-LinetypeScale acadobj newvalue)
(setq *index1* (+ *index1* 1))
)
)
(vlax-release-object acadobj)
(setq *index* (+ *index* 1))
) 上面的程序遍历了model-space中的所有图元，不是我想要的，请高手赐教。

龙龙仔

2. ;;选取当前显示的图元
3. (defun SEL (/ CTR SIZE SCREEN SCALE SIZE XSIZE RT LB SS)
4.    (command "_.UCS" "V")
5.    (setq CTR (getvar "VIEWCTR"))
6.    (setq SIZE (getvar "VIEWSIZE"))
7.    (setq SCREEN (getvar "SCREENSIZE"))
8.    (setq SCALE (/ (car SCREEN) (cadr SCREEN)))
9.    (setq XSIZE (* SCALE SIZE))
10.    (setq RT (list (+ (car CTR) (/ XSIZE 2)) (+ (cadr CTR) (/ SIZE 2))))
11.    (setq LB (list (- (car CTR) (/ XSIZE 2)) (- (cadr CTR) (/ SIZE 2))))
12.    (setq SS (ssget "c" RT LB))
13.    (command "_.UCS" "P")
14.    SS
15. );;遍歷选集
16. (defun C:TT (/ SS N)
17.    (if (setq N   0
18.          SS (SEL)
19.            )
20.        (repeat (sslength SS)
21.            (print (ssname SS N))
22.            (setq N (1+ N))
23.        )
24.    )
25.    (princ)
26. )

;;选取当前显示的图元 (defun SEL (/ CTR SIZE SCREEN SCALE SIZE XSIZE RT LB SS)    (command "_.UCS" "V")    (setq CTR (getvar "VIEWCTR"))    (setq SIZE (getvar "VIEWSIZE"))    (setq SCREEN (getvar "SCREENSIZE"))    (setq SCALE (/ (car SCREEN) (cadr SCREEN)))    (setq XSIZE (* SCALE SIZE))    (setq RT (list (+ (car CTR) (/ XSIZE 2)) (+ (cadr CTR) (/ SIZE 2))))    (setq LB (list (- (car CTR) (/ XSIZE 2)) (- (cadr CTR) (/ SIZE 2))))    (setq SS (ssget "c" RT LB))    (command "_.UCS" "P")    SS );;遍歷选集 (defun C:TT (/ SS N)    (if (setq N   0          SS (SEL)            )        (repeat (sslength SS)            (print (ssname SS N))            (setq N (1+ N))        )    )    (princ) )

Suyj_xia

感谢斑竹