[LISP程序]：请各位高手帮帮忙

kfjbk

这段程序不能执行最后的插入块操作，但是小弟不知道如何修改，请各位高手帮忙
lisp:
(defun initimg (image sld)
  (start_image image)
  (slide_image 0 0 (dimx_tile image) (dimy_tile image) sld)
  (end_image)
)
(defun dlg2 ()
  (initimg "aa" "12")
  (set_tile "n" (rtos 2 2))
  (action_tile "base1" "(getdata2) (dlg4)")
  (action_tile "accept" "(getdata2) (done_dialog 1)")
  (action_tile "cancel" "(done_dialog 0)")
)
(defun dlg3 ()
  (initimg "bb" "34")
  (set_tile "m" (rtos 2 2))
  (action_tile "base2" "(getdata3) (dlg4)")
  (action_tile "accept" "(getdata3) (done_dialog 1)")
  (action_tile "cancel" "(done_dialog 0)")
)
(defun dlg4 ()
  (if (not (new_dialog "hehe" dcl_id))
    (exit)
  )
  (set_tile "x" (rtos x 2 2))
  (set_tile "y" (rtos y 2 2))
  (action_tile "pick" "(done_dialog 2)")
  (action_tile "accept" "(getdata4) (done_dialog 3)")
  (action_tile "cancel" "(done_dialog 4)")
  (setq what (start_dialog))
  (if (= what 2)
    (done_dialog 2)
  )
)
(defun getdata2    ()
  (setq n (atof (get_tile "n")))
)
(defun getdata3    ()
  (setq m (atof (get_tile "m")))
)
(defun getdata4    ()
  (setq x (atof (get_tile "x")))
  (setq y (atof (get_tile "y")))
)

