自定义面板函数

958620832

dcl文件内容：
xx:dialog {
    label = "自定义面板函数" ;
    :row {
        :boxed_row {
            label = "尺寸" ;
            :column {
                :button {
                    key = "x1" ;
                    label = "标注断开" ;
                }
                :button {
                    key = "x2" ;
                    label = "位置取齐" ;
                }
                :button {
                    key = "x3" ;
                    label = "位置取齐" ;
                }
                :button {
                    key = "x4" ;
                    label = "位置取齐" ;
                }
            }
            :column {
                :button {
                    key = "x5" ;
                    label = "延长线段" ;
                }
                :button {
                    key = "x6" ;
                    label = "延长线段" ;
                }
                :button {}
                :button {}
            }
        }
        :boxed_column {
            label = "文字" ;
            :button {}
            :button {}
            :button {}
            :button {}
        }
    }
    :row {
        :boxed_column {
            label = "修改" ;
            :button {}
            :button {}
            :button {}
            :button {}
        }
        :boxed_row {
            label = "备用" ;
            :column {
                :button {}
                :button {}
                :button {}
                :button {}
            }
            :column {
                :button {}
                :button {}
                :button {}
                :button {}
            }
        }
    }
    cancel_button;
}
lisp文件内容：
(defun c:xx ()
(if (< (setq id (load_dialog "E:\\我的文档\\USB\\自定面板函数2")) 0) (exit))
(if (not (new_dialog "xx" id))(exit))
(setq n 1)
(repeat 4
  (action_tile (strcat "x" (rtos n)) "(done_dialog n)")
  (setq n (+ n 1)))
(setq sdt (start_dialog))
(setq clist '((c:k1) (c:k2)(c:k3)(c:k4)(c:k5)(c:k6)))
(if (> sdt 0) (eval (nth (- sdt 1) clist)))
(unload_dialog)
(princ))
问题如下：
点击k1,k2,k3,k4按钮，为什么显示的都是(c:k5)，而不是k1,k2,k3,k4呢？为什么？难道repeat函数在这里不能用？

nzl1116

n 即是变量，在双引号里面肯定是错的，程序有问题。

zlg258369

执行(done_dialog n)时已循环完，此时n已经等于5

(action_tile (strcat "x" (rtos n)) "(done_dialog   (atoi (substr $key 2)))")

知行ooo李肖坪

同步学习中^^^…………