;;13 判断点是否在屏幕内BY wowan1314
(defun YY-ptinview (pt / a b c d x)
(setq b (getvar "viewsize")
c (car (getvar "screensize"))
d (cadr (getvar "screensize"))
a (* b (/ c d))
x (trans (getvar "viewctr") 1 2)
c (list (- (car x) (* a 0.5)) (- (cadr x) (* b 0.5)) 0.0)
d (list (+ (car x) (* a 0.5)) (+ (cadr x) (* b 0.5)) 0.0)
a (MAPCAR '<= C (TRANS PT 1 2) D)
)
(AND (CAR A) (CADR A))
)