DCL对话框窗口默认启动位置，lisp更改控制窗口位置，取消卸载窗口

在cad做插件的时候，用到做一个对话框窗口，但是每次启动都在屏幕中心，很不爽，于是想盘他，经过多次资料，都是在启动函数你们设置参数，

函数(new_dialog "窗口名称" 窗口DCL文件  "显示位置坐标[action [screen-pt]]")

经过几小时的折腾，可以实现窗口任意位置

部分代码,这里只展示，启动窗口函数设置，

(setq dcl_id (load_dialog "L:/CAD/css.dcl"));窗口文件
(if (new_dialog "cnc1he" dcl_id "" (cond ( '(900 10) )));启动窗口

(progn
;写窗口事件...........................
(unload_dialog dcl_id);卸载窗口，没有它无法关闭窗口
))
复制