新手求帮助

retfjkl · 发表于 2013-3-12 11:52

defun c:test (/ dcl_id a b h *next* choice p1)
  (setvar "cmdecho" 0)
  (setq dcl_id (load_dialog "d:/1.DCL"))
  (setq *next* 5)
  (while (> *next* 2)
(new_dialog "box" dcl_id)
(if a (set_tile "edit_1" (rtos a 2 0)))
(if b (set_tile "edit_2" (rtos b 2 0)))
(if h (set_tile "edit_3" (rtos h 2 0)))
(action_tile "edit_1" "(setq a (atof $value))")
(action_tile "edit_2" "(setq b (atof $value))")
(action_tile "edit_3" "(setq h (atof $value))")
(action_tile "button_1" "(done_dialog 3)")
(action_tile "accept" "(done_dialog 1)(setq choice T)")
(action_tile "cancel" "(done_dialog 0)(setq choice nil)")
(setq *next* (start_dialog))
(if

retfjkl · 发表于 2013-3-12 11:53

本帖最后由 retfjkl 于 2013-3-12 13:27 编辑

  (if (and choice p1 a b h)
(box10)
  )
  (unload_dialog dcl_id)
  (setvar "cmdecho" 1)
  (princ)
)
  求解释下这程序

革天明 · 发表于 2013-3-12 13:44

很好懂，(setq choice T)(setq choice nil)这句中对choice进行了赋值，(and choice p1 a b h)表示choice p1 a b h全部不为Nil时，返回T，执行(box10)子函数，如果为假，什么都不做。(unload_dialog dcl_id)缷载对话框，

retfjkl · 发表于 2013-3-12 15:48

defun c:test (/ dcl_id a b h *next* choice p1)
  (setvar "cmdecho" 0)
  (setq dcl_id (load_dialog "d:/1.DCL"))
  (setq *next* 5)
  (while (> *next* 2)
(new_dialog "box" dcl_id)
(if a (set_tile "edit_1" (rtos a 2 0)))
(if b (set_tile "edit_2" (rtos b 2 0)))
(if h (set_tile "edit_3" (rtos h 2 0)))
(action_tile "edit_1" "(setq a (atof $value))")
(action_tile "edit_2" "(setq b (atof $value))")
(action_tile "edit_3" "(setq h (atof $value))")
(action_tile "button_1" "(done_dialog 3)")
(action_tile "accept" "(done_dialog 1)(setq choice T)")
(action_tile "cancel" "(done_dialog 0)(setq choice nil)")
(setq *next* (start_dialog))
   (if (and choice p1 a b h)
(box10)
  )
  (unload_dialog dcl_id)
  (setvar "cmdecho" 1)
  (princ)
)

是一起的

LLXXZZ · 发表于 2013-3-12 18:46

缺少dcl文件.......

retfjkl · 发表于 2013-3-12 19:03

LLXXZZ 发表于 2013-3-12 18:46
缺少dcl文件.......

解释下这个程序就行

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

[讨论] 新手 求帮助

[讨论] 新手求帮助