[求助] DCL 彈出的位於怎麼定?

BDYCAD

DCL对话框用LISP调出默认的情况是在CAD绘图区中央显示的.         怎么改到调出时是在右上角显示呢?

alin

(if (not (new_dialog        对话框名 dcl_id "" '(0 0)))(exit))


上面的办法可使对话框跑到左上角,右上角不知道.

BDYCAD

我知道. 呵呵. 这个坐标就是对话框左上角的位置,         '(600 0) 就在右上角 '(600 500) 就在右下角                 '(0 500) 在左下角. 呵呵. 这个坐标数据是屏幕象数位, 它的原点是在屏幕的左上角的. 呵呵. 我是在看一个失量化程序知道的.

CADghost

可前提是你要先知道使用者屏幕的分辩率,和你的DCL的尺寸才行.


DCL尺寸好说,可是使用者屏幕的分辨率呢

spring

这确实是个问题.我试过了,如果超出分辨率DCL就会跑到中间去


DCL放在中间不是满好吗?干吗要去动它?

chen4

关于分辨率？在屏幕上多调试几次看着舒服就行。

CADghost

chen4发表于2005-2-26 8:06:00关于分辨率？在屏幕上多调试几次看着舒服就行。

?

wdb

我用vc做了个获取屏幕分辨率的程序，结果放在记事本中"c:\\screen.txt".


先用vlisp调用screen.exe，然后在"c:\\screen.txt"中读取分辨率。