(defun c:addl (/ dcl_id tfb dclid ipos n m x y what p)
  (setq tfb '("进入" "离开"))
  (setq dclid '("haha" "heihei"))
  (setq dcl_id (load_dialog "11.dcl"))
  (if (not (new_dialog "kaka" dcl_id))
    (exit)
  )
  (start_list "list")
  (mapcar 'add_list tfb)
  (end_list)
  (set_tile "list" "0")
  (setq ipos 0)
  (action_tile "list" "(setq ipos (atoi $value))")
  (action_tile "accept" "(done_dialog 1)")
  (action_tile "cancel" "(done_dialog)")
  (if (= (start_dialog) 1)
    (progn (new_dialog (nth ipos dclid) dcl_id)
       (action_tile "accept" "(done_dialog 2)")
       (action_tile "cancel" "(done_dialog)")
       (setq x 0
         y 0
         m 0
         n 0
         what 3
       )
       (if (= ipos 0)
        (progn (while (> what 1)
           (dlg2)
           (if (= what 2)
         (dlg4)
           )
           (if (/= what 2)
         (setq what (start_dialog))
           )
           (if (= what 2)
         (progn
           (initget 1)
           (setq p (getpoint "\nbase point:"))
           (setq x (car p)
             y (cadr p)
           )
         )
           )
         )
         (if (= what 1) (command "insert" "进入通道块.dwg" p 1.0 1.0 0))
        )
        (progn (while (> what 1)
           (dlg3)
           (if (= what 2)
         (dlg4)
           )
           (if (/= what 2)
         (setq what (start_dialog))
           )
           (if (= what 2)
         (progn
           (initget 1)
           (setq p (getpoint "\nbase point:"))
           (setq x (car p)
             y (cadr p)
           )
         )
           )
         )
         (if (= what 1) (command "insert" "离开通道块.dwg" p 1.0 1.0 0))
         )
       )
    )
  )
)


dcl:
kaka:dialog
  {
  label = "请选择插入的块";
  :column
     {
     :popup_list
          {
          label = "请选择要出的通道类型";
          key = "list";
          edit_width = 20;
          list = "进入\n离开";
          }
     :row
       {
       :button
          {label = "确定";
           key = "accept";
           is_default = true;
           }
       :button
          {label = "取消";
           key = "cancel";
          }
       }
      }
  }




haha:dialog
  {
   label = "绘制进入通道";
   :row
     {
     :image
        {
        width = 35;
        height = 8;
        key = "aa";
        color = -2;
        }
     :column
        {
        :edit_box
             {
             label = "&n:=";
             key = "n";
             }
        :button
             {
             label = "插入点";
             key = "base1";
             }
        }
      }
   :row
     {
     :button
         {
         label = "确定";
         key = "accept";
         is_default = true;
         }
     :button
          {label = "取消";
           key = "cancel";
          }
     }
  }




heihei:dialog
  {
   label = "绘制离开通道";
   :row
     {
     :image
        {
        width = 35;
        height = 8;
        key = "bb";
        color = -2;
        }
     :column
        {
        :edit_box
             {
             label = "&m:=";
             key = "m";
             }
        :button
             {
             label = "插入点";
             key = "base2";
             }
        }
      }
   :row
     {
     :button
         {
         label = "确定";
         key = "accept";
         is_default = true;
         }
     :button
          {label = "取消";
           key = "cancel";
          }
     }
  }




hehe:dialog
  {
  label = "插入点";
  :column
    {
    :edit_box
         {
         label = "&x=:";
         key = "x";
         }
    :edit_box
         {
         label = "&y=:";
         key = "y";
         }
    :button
         {
         label = "光标拾取";
         key = "pick";
         }
    :row
      {
     :button
         {
         label = "确定";
         key = "accept";
         is_default = true;
         }
     :button
          {label = "取消";
           key = "cancel";
          }
      }
    }
}

谢谢了~

knightone

看晕了呵呵，我也没有办法。等高手回答

zxq0220

2. 
   
3. (defun initimg (image sld)
   
4. (start_image image)
   
5. (slide_image 0 0 (dimx_tile image) (dimy_tile image) sld)
   
6. (end_image)
   
7. )
   
8. (defun dlg2 ()
   
9. (initimg "aa" "12")
   
10. (set_tile "n" (rtos 2 2))
    
11. (action_tile "base1" "(getdata2) (dlg4)")
    
12. (action_tile "accept" "(getdata2) (done_dialog 1)")
    
13. (action_tile "cancel" "(done_dialog 0)")
    
14. )
    
15. (defun dlg3 ()
    
16. (initimg "bb" "34")
    
17. (set_tile "m" (rtos 2 2))
    
18. (action_tile "base2" "(getdata3) (dlg4)")
    
19. (action_tile "accept" "(getdata3) (done_dialog 1)")
    
20. (action_tile "cancel" "(done_dialog 0)")
    
21. )
    
22. (defun dlg4 ()
    
23. (if (not (new_dialog "hehe" dcl_id))
    
24.   (exit)
    
25. )
    
26. (set_tile "x" (rtos x 2 2))
    
27. (set_tile "y" (rtos y 2 2))
    
28. (action_tile "pick" "(done_dialog 2)")
    
29. (action_tile "accept" "(getdata4) (done_dialog 3)")
    
30. (action_tile "cancel" "(done_dialog 4)")
    
31. (setq what (start_dialog))
    
32. (if (= what 2)
    
33.   (done_dialog 2)
    
34. )
    
35. )
    
36. (defun getdata2 ()
    
37. (setq n (atof (get_tile "n")))
    
38. )
    
39. (defun getdata3 ()
    
40. (setq m (atof (get_tile "m")))
    
41. )
    
42. (defun getdata4 ()
    
43. (setq x (atof (get_tile "x")))
    
44. (setq y (atof (get_tile "y")))
    
45. )
    
46. 
    
47. (defun c:addl (/ dcl_id tfb dclid ipos n m x y what p)
    
48. (setq tfb '("进入" "离开"))
    
49. (setq dclid '("haha" "heihei"))
    
50. (setq dcl_id (load_dialog "11.dcl"))
    
51. (if (not (new_dialog "kaka" dcl_id))
    
52.   (exit)
    
53. )
    
54. (start_list "list")
    
55. (mapcar 'add_list tfb)
    
56. (end_list)
    
57. (set_tile "list" "0")
    
58. (setq ipos 0)
    
59. (action_tile "list" "(setq ipos (atoi $value))")
    
60. (action_tile "accept" "(done_dialog 1)")
    
61. (action_tile "cancel" "(done_dialog)")
    
62. (if (= (start_dialog) 1) (progn
    
63.   (new_dialog (nth ipos dclid) dcl_id)
    
64.   (action_tile "accept" "(done_dialog 2)")
    
65.   (action_tile "cancel" "(done_dialog)")
    
66.   (setq x 0 y 0 m 0 n 0 p (list x y) what 3)
    
67.   (if (= ipos 0) (progn
    
68.    (while (> what 1)
    
69.     (dlg2)
    
70.     (if (= what 2) (dlg4))
    
71.     (if (/= what 2) (setq what (start_dialog)))
    
72.     (if (= what 2) (progn
    
73.      (initget 1)
    
74.      (setq p (getpoint "\nbase point:"))
    
75.      (setq x (car p) y (cadr p))
    
76.     ))
    
77.    )
    
78.    (if (= what 1) (command "insert" "进入通道块.dwg" p 1.0 1.0 0))
    
79.   ) (progn
    
80.    (while (> what 1)
    
81.     (dlg3)
    
82.     (if (= what 2) (dlg4))
    
83.     (if (/= what 2) (setq what (start_dialog)))
    
84.     (if (= what 2) (progn
    
85.      (initget 1)
    
86.      (setq p (getpoint "\nbase point:"))
    
87.      (setq x (car p) y (cadr p))
    
88.     ))
    
89.    )
    
90.    (if (= what 1) (command "insert" "离开通道块.dwg" p 1.0 1.0 0))
    
91.   ))
    
92. ))
    
93. )
    

<br /> (defun initimg (image sld)<br /> (start_image image)<br /> (slide_image 0 0 (dimx_tile image) (dimy_tile image) sld)<br /> (end_image)<br /> )<br /> (defun dlg2 ()<br /> (initimg "aa" "12")<br /> (set_tile "n" (rtos 2 2))<br /> (action_tile "base1" "(getdata2) (dlg4)")<br /> (action_tile "accept" "(getdata2) (done_dialog 1)")<br /> (action_tile "cancel" "(done_dialog 0)")<br /> )<br /> (defun dlg3 ()<br /> (initimg "bb" "34")<br /> (set_tile "m" (rtos 2 2))<br /> (action_tile "base2" "(getdata3) (dlg4)")<br /> (action_tile "accept" "(getdata3) (done_dialog 1)")<br /> (action_tile "cancel" "(done_dialog 0)")<br /> )<br /> (defun dlg4 ()<br /> (if (not (new_dialog "hehe" dcl_id))<br />   (exit)<br /> )<br /> (set_tile "x" (rtos x 2 2))<br /> (set_tile "y" (rtos y 2 2))<br /> (action_tile "pick" "(done_dialog 2)")<br /> (action_tile "accept" "(getdata4) (done_dialog 3)")<br /> (action_tile "cancel" "(done_dialog 4)")<br /> (setq what (start_dialog))<br /> (if (= what 2)<br />   (done_dialog 2)<br /> )<br /> )<br /> (defun getdata2 ()<br /> (setq n (atof (get_tile "n")))<br /> )<br /> (defun getdata3 ()<br /> (setq m (atof (get_tile "m")))<br /> )<br /> (defun getdata4 ()<br /> (setq x (atof (get_tile "x")))<br /> (setq y (atof (get_tile "y")))<br /> )<br /> <br /> (defun c:addl (/ dcl_id tfb dclid ipos n m x y what p)<br /> (setq tfb '("进入" "离开"))<br /> (setq dclid '("haha" "heihei"))<br /> (setq dcl_id (load_dialog "11.dcl"))<br /> (if (not (new_dialog "kaka" dcl_id))<br />   (exit)<br /> )<br /> (start_list "list")<br /> (mapcar 'add_list tfb)<br /> (end_list)<br /> (set_tile "list" "0")<br /> (setq ipos 0)<br /> (action_tile "list" "(setq ipos (atoi $value))")<br /> (action_tile "accept" "(done_dialog 1)")<br /> (action_tile "cancel" "(done_dialog)")<br /> (if (= (start_dialog) 1) (progn<br />   (new_dialog (nth ipos dclid) dcl_id)<br />   (action_tile "accept" "(done_dialog 2)")<br />   (action_tile "cancel" "(done_dialog)")<br />   (setq x 0 y 0 m 0 n 0 p (list x y) what 3)<br />   (if (= ipos 0) (progn<br />    (while (> what 1)<br />     (dlg2)<br />     (if (= what 2) (dlg4))<br />     (if (/= what 2) (setq what (start_dialog)))<br />     (if (= what 2) (progn<br />      (initget 1)<br />      (setq p (getpoint "\nbase point:"))<br />      (setq x (car p) y (cadr p))<br />     ))<br />    )<br />    (if (= what 1) (command "insert" "进入通道块.dwg" p 1.0 1.0 0))<br />   ) (progn<br />    (while (> what 1)<br />     (dlg3)<br />     (if (= what 2) (dlg4))<br />     (if (/= what 2) (setq what (start_dialog)))<br />     (if (= what 2) (progn<br />      (initget 1)<br />      (setq p (getpoint "\nbase point:"))<br />      (setq x (car p) y (cadr p))<br />     ))<br />    )<br />    (if (= what 1) (command "insert" "离开通道块.dwg" p 1.0 1.0 0))<br />   ))<br /> ))<br /> )<br />