[求助]：如何获取CAD当前视口的宽度？

caddog

在CAD中，VIEWCTR系统变量存储当前视口中视图的中心点；
VIEWSIZE        存储当前视口的视图高度；
现在我想要选择当前视口内的所有图元，想用SSGET的CP方式进行，
不知道有没有获取当前视口的宽度的方法呢？

找到了方法：）
[PHP]
(setq activeViewPort (vla-get-ActiveViewport (ACTIVE-DOCUMENT)))
  ;;(setq #VIEWCTR (vlax-safearray->list(vlax-variant-value (vla-get-Center activeViewport))))
  (setq #VIEWCTR (getvar "VIEWCTR")) ;_这样求出的中心点不对，还是用系统变量
  (setq #vsHeight (vla-get-Height activeViewport))
  (setq #vsWidth (vla-get-Width activeViewport))
  (setq activeViewPort nil)
  ;;求左下和右上坐标
  (setq #vsMax (list (+ (car #VIEWCTR) (/ #vsWidth 2.0))(+ (cadr #VIEWCTR) (/ #vsHeight 2.0)))
        #vsMin (list (- (car #VIEWCTR) (/ #vsWidth 2.0))(- (cadr #VIEWCTR) (/ #vsHeight 2.0))))

[/PHP]