初学DCL，遇到的问题，请教下

feng83

初学DCL，按教程写了如下代码，老是报错，把(action_tile "accept" "(S_RECT)(done_dialog)")改成(action_tile "accept" "(S_RECT)")就可以了，不太明白，看了论坛的很多源代码，都有带(done_dialog)终止对话框，请教高手解答下
环境AUTO CAD 2007，win 7  系统

(DEFUN C:RECT4 ()
  (SETQ DCL_ID (LOAD_DIALOG "c:/RECT4.DCL"))
  (NEW_DIALOG "RECT4" DCL_ID)
  (SET_TILE "rect_w" "50")
  (SET_TILE "rect_h" "20")
  (action_tile "accept" "(S_RECT)(done_dialog)")
  (START_DIALOG)(UNLOAD_DIALOG)
  (SETQ PT_0 (GETPOINT "\n 选择一个点 : "))
  (SETQ PT_1 (POLAR PT_0 0 TMP_W))
  (SETQ PT_2 (POLAR PT_1 (/ PI 2 ) TMP_H))
  (SETQ PT_3 (POLAR PT_2  PI TMP_W))
  (COMMAND "PLINE" PT_0 PT_1 PT_2 PT_3 "C")
  (PRINC)
)
(DEFUN S_RECT ()
   (SETQ TMP_W (ABS (ATOF (GET_TILE "rect_w"))))
   (SETQ TMP_H (ABS (ATOF (GET_TILE "rect_h"))))
)

feng83

