(strcat "cate" category "_list")返回值是什么?

孤鹰

(strcat "cate" category "_list")返回值是什么?求指点

duotu007

看你变量category 是什么

caoyin

要看变量category是什么

孤鹰

duotu007 发表于 2012-5-21 11:17
看你变量category 是什么

如果是1会如何？

Andyhon

(strcat "cate" "1" "_list")
"cate1_list"

(strcat "cate" (itoa 1) "_list")
"cate1_list"

孤鹰

Andyhon 发表于 2012-5-21 11:40
(strcat "cate" "1" "_list")
"cate1_list"

意思是category也是一字符串吗?刚我发了一贴子，拜托你帮忙看下，这句就是其中一句
程序如下
(defun dia()
   (setq return_value (load_dialog "dia.dcl"))
   (setq what_next 2)
   (while (>= what_next 2)
     (setq cnt 1)
     (if (null (new_dialog "dia" return_value))
       (exit)
      );end if
     (initial)
     (action_tile "key_xzljbz" "(setq ljbz $value) (change1)")
     (action_tile "key_xzljdm" "(setq ljdm $value)")
     ;(action_tile "help" "showhelp")
     (setq what_next (start_dialog));
     ;(if(= what_next 4)(hide))
)
   (unload_dialog return_value)
   (princ)
)
(defun change1()
    (setq m_list (eval(read (strcat "xzlj" xzljbz "_list"))))
    (start_list "key_xzljdm")
    (mapcar 'add_list m_list)
    (end_list)
)
(defun initial()
(setq name '("零件1类" "零件2类"))
(setq xzlj0_list '("零件1_1" "零件1_2"))
(setq xzlj1_list '("零件2_1" "零件2_2"))
(setq xzljbz "-1")
;初始化
(start_list "key_xzljbz")
(mapcar 'add_list name )
;初始化型号
   (start_list "key_xzljdm")
   (mapcar 'add_list xzlj_list)
   (end_list)
   (setq xzljbz "0")
)


对话框：
dia:dialog{
label="绘制零件";
:boxed_row{
:column{
:popup_list{
      label="零件标准";
      key="key_xzljbz";
             }
:popup_list{
      label="零件代码";
      key="key_xzljdm";
             }
         }
         }
    ok_cancel;
   }

lz689706

共同学习。

cabinsummer

先学会strcat怎么用再问