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

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中的所有图元，不是我想要的，请高手赐教。

aidraft

下面程序返回屏幕上显示的图元数量，或许对你有用
[PHP]
(defun ent-number  (/ scrsize height width center llpt urpt enum ss)
  (setq scrsize (getvar "SCREENSIZE"))
  (setq height (getvar "VIEWSIZE")
        width  (* height (/ (car scrsize) (cadr scrsize)))
        )
  (setq center (getvar "VIEWCTR"))
  (setq llpt (polar (polar center pi (/ width 2.0))
                    (* pi 1.5)
                    (/ height 2.0)
                    )
        urpt (polar (polar center 0 (/ width 2.0))
                    (* pi 0.5)
                    (/ height 2.0)
                    )
        )
  (setq ss (ssget "w" llpt urpt))
  (if ss
    (setq enum (sslength ss))
    (setq enum 0)
    )
;;;  (princ "\nNumber of entities found in current view : ")
;;;  (princ enum)
;;;  (princ)
  )
[/PHP]

Suyj_xia

感谢aidraft