[求助]：取出的字符不能插入我设的图块？

战斗英雄

以下是我的程序，请大家指点：
   (defun c:mixi()
   (setvar "cmdecho" 0)
   (setq blkname "mixitt");建立mixitt属性块
   (dcl_mixi)
   (prinl)
)


(defun dcl_mixi()
   (setq dcl_id (load_dialog "mixi"));我的dcl对话框名字是mixi
   (new_dialog "mixi" dcl_id)
   (action_tile "ins_ok" "(ok_mixi)(done_dialog l)")
(setq dd(start_dialog))

  (if (= dd 1)
       (progn
            (setq inspt (getpoint "\n选取图块插入点:"))   ;以下动态插入属性块
            (command "insert" blkname '(0 0) 1 1 0   ww wa wb wc wd we wf wg wh wi wj wk );怀疑这句语句有错
            (command "move" (entlast) "" '(0 0) pause)
        )
   )
  
)


(defun ok_mixi()
    (setq ww (atoi(get_tile "ww")));这里是取得各dcl中的KEY对应的TEXT内容。仍有错误
    (setq wa (atoi(get_tile "wa")));比如框内输入了a,会出现未知命令a
    (setq wb (atoi(get_tile "wb")))
    (setq wc (atoi(get_tile "wc")))
    (setq wd (get_tile "wd"))
    (setq we (get_tile "we"))

    (setq wf (get_tile "wf"))
    (setq wg (get_tile "wg"))
    (setq wh (get_tile "wh"))
    (setq wi (get_tile "wi"))
    (setq wj (get_tile "wj"))
    (setq wk (get_tile "wk"))
  )

这时我的图块插入时，只会插入一个空的框

netbee

(setq ww (atoi(get_tile "ww")));
这句中的函数atoi
语法

    (atoi string)

功能及参数

    此函数可用来将字符串转换成整型数。
你输入字符当然不能转换为整型啦！


范例

(atof "97") 返回 97
(atof "3") 返回 3
(atof "3.9") 返回 3

--------------------------
这里给你一个检测类型的函数

2. 
   
3. (defun Dcl_Verify_Data (a / str strn lp)
   
4.   (setq str (get_tile a)
   
5.         lp 0
   
6.         strn 0)
   
7.     (if (=(substr str 1 1) ".")
   
8.     (setq str (strcat "0" str))
   
9.     )
   
10.   (while (setq lp (vl-string-position (ascii ".") str lp))
    
11.     (setq strn (1+ strn)
    
12.           lp (1+ lp))
    
13.     )
    
14.   (if (and (or(= strn 1)
    
15.               (= strn 0)
    
16.               )
    
17.            (numberp (read str))
    
18.       )
    
19.     (SET (read a) (read str))
    
20.     (progn
    
21.       (mode_tile a 2)
    
22.       (vlr-beep-reaction)
    
23.       (set_tile "error" "数据错误!--本编辑框只能是数字!!!")
    
24.       (not t)
    
25.     )
    
26.   )
    
27. )
    
28. 
    

<br /> (defun Dcl_Verify_Data (a / str strn lp)<br />   (setq str (get_tile a)<br />         lp 0<br />         strn 0)<br />     (if (=(substr str 1 1) ".")<br />     (setq str (strcat "0" str))<br />     )<br />   (while (setq lp (vl-string-position (ascii ".") str lp))<br />     (setq strn (1+ strn)<br />           lp (1+ lp))<br />     )<br />   (if (and (or(= strn 1)<br />               (= strn 0)<br />               )<br />            (numberp (read str))<br />       )<br />     (SET (read a) (read str))<br />     (progn<br />       (mode_tile a 2)<br />       (vlr-beep-reaction)<br />       (set_tile "error" "数据错误!--本编辑框只能是数字!!!")<br />       (not t)<br />     )<br />   )<br /> )<br /> <br />

在你必须输入数值型的文本框中调用：
(Dcl_Verify_Data "test")
[/COLOR]
---------------------
你的这句
(action_tile "ins_ok" "(ok_mixi)(done_dialog l)")
中的done_dialog后是字符L而不是数字1
------------------------
你所插入的块并没有你所定义的这么多属性。
---------------------
你最好将你的块及对话框等所有资源文件都传上来

陌生人

数值型文本的判定已经有基本函数:
(distof str)

(mapcar distof  '( "3" "3.33" "1.3e-6" "a"))
-> (3.0 3.33 1.3e-006 nil)

netbee

呵呵，真是谢谢，
我一直没想到distof也能这么用！
我真笨！

战斗英雄

太感谢大家了，我再改一下看看