ODCL 是否能用空格重复按钮的命令呢

QiaoCheng

spp_wall 发表于 2013-12-6 09:36
好想我的程序里的命令 用你说的办法不行
能看下我的代码 在2楼  随便修改一个命令 我参考下么
因为 ...

可以呀
改成这样的

2. (defun actlstv(num lstvnum / str str1)
   
3.   (setq Str
   
4.     (dcl_ListView_GetItemText
   
5.       (eval (read (strcat strlistview (itoa num))))
   
6.       (dcl_ListView_GetCurSel (eval(read(strcat strlistview (itoa num)))))
   
7.       0
   
8.     )
   
9.   )
   
10.   (setq str1 (assoc str lstvnum))
    
11.   ;(eval (read (cdr str1)))
    
12.   (dcl_SendString (cdr str1))
    
13. )

(defun actlstv(num lstvnum / str str1)<br />   (setq Str<br />     (dcl_ListView_GetItemText<br />       (eval (read (strcat strlistview (itoa num))))<br />       (dcl_ListView_GetCurSel (eval(read(strcat strlistview (itoa num)))))<br />       0<br />     )<br />   )<br />   (setq str1 (assoc str lstvnum))<br />   ;(eval (read (cdr str1)))<br />   (dcl_SendString (cdr str1))<br /> )

spp_wall

QiaoCheng 发表于 2013-12-6 11:12
可以呀
改成这样的

看不懂  还是谢谢你的回复{:soso_e113:}

QiaoCheng

actlstv 是你二楼提供里面的函数呀

spp_wall

QiaoCheng 发表于 2013-12-6 11:49
actlstv 是你二楼提供里面的函数呀

我试试看！！！好像只改了最后一句话？

按你的

(eval (read (cdr str1)))改成
  (dcl_SendString (cdr str1))后

命令都无法执行了