对话框位置设定

wrsxed · 发表于 2018-10-19 17:44:33

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun wr::DCL:PosDia (Dclfile Dlgname / *error* dcl dch )
  (cond
((not
   (and
      (setq dcl (findfile Dclfile))
      (< 0 (setq dch (load_dialog Dclfile)))
   )
   )
   (princ "\n不能加载文件。")
)
((not (new_dialog Dlgname dch "" (cond ( *screenpoint* ) (t '(-1 -1)))))
   (setq dch (unload_dialog dch))
   (princ "\n不能加载对话框。")
)
(t
   (action_tile "accept" "(setq *screenpoint* (done_dialog 1))")
   (start_dialog)
   (setq dch (unload_dialog dch))
)
  )
  (princ)
)

wang112358 · 发表于 2019-1-7 15:27:00

感谢分享，很有用的插件

账号		自动登录	找回密码
密码			立即注册

[对话框] 对话框位置设定

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分