求助参数类型错误。

benq3

程序如下，运行时提示这个错误： 参数类型错误: stringp nil
(princ "加载程序成功，输入ddd命令可应用此工具\n")
(defun c:ddd (/ exi dcl_id)
  (setq dcl_id (load_dialog "dia"))
  (new_dialog "dia" dcl_id)  ;启动dia对话框
  (set_tile "kb" "100")   ;设定宽kb初始值100
  (action_tile "accept" "(done_dialog 1)")
  (setq exi (start_dialog))
  (setq b (atof (get_tile "kb")))
  (unload_dialog dcl_id)
  (cond
    ((= exi 1) (princ "确定") (princ b))
    ((= exi 0) (exit))) ;_ 结束cond
  (princ)
)

dia:dialog{
label="设置";
spacer_1;
  :boxed_row{label="数据";
  :edit_box{label="板宽";Key="kb";edit_width=6;}
}
                spacer_1;
:row{
fixed_width=true;
alignment=centered;
ok_cancel;
:spacer{width=2;}
:button{label="关于…";Key="info";width=10;}
}
}

这个运行时，出现对话框，但是kb初始值一直不显示，我一直怀疑“100”不是字符串？但明显双引号内的不就是字符串吗？为什么不显示？所以按了确定键也不会显示b值。大侠帮着看看吧

炫翔

get_tile 应该在 start_dialog之前获取

csharp

accept.要先执行get_tile赋值再done_dialog，done_dialog后dcl就结束了，不会有任何get_tile

benq3

(princ "加载程序成功，输入ddd命令可应用此工具\n")
(defun c:ddd (/ exi dcl_id)
   (setq dcl_id (load_dialog "dia"))
   (new_dialog "dia" dcl_id)  ;启动dia对话框
  (set_tile "kb" "100")   ;设定宽kb初始值100
   (setq b (atof (get_tile "kb"))) ;这个是不是改到这里？
(action_tile "accept" "(done_dialog 1)")
   (setq exi (start_dialog))
    (unload_dialog dcl_id)
   (cond
     ((= exi 1) (princ "确定") (princ b))
     ((= exi 0) (exit))) ;_ 结束cond
   (princ)
)
不过改过之后还是提示参数类型错误

benq3

csharp 发表于 2015-6-1 17:07
accept.要先执行get_tile赋值再done_dialog，done_dialog后dcl就结束了，不会有任何get_tile

(unload_dialog dcl_id)我以为是这个完全结束dcl了

csharp

(action_tile "accept" "(setq b (atof (get_tile \"kb\"))) (done_dialog 1)")

benq3

csharp 发表于 2015-6-1 20:44
(action_tile "accept" "(setq b (atof (get_tile \"kb\"))) (done_dialog 1)")

我试了还是出现参数类型错误，同时初始值也看不到。

csharp

benq3 发表于 2015-6-2 08:24
我试了还是出现参数类型错误，同时初始值也看不到。

aLisp 函数大小写是没有区别的，DCL不一样， Key 和 key 不同，检查你的 DCL文件

Key="kb";   => key="kb";

benq3

csharp 发表于 2015-6-2 19:24
aLisp 函数大小写是没有区别的，DCL不一样， Key 和 key 不同，检查你的 DCL文件

Key="kb";   => key= ...

谢谢，改过之后可以赋初始值了。
另外(action_tile "accept" " (setq b (atof (get_tile \"kb\"))) (done_dialog 1)")提示输入的字符串有缺陷
或者(action_tile "accept" " (setq b (atof (get_tile "kb"))) (done_dialog 1)")提示参数太多，我把(setq b (atof (get_tile "kb"))) 另做个子函数改成 (action_tile "accept" "(getnum)(done_dialog 1)") 就可以了，具体原因不清楚。

iLisp

感觉这个回调是ARX的表达式数值函数

csharp

benq3 发表于 2015-6-2 21:24
谢谢，改过之后可以赋初始值了。
另外(action_tile "accept" " (setq b (atof (get_tile \"kb\"))) (don ...

get_tile 仅取值，**处理放外面

1. (princ "加载程序成功，输入ddd命令可应用此工具\n")
   
2. (defun c:ddd (/ exi dcl_id)
   
3.   (setq dcl_id (load_dialog "dia"))
   
4.   (new_dialog "dia" dcl_id)                ;启动dia对话框
   
5.   (set_tile "kb" "100")                        ;设定宽kb初始值100
   
6.   (action_tile
   
7.     "accept"
   
8.     "(setq b (get_tile \"kb\"))(done_dialog 1)"
   
9.   )
   
10.   (setq exi (start_dialog))
    
11.   (unload_dialog dcl_id)
    
12.   (cond
    
13.     ((= exi 1) (princ "确定") (princ (atof b)))
    
14.     ((= exi 0) (exit))
    
15.   ) ;_ 结束cond
    
16.   (princ)
    
17. )

(princ "加载程序成功，输入ddd命令可应用此工具\n")<br /> (defun c:ddd (/ exi dcl_id)<br />   (setq dcl_id (load_dialog "dia"))<br />   (new_dialog "dia" dcl_id)                ;启动dia对话框<br />   (set_tile "kb" "100")                        ;设定宽kb初始值100<br />   (action_tile<br />     "accept"<br />     "(setq b (get_tile \"kb\"))(done_dialog 1)"<br />   )<br />   (setq exi (start_dialog))<br />   (unload_dialog dcl_id)<br />   (cond<br />     ((= exi 1) (princ "确定") (princ (atof b)))<br />     ((= exi 0) (exit))<br />   ) ;_ 结束cond<br />   (princ)<br /> )

benq3

iLisp 发表于 2015-6-2 22:41
感觉这个回调是ARX的表达式数值函数

学习时间不长只是做了一个算是试验吧，以后根据再扩展，结果出现这些问题，只好上论坛请教一下。