[求助]视口选择集的问题

hzh2000

想获得文档中每一个视口的比例，但按vla-get-Viewports 获得的集合，无论图中有几个视口，视口个数总是等于0，请大家看看下面几句，哪句有问题，注意不准用ssget.

 

(defun OS:set_vp_scale (/ ss_viewport i en obj_viewport  vp_scale)
  (setvar "CMDECHO" 0)
  (setq ss_viewport nil vp_scale 100000 i 0)

 

  (vl-load-com)
  (setq *Acad (vlax-get-acad-object)
        *ADoc (vla-get-activedocument *Acad)
   )

 (setq ss_viewport (vla-get-Viewports *ADoc))
   (vlax-for obj ss_viewport
     (progn
      (setq vp_scale_lin (vla-get-CustomScale obj))
      (if (< vp_scale_lin vp_scale)(setq vp_scale vp_scale_lin))
     )
   )

 

  (vlax-for obj ss_viewport

    (progn
     (vla-put-StandardScale  obj acVpCustomScale )
     (vla-put-CustomScale obj vp_scale)
    )

   )  

  (setq ss_viewport nil)
)