SCREEN CENTRE SHOWING LISP

[animkundu]

Hi everybody
Can any one help me for a lisp programme that show the current screen center by a point
Actually I am using x y to open a tile in a customized (by the java) autodesk software . Now i want to show the screen center. Is it possible by lisp if so please suggest.

[stig.madsen]

If you by screen mean drawing area (i.e. viewport) and not your physical screen then there are several system variables that hold different viewport information in different units. Take a look at the VIEWxxx variables and SCREENSIZE.

[CADmium]

This functions returns the corners of the visible screenarea :

(defun DT:EXTSCREEN ()
(list
(list(-(car (getvar "viewctr"))
(*(/(getvar "viewsize")
(cadr(getvar "screensize"))
)
(car(getvar "screensize"))
0.5
)
)
(-(cadr(getvar "viewctr"))
(/(getvar "viewsize")2.0)
)
)
(list(+(car (getvar "viewctr"))
(*(/(getvar "viewsize")
(cadr(getvar "screensize"))
)
(car(getvar "screensize"))
0.5
)
)
(+(cadr (getvar "viewctr"))
(/(getvar "viewsize")2.0)
)
)
)
)


the middle yo can get so :

(mapcar '/ (mapcar '+ (car (setq P(DT:extscreen))) (cadr P))'( 2 2 ))

[animkundu]

Thanx Thomas. Its working. Thanks a lot.