[LISP程序]：预览DCL对话框的AutoLISP程序

sicky111 · 发表于 2006-11-19 19:23:55

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

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

×

(defun C:VIEWDCL ()
  (if (null dcl_pt)
(setq dcl_pt '(-1 -1))
  )
  (setq dcl_file (getfiled "打开DCL文件" "" "DCL" 2))
  (princ "DCL文件名:")
  (princ dcl_file)
  (setq dia_name (getstring "\nDialog对话框名:"))
  (if (= dia_name "")
(exit)
  )
  (setq dcl_id (load_dialog dcl_file))
  (new_dialog dia_name dcl_id)
  (action_tile "accept" "(setq dcl_pt (done_dialog 1))")
  (action_tile "cancel" "(done_dialog 0)")
  (setq dd (start_dialog))
  (cond ((= dd 1))
(princ "\n确定<OK>!!!")
  )
  ((= dd 0))
  (princ "\n取消<cancel>!!!")
)
(prin1)

cy956 · 发表于 2006-11-30 16:58:25

vilsp就可以预览dcl

qiaqiadeng · 发表于 2007-6-4 22:09:49

输入对话框名字太啰唆，如下解决不是很好？
(defun c:xd ()
  (vl-load-com)
  (princ "预览对话框")
  (if (null dcl_pt)
(setq dcl_pt '(-1 -1))
  )
  (setq dcl_file (getfiled "打开DCL文件" "c:/" "DCL" 2))
  (setq f (open dcl_file "r"))
  (setq dia_name (read-line f))
  (setq key (vl-string-position (ascii ":") dia_name))
  (setq dia_name (substr dia_name 1 key))
  (close f)
  dia_name
  (princ "DCL文件名:")
  (princ dcl_file)
  (if (= dia_name "")
(exit)
  )
  (setq dcl_id (load_dialog dcl_file))
  (new_dialog dia_name dcl_id)
  (action_tile "accept" "(setq dcl_pt (done_dialog 1))")
  (action_tile "cancel" "(done_dialog 0)")
  (setq dd (start_dialog))
  (cond ((= dd 1))
(princ "\n确定!!!")
  )
  ((= dd 0))
  (princ)
)

yzys · 发表于 2007-11-30 23:17:57

下面一个较好

shaobotao · 发表于 2008-1-8 22:14:14

下面的代码为何一直报错啊,如果一个dcl里面有多个dialog定义怎么办?

fengyishan · 发表于 2008-2-6 11:28:15

5楼楼主说的有道理

mjh · 发表于 2008-4-1 15:29:18

对对话框编制很有用

我们—— · 发表于 2008-4-18 21:08:04

对话框编制,怎么用？

blc007 · 发表于 2008-4-20 13:52:34

出错需要调整

flowerson · 发表于 2008-5-29 14:33:03

如果dcl文件：前有空格就要把 (setq dia_name (substr dia_name 1 key))改为
(setq dia_name (substr dia_name 1 (- key 1)))这样就可以了！

xiedf · 发表于 2009-1-2 17:33:42

有创意呀

hzh2000 · 发表于 2009-2-13 23:31:13

不适用

shijiaoxiong · 发表于 2009-4-27 10:28:32

还请各位高手多多指点

netrope · 发表于 2009-9-12 00:19:26

还请各位高手多多指点

jyzas · 发表于 2013-7-22 00:22:31

谢谢楼主分享，学习DCL特别有用

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

[LISP程序]：预览DCL对话框的AutoLISP程序

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

相关帖子

点评