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

Question

如题所述

Answer 1

取的AutoCAD当前视口中点，代码如下：

;;取得当前视口中点；例：(setq p1 ($PZ))
(defun $PZ ( / a b)
 (setq a (list (* (setq b (* 0.5 (getvar "viewsize")))
       (apply '/ (getvar "screensize"))) b 0.0)
       b (trans (getvar "viewctr") 1 2)
 )
 (mapcar '* '(0.5 0.5)
  (mapcar '+ (trans (mapcar '- b a) 2 1) (trans (mapcar '+ b a) 2 1))
 )
)

Answer 2

windows api
请采纳。。。。