[已解决][求助][求助]

zongsheng131

小弟刚学lisp.用的是AutoLisp&DCL基础篇这本书，看到书上这段程序时，调试了好多次都不行。
希望各位高手有时间帮小弟看一下。

2. (defun c:dia6b()
3.    (setvar "cmdecho" 0)
4.    (setq blkname "dia6att")
5.    (dcl_dia6b)
6.    (prin1)
7. )
8. (defun c:dia6b1()
9.    (setvar "cmdecho" 0)
10.    (setq blkname "dia6att")
11.    (setq dd 99)
12.    (while (>= dd 1)
13.           (dcl_dia6b)
14.    )
15.    (prin1)
16. )
17. (defun dcl_dia6b()
18.    (setq dcl_id (load_dialog "dia6b"))
19.    (new_dialog "dia6b" dcl_id)
20.    (setq defkey1 "rb14" defkey2 "rb21")
21.    (set_tile defkey1 "1")
22.    (set_tile defkey2 "1")
23.    (setq name(get_attr defkey1 "label"))
24.    (setq ssca(get_attr defkey2 "label"))
25.    (action_tile "rb11" "(setq name(get_attr $key "label"))")
26.    (action_tile "rb12" "(setq name(get_attr $key "label"))")
27.    (action_tile "rb13" "(setq name(get_attr $key "label"))")
28.    (action_tile "rb14" "(setq name(get_attr $key "label"))")
29.    (action_tile "rb21" "(setq ssca(get_attr $key "label"))")
30.    (action_tile "rb22" "(setq ssca(get_attr $key "label"))")
31.    (action_tile "rb23" "(setq ssca(get_attr $key "label"))")
32.    (action_tile "rb24" "(setq ssca(get_attr $key "label"))")
33.    (action_tile "rb25" "(setq ssca(get_attr $key "label"))")
34.    (action_tile "ins_ok" "(ok_dia6b)(done_dialog 1)")
35.    (setq dd(start_dialog))
36.    (if (= dd 1)
37.        (progn
38.   ;(setq inspt (getpoint "\n选取属性图块的插入点："))
39.          ;(command "insert" blkname inspt 1 1 0 dwgnum name ssca)
40.          ;(command "insert" blkname "x" 1 "y" 1 "r" 0 pause dwgnum name ssca)
41.           (command "insert" blkname '(0 0) 1 1 0 dwgnum name ssca)
42.           (command "move" (entlast) "" '(0 0) pause)  
43.        )
44.    )
45. )
46. (defun ok_dia6b()
47.    (setq dwgnum (get_tile "dwgnum"))
48. )

(defun c:dia6b()    (setvar "cmdecho" 0)    (setq blkname "dia6att")    (dcl_dia6b)    (prin1) ) (defun c:dia6b1()    (setvar "cmdecho" 0)    (setq blkname "dia6att")    (setq dd 99)    (while (>= dd 1)           (dcl_dia6b)    )    (prin1) ) (defun dcl_dia6b()    (setq dcl_id (load_dialog "dia6b"))    (new_dialog "dia6b" dcl_id)    (setq defkey1 "rb14" defkey2 "rb21")    (set_tile defkey1 "1")    (set_tile defkey2 "1")    (setq name(get_attr defkey1 "label"))    (setq ssca(get_attr defkey2 "label"))    (action_tile "rb11" "(setq name(get_attr $key "label"))")    (action_tile "rb12" "(setq name(get_attr $key "label"))")    (action_tile "rb13" "(setq name(get_attr $key "label"))")    (action_tile "rb14" "(setq name(get_attr $key "label"))")    (action_tile "rb21" "(setq ssca(get_attr $key "label"))")    (action_tile "rb22" "(setq ssca(get_attr $key "label"))")    (action_tile "rb23" "(setq ssca(get_attr $key "label"))")    (action_tile "rb24" "(setq ssca(get_attr $key "label"))")    (action_tile "rb25" "(setq ssca(get_attr $key "label"))")    (action_tile "ins_ok" "(ok_dia6b)(done_dialog 1)")    (setq dd(start_dialog))    (if (= dd 1)        (progn   ;(setq inspt (getpoint "\n选取属性图块的插入点："))          ;(command "insert" blkname inspt 1 1 0 dwgnum name ssca)          ;(command "insert" blkname "x" 1 "y" 1 "r" 0 pause dwgnum name ssca)           (command "insert" blkname '(0 0) 1 1 0 dwgnum name ssca)           (command "move" (entlast) "" '(0 0) pause)          )    ) ) (defun ok_dia6b()    (setq dwgnum (get_tile "dwgnum")) )

以下是对话框DCl:

2. dia6b:dialog{
3. label="轻松掌握 radio_button 单选按钮";
4.   :text{label="【 插入带有属性的图块 DIA6B 】";
5.         alignment=centered;
6.   }
7.   :row{
8.      :boxed_radio_column{
9.         label="设计者";
10.         :radio_button{label="忍者龟";key="rb11";}
11.         :radio_button{label="小叮当";key="rb12";}
12.         :radio_button{label="钟楼怪人";key="rb13";}
13.         :radio_button{label="无敌铁金刚";key="rb14";value="1";}
14.      }
15.      :boxed_radio_column{
16.         label="比例";
17.         :radio_button{label="1/1";  key="rb21";value="1";}
18.         :radio_button{label="1/30"; key="rb22";}
19.         :radio_button{label="1/50"; key="rb23";}
20.         :radio_button{label="1/100";key="rb24";}
21.         :radio_button{label="1/200";key="rb25";}
22.      }
23.   }
24.   :edit_box{
25.      label="图档编号";
26.      key="dwgnum";
27.      edit_width=8;
28.      edit_limit=8;
29.      fixed_width=true;
30.   }
31.   spacer_1;
32.   :row{
33.       fixed_width = true;
34.       alignment = centered;
35.      :button{
36.         label="插入图块";
37.         key="ins_ok";
38.         width=8;
39.     }
40.     : spacer {width = 2;}
41.     cancel_button;
42.   }
43. }

dia6b:dialog{ label="轻松掌握 radio_button 单选按钮";   :text{label="【 插入带有属性的图块 DIA6B 】";         alignment=centered;   }   :row{      :boxed_radio_column{         label="设计者";         :radio_button{label="忍者龟";key="rb11";}         :radio_button{label="小叮当";key="rb12";}         :radio_button{label="钟楼怪人";key="rb13";}         :radio_button{label="无敌铁金刚";key="rb14";value="1";}      }      :boxed_radio_column{         label="比例";         :radio_button{label="1/1";  key="rb21";value="1";}         :radio_button{label="1/30"; key="rb22";}         :radio_button{label="1/50"; key="rb23";}         :radio_button{label="1/100";key="rb24";}         :radio_button{label="1/200";key="rb25";}      }   }   :edit_box{      label="图档编号";      key="dwgnum";      edit_width=8;      edit_limit=8;      fixed_width=true;   }   spacer_1;   :row{       fixed_width = true;       alignment = centered;      :button{         label="插入图块";         key="ins_ok";         width=8;     }     : spacer {width = 2;}     cancel_button;   } }

[upload=rar]

ZZXXQQ

插入图块前要关闭对话框显示。书本写得太繁琐了。

3. (defun c:dia6b()
4. (setvar "cmdecho" 0)
5. (setq blkname "dia6att")
6. (dcl_dia6b)
7. (prin1)
8. )
9. (defun c:dia6b1()
10. (setvar "cmdecho" 0)
11. (setq blkname "dia6att")
12. (while (>= dd 1) (dcl_dia6b))
13. (prin1)
14. )
15. (defun dcl_dia6b()
16. (setq dcl_id (load_dialog "dia6b"))
17. (new_dialog "dia6b" dcl_id)
18. (action_tile "ins_ok" "(ok_dia6b)(done_dialog 1)")
19. (action_tile "cancel" "(done_dialog 0)")
20. (setq dd (start_dialog))
21. (if (= dd 1) (progn
22.    ;(setq inspt (getpoint "\n选取属性图块的插入点："))
23.           ;(command "insert" blkname inspt 1 1 0 dwgnum name ssca)
24.           ;(command "insert" blkname "x" 1 "y" 1 "r" 0 pause dwgnum name ssca)
25.   (setvar "ATTDIA" 0)
26.   (command "-insert" blkname '(0 0) 1 1 0 dwgnum nm ssca)
27.   (setvar "ATTDIA" 1)
28.   (command "move" "L" "" '(0 0) pause)  
29. ))
30. )
31. (defun ok_dia6b()
32. (setq nm (get_attr (get_tile "sj") "label"))
33. (setq scca (get_attr (get_tile "bl") "label"))
34. (setq dwgnum (get_tile "dwgnum"))
35. )

(defun c:dia6b() (setvar "cmdecho" 0) (setq blkname "dia6att") (dcl_dia6b) (prin1) ) (defun c:dia6b1() (setvar "cmdecho" 0) (setq blkname "dia6att") (while (>= dd 1) (dcl_dia6b)) (prin1) ) (defun dcl_dia6b() (setq dcl_id (load_dialog "dia6b")) (new_dialog "dia6b" dcl_id) (action_tile "ins_ok" "(ok_dia6b)(done_dialog 1)") (action_tile "cancel" "(done_dialog 0)") (setq dd (start_dialog)) (if (= dd 1) (progn    ;(setq inspt (getpoint "\n选取属性图块的插入点："))           ;(command "insert" blkname inspt 1 1 0 dwgnum name ssca)           ;(command "insert" blkname "x" 1 "y" 1 "r" 0 pause dwgnum name ssca)   (setvar "ATTDIA" 0)   (command "-insert" blkname '(0 0) 1 1 0 dwgnum nm ssca)   (setvar "ATTDIA" 1)   (command "move" "L" "" '(0 0) pause)   )) ) (defun ok_dia6b() (setq nm (get_attr (get_tile "sj") "label")) (setq scca (get_attr (get_tile "bl") "label")) (setq dwgnum (get_tile "dwgnum")) )

3. dia6b:dialog{
4. label="轻松掌握 radio_button 单选按钮";
5. :text{label="【 插入带有属性的图块 DIA6B 】";alignment=centered;}
6. :row{
7.   :boxed_radio_column{
8.    label="设计者";
9.    key=sj;
10.    :radio_button{label="忍者龟";key="rb11";}
11.    :radio_button{label="小叮当";key="rb12";}
12.    :radio_button{label="钟楼怪人";key="rb13";}
13.    :radio_button{label="无敌铁金刚";key="rb14";value="1";}
14.   }
15.   :boxed_radio_column{
16.    label="比例";
17.    key=bl;
18.    :radio_button{label="1/1";  key="rb21";value="1";}
19.    :radio_button{label="1/30"; key="rb22";}
20.    :radio_button{label="1/50"; key="rb23";}
21.    :radio_button{label="1/100";key="rb24";}
22.    :radio_button{label="1/200";key="rb25";}
23.   }
24. }
25. :edit_box{label="图档编号";key="dwgnum";edit_width=8;edit_limit=8;fixed_width=true;}
26. spacer_1;
27. :row{
28.   fixed_width = true;
29.   alignment = centered;
30.   :button{label="插入图块";key="ins_ok";width=8;}
31.   : spacer {width = 2;}
32.   cancel_button;
33. }
34. }

dia6b:dialog{ label="轻松掌握 radio_button 单选按钮"; :text{label="【 插入带有属性的图块 DIA6B 】";alignment=centered;} :row{   :boxed_radio_column{    label="设计者";    key=sj;    :radio_button{label="忍者龟";key="rb11";}    :radio_button{label="小叮当";key="rb12";}    :radio_button{label="钟楼怪人";key="rb13";}    :radio_button{label="无敌铁金刚";key="rb14";value="1";}   }   :boxed_radio_column{    label="比例";    key=bl;    :radio_button{label="1/1";  key="rb21";value="1";}    :radio_button{label="1/30"; key="rb22";}    :radio_button{label="1/50"; key="rb23";}    :radio_button{label="1/100";key="rb24";}    :radio_button{label="1/200";key="rb25";}   } } :edit_box{label="图档编号";key="dwgnum";edit_width=8;edit_limit=8;fixed_width=true;} spacer_1; :row{   fixed_width = true;   alignment = centered;   :button{label="插入图块";key="ins_ok";width=8;}   : spacer {width = 2;}   cancel_button; } }

zongsheng131

原来是忘了更改attdia这个系统变量

谢谢ZZXXQQ版主，每次都这么及时的解决我的问题