AUTOLISP编程求助，如何得到屏幕的中点的坐标
展开全部
取的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))
)
)
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
windows api
请采纳。。。。
请采纳。。。。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