另外也请帮忙看下下面的代码错在那了，想弹出一个对话框，点相应按钮执行相应命令（命令太多了）,运行以下程序，弹出对话框，就不能动了
(DEFUN C:ssss ()
  (SETQ DCL_ID (LOAD_DIALOG "c:/ssss.DCL"))
  (NEW_DIALOG "ssss" DCL_ID)
  (action_tile "cancel""(done_dialog)")
  (action_tile "ml_01""(sq)(done_dialog)")
  (action_tile "ml_02""(sw)(done_dialog)")
  (START_DIALOG)(UNLOAD_DIALOG DCL_ID)
  (PRINC)
)
(defun sq ( / oce a1 a2 a3 i)
  (setq oce (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (graphscr)
  (prompt "\n 选择需要锁的对象:")
  (setq a1(ssget))
  (if a1
    (progn
      (setq i 0)
      (repeat (sslength a1)
        (setq a3 (ssname a1 i))
        (setq a2 (cdr (assoc 8 (entget a3))))
        (command "LAYER" "lo" a2"")
        (setq i (1+ i))
      )
      (princ a2)
    ))
  (setvar "cmdecho" oce)
  (princ)
)
(defun sw( / oce a1 a2 a3 i)
  (setq oce (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (graphscr)
  (prompt "\n 选择需要解锁的对象:")
  (setq a1(ssget))
  (if a1
    (progn
      (setq i 0)
      (repeat (sslength a1)
        (setq a3 (ssname a1 i))
        (setq a2 (cdr (assoc 8 (entget a3))))
        (command "LAYER" "u" a2"")
        (setq i (1+ i))
      )
      (princ a2)
    ))
  (setvar "cmdecho" oce)
  (princ)
)

ZZXXQQ

2. (DEFUN C:RECT4 ()
   
3. (if (> (SETQ DCL_ID (LOAD_DIALOG "c:/RECT4.DCL")) 0) (progn
   
4.   (if (NEW_DIALOG "RECT4" DCL_ID) (progn
   
5.    (SET_TILE "rect_w" "50")
   
6.    (SET_TILE "rect_h" "20")
   
7.    (action_tile "accept" "(S_RECT)(done_dialog 1)")
   
8.    (action_tile "cancel" "(done_dialog 0)")
   
9.    (setq re (start_dialog))
   
10.   )
    
11.    (princ "\n无法显示对话框！")
    
12.   )
    
13.   (UNLOAD_DIALOG DCL_ID)
    
14. )
    
15.   (princ "\n无法加载对话框！")
    
16. )
    
17. (if (= re 1) (progn
    
18.   (SETQ PT_0 (GETPOINT "\n 选择一个点 : "))
    
19.   (setq pt_2 (mapcar '+ (list tmp_w tmp_h)))
    
20. ;  (SETQ PT_1 (POLAR PT_0 0 TMP_W))
    
21. ;  (SETQ PT_2 (POLAR PT_1 (/ PI 2 ) TMP_H))
    
22. ;  (SETQ PT_3 (POLAR PT_2  PI TMP_W))
    
23. ;  (COMMAND "PLINE" PT_0 PT_1 PT_2 PT_3 "C")
    
24.   (command "_.RECTANG" PT_0 pt_2)
    
25. ))
    
26. (PRINC)
    
27. )
    
28. (DEFUN S_RECT ()
    
29.    (SETQ TMP_W (ABS (ATOF (GET_TILE "rect_w"))))
    
30.    (SETQ TMP_H (ABS (ATOF (GET_TILE "rect_h"))))
    
31. )
    

(DEFUN C:RECT4 ()<br /> (if (> (SETQ DCL_ID (LOAD_DIALOG "c:/RECT4.DCL")) 0) (progn<br />   (if (NEW_DIALOG "RECT4" DCL_ID) (progn<br />    (SET_TILE "rect_w" "50")<br />    (SET_TILE "rect_h" "20")<br />    (action_tile "accept" "(S_RECT)(done_dialog 1)")<br />    (action_tile "cancel" "(done_dialog 0)")<br />    (setq re (start_dialog))<br />   )<br />    (princ "\n无法显示对话框！")<br />   )<br />   (UNLOAD_DIALOG DCL_ID)<br /> )<br />   (princ "\n无法加载对话框！")<br /> )<br /> (if (= re 1) (progn<br />   (SETQ PT_0 (GETPOINT "\n 选择一个点 : "))<br />   (setq pt_2 (mapcar '+ (list tmp_w tmp_h)))<br /> ;  (SETQ PT_1 (POLAR PT_0 0 TMP_W))<br /> ;  (SETQ PT_2 (POLAR PT_1 (/ PI 2 ) TMP_H))<br /> ;  (SETQ PT_3 (POLAR PT_2  PI TMP_W))<br /> ;  (COMMAND "PLINE" PT_0 PT_1 PT_2 PT_3 "C")<br />   (command "_.RECTANG" PT_0 pt_2)<br /> ))<br /> (PRINC)<br /> )<br /> (DEFUN S_RECT ()<br />    (SETQ TMP_W (ABS (ATOF (GET_TILE "rect_w"))))<br />    (SETQ TMP_H (ABS (ATOF (GET_TILE "rect_h"))))<br /> )<br />

feng83

ZZXXQQ 发表于 2014-5-6 08:13

非常感谢Z版主抽空帮忙改写了代码，CAD有点问题不能测试你的代码，不过有几点疑问请教下：
1   (done_dialog ) 改成 (done_dialog 1) 是不是解决参数太少的问题或是说让done_dialog 终止后返回1？为什么把(action_tile "accept" "(S_RECT)(done_dialog)")改成(action_tile "accept" "(S_RECT)")就可以，终止对话框不写入应该是对话框关不掉，现在，不写反而好了，写反而不行
2  加入IF和(UNLOAD_DIALOG DCL_ID)是不是解决对话框关不掉的问题

ZZXXQQ

feng83 发表于 2014-5-6 21:49
非常感谢Z版主抽空帮忙改写了代码，CAD有点问题不能测试你的代码，不过有几点疑问请教下：
1   (done_di ...

程序是按CAD自带的DCL改的，是标准格式，加入了错误处理。OpenDCL不会。
一般未退出DCL时CAD是不能使用COMMAND的。

feng83

ZZXXQQ 发表于 2014-5-7 07:49
程序是按CAD自带的DCL改的，是标准格式，加入了错误处理。OpenDCL不会。
一般未退出DCL时CAD是不能使用C ...

还是不行，，还是提示参数太少,将(done_dialog 1) 去掉就可以

feng83

feng83 发表于 2014-5-7 23:18
还是不行，，还是提示参数太少,将(done_dialog 1) 去掉就可以

CAD重装又可以了，不过在公司电脑上还是不行

ZZXXQQ

2. (DEFUN C:ssss ()
   
3. (if (> (SETQ DCL_ID (LOAD_DIALOG "c:/ssss.DCL")) 0) (progn
   
4.   (setq re 4)
   
5.   (while (> re 1)
   
6.    (if (NEW_DIALOG "ssss" DCL_ID) (progn
   
7.     (action_tile "ml_01" "(done_dialog 2)")
   
8.     (action_tile "ml_02" "(done_dialog 3)")
   
9.     (action_tile "accept" "(done_dialog 1)")
   
10.     (action_tile "cancel" "(done_dialog 0)")
    
11.     (setq re (START_DIALOG))
    
12.    )
    
13.     (princ "\n无法显示对话框！")
    
14.    )
    
15.    (cond
    
16.     ((= re 2) (sq))
    
17.     ((= re 3) (sw))
    
18.    )
    
19.   )
    
20.   (UNLOAD_DIALOG DCL_ID)
    
21. )
    
22.   (princ "\n无法加载对话框！")
    
23. )
    
24. (PRINC)
    
25. )
    
26. (defun sq (/ a1 a2 i)
    
27.   (setq oce (getvar "cmdecho"))
    
28.   (setvar "cmdecho" 0)
    
29.   (graphscr)
    
30.   (princ "\n选择需要锁的对象: ")
    
31.   (if (setq a1(ssget)) (progn
    
32.     (setq i -1)
    
33.     (repeat (sslength a1)
    
34.      (setq a2 (cdr (assoc 8 (entget (ssname a1 (setq i (1+ i)))))))
    
35.      (command "LAYER" "lo" a2 "")
    
36.     )
    
37.     (princ a2)
    
38.    ))
    
39.   (setvar "cmdecho" oce)
    
40.   (princ)
    
41. )
    
42. (defun sw(/ a1 a2 i)
    
43. (setq oce (getvar "cmdecho"))
    
44. (setvar "cmdecho" 0)
    
45. (graphscr)
    
46. (prompt "\n选择需要解锁的对象: ")
    
47. (if (setq a1(ssget)) (progn
    
48.   (setq i -1)
    
49.   (repeat (sslength a1)
    
50.    (setq a2 (cdr (assoc 8 (entget (ssname a1 (setq i (1+ i)))))))
    
51.    (command "LAYER" "u" a2"")
    
52.   )
    
53.   (princ a2)
    
54.   ))
    
55. (setvar "cmdecho" oce)
    
56. (princ)
    
57. )
    

(DEFUN C:ssss ()<br /> (if (> (SETQ DCL_ID (LOAD_DIALOG "c:/ssss.DCL")) 0) (progn<br />   (setq re 4)<br />   (while (> re 1)<br />    (if (NEW_DIALOG "ssss" DCL_ID) (progn<br />     (action_tile "ml_01" "(done_dialog 2)")<br />     (action_tile "ml_02" "(done_dialog 3)")<br />     (action_tile "accept" "(done_dialog 1)")<br />     (action_tile "cancel" "(done_dialog 0)")<br />     (setq re (START_DIALOG))<br />    )<br />     (princ "\n无法显示对话框！")<br />    )<br />    (cond<br />     ((= re 2) (sq))<br />     ((= re 3) (sw))<br />    )<br />   )<br />   (UNLOAD_DIALOG DCL_ID)<br /> )<br />   (princ "\n无法加载对话框！")<br /> )<br /> (PRINC)<br /> )<br /> (defun sq (/ a1 a2 i)<br />   (setq oce (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (graphscr)<br />   (princ "\n选择需要锁的对象: ")<br />   (if (setq a1(ssget)) (progn<br />     (setq i -1)<br />     (repeat (sslength a1)<br />      (setq a2 (cdr (assoc 8 (entget (ssname a1 (setq i (1+ i)))))))<br />      (command "LAYER" "lo" a2 "")<br />     )<br />     (princ a2)<br />    ))<br />   (setvar "cmdecho" oce)<br />   (princ)<br /> )<br /> (defun sw(/ a1 a2 i)<br /> (setq oce (getvar "cmdecho"))<br /> (setvar "cmdecho" 0)<br /> (graphscr)<br /> (prompt "\n选择需要解锁的对象: ")<br /> (if (setq a1(ssget)) (progn<br />   (setq i -1)<br />   (repeat (sslength a1)<br />    (setq a2 (cdr (assoc 8 (entget (ssname a1 (setq i (1+ i)))))))<br />    (command "LAYER" "u" a2"")<br />   )<br />   (princ a2)<br />   ))<br /> (setvar "cmdecho" oce)<br /> (princ)<br /> )<br />

feng83

谢谢ZZXXQQ的回复，已解决了问题，再次感谢