孤鹰 发表于 2012-5-21 11:04:02

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

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

duotu007 发表于 2012-5-21 11:17:31

看你变量category 是什么

caoyin 发表于 2012-5-21 11:18:17

要看变量category是什么

孤鹰 发表于 2012-5-21 11:34:48

duotu007 发表于 2012-5-21 11:17 static/image/common/back.gif
看你变量category 是什么

如果是1会如何？

Andyhon 发表于 2012-5-21 11:40:44

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

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

孤鹰 发表于 2012-5-21 11:53:09

Andyhon 发表于 2012-5-21 11:40 static/image/common/back.gif
(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 发表于 2012-5-22 10:20:16

共同学习。

cabinsummer 发表于 2012-5-22 17:14:45

先学会strcat怎么用再问
页: [1]
查看完整版本: (strcat "cate" category "_list")返回值是什么?