[求助]：请帮我看看这个简单的程序吧

mhy007 · 发表于 2003-12-28 16:37:36

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如果在弹出对话框后直接按确定，则会提示“未知命令｜cyck｜，按F1查看帮助。“但如果选别的词组，则又能正常运行。如果
在对话框弹出后先不直接按确定，而是先选另外一个词组，再选回
刚才一弹出对话框预设的”客厅“则又正常了。但是把“cycker”的变量
填入开头的（defun c:cyck（）的空括号里面，则一运行此命令就
会提示“错误：参数太少” 我等菜鸟对此百思不得其解，恳请各大
虾动手修改一下程序，使其能正常运行。不胜感激！
下面为dcl及lsp
cyck:dialog{
   label="常用词库";
   :popup_list{
            key="klist";
            }
   ok_cancel;
}

(defun c:cyck()
   (setvar "cmdecho" 0)
   (setq word_list '("平面图""立面图""办公室""客厅""卧室""餐厅""书房"))
   (dcl_cyck)
   (prin1)
  )
  (defun dcl_cyck()
   (setq dcl_id (load_dialog "cyck"))
   (new_dialog "cyck" dcl_id)
   (start_list "klist")
   (mapcar 'add_list word_list)
   (end_list)
   (set_tile "klist" "3")
   (action_tile "klist" "(sub_klist $value)")
   (action_tile "accept" "(done_dialog 1)")
   (setq dd(start_dialog))
   (if (= dd 1)
   (progn
         (command "-mtext" "0,0" "100,50" cycker "")
   )
   )
)
(defun sub_klist(vvs)
      (setq cycker (nth (atoi vvs) word_list))
)

lsjjm · 发表于 2003-12-28 17:12:10

以C:打头的函数其形参表必须是空表或局部变量.

mhy007 · 发表于 2003-12-28 18:01:18

问题具体该如何修改呢？

wkai · 发表于 2003-12-28 21:16:31

第一次运行，直接回车没有触发 sub_klist 函数，cycker 的值为nil。
所以必须在程序中首先给cycker 设一个默认值。
修改如下：

(defun c:cyck()
(setvar "cmdecho" 0)
(setq word_list '("平面图""立面图""办公室""客厅""卧室""餐厅""书房"))
(if (not cycker)(setq cycker (car word_list)))[/COLOR]
(dcl_cyck)
(prin1)
)
(defun dcl_cyck()
(setq dcl_id (load_dialog "cyck"))
(new_dialog "cyck" dcl_id)
(start_list "klist")
(mapcar 'add_list word_list)
(end_list)
(set_tile "klist" (itoa(vl-position cycker word_list)) [/COLOR] )
(action_tile "klist" "(sub_klist $value)")
(action_tile "accept" "(done_dialog 1)")
(setq dd(start_dialog))
(if (= dd 1)
(progn
(command "-mtext" "0,0" "100,50" cycker "")
)
)
)
(defun sub_klist(vvs)
(setq cycker (nth (atoi vvs) word_list))
)

aeo · 发表于 2003-12-28 21:36:02

问题应该是:(action_tile "klist"...后cycker才有值.

如果(defun c:cyck(cycker)...
那这函数就有了参数,在你的这个程序好象行不通,因为它是从其他地方传过来的.

说不清楚，翻翻资料吧:

(defun c:cyck ( / word_list dcl_cyck sub_klist cycker)
(setvar "cmdecho" 0)
(setq word_list '("平面图" "立面图""办公室" "客厅" "卧室" "餐厅""书房"))
;;;;;;;;;;;;;
(defun dcl_cyck ( / dcl_id dd)
(setq dcl_id (load_dialog "cyck"))
(new_dialog "cyck" dcl_id)
(start_list "klist")
(mapcar 'add_list word_list )
(end_list)
(set_tile "klist" "3")
(setq cycker (nth 2 word_list));;;;!
(action_tile "klist" "(sub_klist $value)")
(action_tile "accept" "(done_dialog 1)")
(setq dd (start_dialog))
;;;unload?????
(if (= dd 1)
(command "-mtext" "0,0" "100,50" cycker "")
)
)
;;;;;;;;;;;;;;;;;;;;;
(defun sub_klist (vvs)
(setq cycker (nth (atoi vvs) word_list))
)
;;;;;;;;;;;;;;;;;;;;;;
(dcl_cyck)
(prin1)
)

mhy007 · 发表于 2003-12-29 15:05:49

非常感谢wkai及aeo斑竹的无私帮助！
按照aeo斑竹您的程序，在弹出对话框后，缺省显示的是“客厅”
直接按确定后，出来的却是“办公室”。估计是（set_tile "klist" "3"）
和下一句（setq cycker （nth 2 word_list））有矛盾，把（set_tile "klist" "3"）改成（set_tile "klist" "2"）则正常了。在
Visual LISP 里，按菜单“工具－检查编辑器中的文字”，则会
出现“警告：用作函数的局部变量：dcl－cyck”，把局部变量
“dcl－cyck”删除则全部正常了。
我不明白aeo您为何把“dcl－cyck”写入局部变量，及另外一处
我修改得对不对，恳请指教。

陌生人 · 发表于 2003-12-29 20:52:25

对话框我不懂，以后向你们多请教
吃饱喝足，写程序去咯。。。。。。。。

aeo · 发表于 2003-12-30 23:00:11

最初由 mhy007 发布
[B]非常感谢wkai及aeo斑竹的无私帮助！
按照aeo斑竹您的程序，在弹出对话框后，缺省显示的是“客厅”
直接按确定后，出来的却是“办公室”。估计是（set_tile "klist" "3"）
和下一句（setq cycker （nth 2 word... [/B]

(defun c:aa( / bb)
(defun bb(a)(+ a 2))
(bb 10)
)

(defun bb(a)(+ a 3))
(defun c:cc()
(bb 10)
)

好了运行aa,再运行cc,-->12
把aa里的 /bb去掉,运行aa再运行cc-->13

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

[求助] [求助]：请帮我看看这个简单的程序吧

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块