[LISP]如何获取图形的最大最小坐标值？

haha

朋友们，如何能获取当前图形或当前视窗的最小坐标值和最大坐标值？

王咣生

[转载] (defun forall:getscreen (/ tempos viewcnt viewH
viewW fact viewW1 Hhalf
Whalf pnt_leftdown pnt_rightdown
return
)
(setq tempos (getvar "osmode"))
(setvar "osmode" 0)
(setq viewcnt (getvar "viewctr"))
(setq viewH (getvar "viewsize"))
(setq viewW (getvar "screensize"))
(setq fact (/ viewH (cadr viewW)))
(setq viewW1 (* fact (car viewW)))
(setq Hhalf (/ viewH 2))
(setq Whalf (/ viewW1 2))
(setq pnt_leftdown
(list (- (car viewcnt) Whalf) (- (cadr viewcnt) Hhalf))
)
(setq pnt_rightup
(list (+ (car viewcnt) Whalf) (+ (cadr viewcnt) Hhalf))
)
(setvar "osmode" tempos)
(setq return (cons pnt_leftdown pnt_rightup))
)
;;;The function return a list which contain two point cordinate!
参考:dispbbs.asp?boardID=16&ID=12315&page=1

haha

王咣生 谢谢，谢谢。非常感谢！

haha

以上程序我好象用不了。没有定义命令！我该如何呀？

haha

高手都哪去啦？郁闷！有心人却没有能力帮我，有能力的却不知道溜到哪里去了。

ljpnb

2楼的程序怎么用不了，是你不会用而已。输入(forall:getscreen)就会出来结果。