如何用LISP得知某一点是否在当前显示的窗口中？

WGMOK

如题，

各位大侠，帮忙了。

WGMOK

自己顶一下了

 

rongyifei

(defun test (pt)
  (setq currentview   (vla-get-activeviewport
   (vla-get-activedocument
     (vlax-get-acad-object)
   )
        )
 cenpt       (vlax-safearray->list
   (vlax-variant-value (vla-get-center currentview))
        )
 height       (vla-get-height currentview)
 width       (vla-get-width currentview)
 x_dis_pttocen (abs (- (car pt) (car cenpt)))
 y_dis_pttocen (abs (- (cadr pt) (cadr cenpt)))
  )
  (if (and (<= x_dis_pttocen (/ width 2))
    (<= y_dis_pttocen (/ height 2))
      )
    (alert "点在显示的窗口内")
    (alert "点不在显示的窗口内")
  )
)

调用方法如test '(1.0 2.0))

WGMOK

谢谢楼上的了，

先试试哟