Question

AUTOLISP编程求助，如何得到屏幕的中点的坐标？

AUTOLISP编程求助，如何得到屏幕的中点的坐标？

Answer 1

很简单的一个系统变量就能获得，参见下面代码：

(setq pt (getvar "viewctr"))

如果你还想获得屏幕的四个角点的坐标，可以利用系统变量viewsize screensize配合上面得到的屏幕中心坐标获得。

下面在给你个代码，可以获得当前拾取框的高度，在你选取实体的时候这个代码很有用：

;|
求拾取框的高度
|;
(defun $XDLSP_Drawing_getPickboxHeight ()
(* (/ (getvar "pickbox") (cadr (getvar "screensize"))) (getvar "viewsize"))
)

上面代码摘自晓东工具箱里面的系统代码库里面的代码。