[原创]wmi 在 lisp 上的简单应用(2)-根据屏幕分辨率调整dcl大小
www.dimcax.com
[原创]wmi 在 lisp 上的简单应用(2)-根据屏幕分辨率调整dcl大小
大的对话框在800*600的显示器上总是让人烦恼
例如我的lisp开发小助手
但是又不能为了照顾小的分辨率而让对话框变的过于紧凑
解决的办法可以做两套程序 使用时用户自己选择
但实际上可以根据用户的屏幕分辨率自动选择使用哪个对话框
1 做2个不同的dcl(dcl可以事先写好 也可以用lisp自动写出来)
2 获得屏幕分辨率
3 判断使用哪个对话框
(defun test()
(setq wmi (vlax-create-object "wbemscripting.swbemlocator"))
(setq meth1 (vlax-invoke-method wmi 'connectserver nil nil nil nil nil nil nil nil ))
(setq meth2 (vlax-invoke-method meth1 'execquery "select * from win32_displayconfiguration" nil nil nil ))
(vlax-for n meth2
(print (vlax-get n 'pelswidth));屏幕宽度
(print (vlax-get n 'pelsheight));屏幕高度
)
)
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
用lisp自动写出来比较好
d
non哥，有没有得到当前cad绘图屏幕尺寸的左下角和右上角坐标的函数呀，给个来参考一下，
d
有系统变量
给过你的 你去找找
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.:43797405email:nonsmall@163.com对lisp开发研究有兴趣可以找我