[求助]视口选择集的问题
<p><font face="Verdana">想获得文档中每一个视口的比例，但按vla-get-Viewports 获得的集合，无论图中有几个视口，视口个数总是等于0，请大家看看下面几句，哪句有问题，注意不准用ssget.</font></p><p><font face="Verdana"></font> </p><font face="Verdana"><font face="Verdana">
<p><br/>(defun OS:set_vp_scale (/ ss_viewport i en obj_viewport vp_scale)<br/> (setvar "CMDECHO" 0)<br/> (setq ss_viewport nil vp_scale 100000 i 0)</font></p>
<p></font> </p>
<p><font face="Verdana"> (vl-load-com)<br/> (setq *Acad (vlax-get-acad-object)<br/> *ADoc (vla-get-activedocument *Acad)<br/> )</font></p>
<p><font face="Verdana"> (setq ss_viewport (vla-get-Viewports *ADoc))<br/> (vlax-for obj ss_viewport<br/> (progn<br/> (setq vp_scale_lin (vla-get-CustomScale obj))<br/> (if (< vp_scale_lin vp_scale)(setq vp_scale vp_scale_lin))<br/> )<br/> )</font></p>
<p> </p>
<p><font face="Verdana"> (vlax-for obj ss_viewport</font></p>
<p><font face="Verdana"> (progn<br/> (vla-put-StandardScale obj acVpCustomScale )<br/> (vla-put-CustomScale obj vp_scale)<br/> )</font></p>
<p><font face="Verdana"> ) </font></p>
<p><font face="Verdana"><br/> (setq ss_viewport nil)<br/>)</font></p>
页:
[1]