在对话框中出现“输入的字符串太长”错误？

chen4

各位：在对话框交替中，LSP程序出现“输入的字符串太长”错误，去掉两句后可以运行，此错误如何改进


(action_tile "accept"   "(setq GX_id 1)
(setq  TZ_id (get_tile\"TZlst\"))
(setq  FSW_id (get_tile\"FSWlst\"))
(setq  YHXZ_id (get_tile\"YHXZlst\"))
(setq  DLMC_id (get_tile\"DLMClst\"))
(setq  LTZ_id (get_tile\"LTZlst\"))
(setq  LFSW_id (get_tile\"LFSWlst\"))
(setq  LYHXZ_id (get_tile\"LYHXZlst\"))
(setq  LDLMC_id (get_tile\"LDLMClst\"))
(setq  CZ_id (get_tile\"CZlst\"))
(setq  YL_id (get_tile\"YLlst\"))
(setq  LX_id (get_tile\"LXlst\"))
(setq  TG_id (get_tile\"TGlst\"))
(setq  TGCZ_id (get_tile\"TGCZlst\"))
(setq  BWFS_id (get_tile\"BWFSlst\"))
(setq  MSFS_id (get_tile\"MSFSlst\"))
(setq  QSDW_id (get_tile\"QSDWlst\"))
(setq  WTH (get_tile\"WTH\"))
(setq  GXDH (get_tile\"GXDH\"))
(setq  JDS (get_tile\"JDS\"))
(setq  SBMB (get_tile\"SBMB\"))
(setq  SBBH (get_tile\"SBBH\"))
(setq  SBXH (get_tile\"SBXH\"))
(setq  SBGG (get_tile\"SBGG\"))
(setq  SBCZ (get_tile\"SBCZ\"))
(setq  GYLC (get_tile\"GYLC\"))
(setq  SCCG (get_tile\"SCCG\"))
(setq  CCBH (get_tile\"CCBH\"))
(setq  CCYQ (get_tile\"CCYQ\"))
(setq  TYYQ (get_tile\"TYYQ\"))
(setq  SBDJ (get_tile\"SBDJ\"))
(setq  SBZT (get_tile\"SBZT\"))
(setq  JXZY (get_tile\"JXZY\"))
(setq  YHZY (get_tile\"YHZY\"))
(setq  SBYZ (get_tile\"SBYZ\"))
(setq  SBJZ (get_tile\"SBJZ\"))
(setq  YHDW (get_tile\"YHDW\"))
(setq  SCWC (get_tile\"SCWC\"))
(setq  DMTM (get_tile\"DMTM\"))
(setq  LWTH (get_tile\"LWTH\"))
(setq  LGXDH (get_tile\"LGXDH\"))
(setq  LJDS (get_tile\"LJDS\"))
(setq  LSBMB (get_tile\"LSBMB\"))
(setq  LSBBH (get_tile\"LSBBH\"))
(setq  LSBXH (get_tile\"LSBXH\"))
(setq  LSBGG (get_tile\"LSBGG\"))
(setq  LSBCZ (get_tile\"LSBCZ\"))
(setq  LGYLC (get_tile\"LGYLC\"))
(setq  LSCCG (get_tile\"LSCCG\"))
(setq  LCCBH (get_tile\"LCCBH\"))
(setq  LCCYQ (get_tile\"LCCYQ\"))
(setq  LTYYQ (get_tile\"LTYYQ\"))
(setq  LSBDJ (get_tile\"LSBDJ\"))
(setq  LSBZT (get_tile\"LSBZT\"))
(setq  LJXZY (get_tile\"LJXZY\"))
(setq  LYHZY (get_tile\"LYHZY\"))
(setq  LSBYZ (get_tile\"LSBYZ\"))
(setq  LSBJZ (get_tile\"LSBJZ\"))
(setq  LYHDW (get_tile\"LYHDW\"))
(setq  LSCWC (get_tile\"LSCWC\"))
(setq  LDMTM (get_tile\"LDMTM\"))
(setq  GJ (get_tile\"GJ\"))
(setq  BPZ (get_tile\"BPZ\"))
(setq  BDMS (get_tile\"BDMS\"))
(setq  LPZ (get_tile\"LPZ\"))
(setq  LDMS (get_tile\"LDMS\"))
(setq  BH (get_tile\"BH\"))
(setq  TGXH (get_tile\"TGXH\"))
(setq  FFFS (get_tile\"FFFS\"))
(setq  FFDJ (get_tile\"FFDJ\"))
(setq  MSYQ (get_tile\"MSYQ\"))
(setq  SJDW (get_tile\"SJDW\"))
(setq  SGDW (get_tile\"SGDW\"))
(setq  GCFZ (get_tile\"GCFZ\"))
(setq  GGJL (get_tile\"GGJL\"))
(setq  JCDW (get_tile\"JCDW\"))
(setq  TFDW (get_tile\"TFDW\"))
(setq  GCGY (get_tile\"GCGY\"))
(setq  DAH (get_tile\"DAH\"))
(setq  BZ (get_tile\"BZ\"))
(done_dialog)")

Gu_xl

自己仔细看清楚了，以下代码setq 括号是如何配对的！问题就出在这 ，一般对话框调用这么长代码，最好定义一个函数来调用！

2. 
   
3. (setq TZ_id (get_tile"TZlst)
   
4. (setq FSW_id (get_tile"FSWlst)
   
5. (setq YHXZ_id (get_tile"YHXZlst)
   
6. (setq DLMC_id (get_tile"DLMClst)
   
7. (setq LTZ_id (get_tile"LTZlst)
   
8. (setq LFSW_id (get_tile"LFSWlst)
   
9. (setq LYHXZ_id (get_tile"LYHXZlst)
   
10. (setq LDLMC_id (get_tile"LDLMClst)
    
11. (setq CZ_id (get_tile"CZlst)
    
12. (setq YL_id (get_tile"YLlst)
    
13. (setq LX_id (get_tile"LXlst)
    
14. (setq TG_id (get_tile"TGlst)
    
15. (setq TGCZ_id (get_tile"TGCZlst)
    
16. (done_dialog)")
    
17. 
    

<br /> (setq TZ_id (get_tile"TZlst)<br /> (setq FSW_id (get_tile"FSWlst)<br /> (setq YHXZ_id (get_tile"YHXZlst)<br /> (setq DLMC_id (get_tile"DLMClst)<br /> (setq LTZ_id (get_tile"LTZlst)<br /> (setq LFSW_id (get_tile"LFSWlst)<br /> (setq LYHXZ_id (get_tile"LYHXZlst)<br /> (setq LDLMC_id (get_tile"LDLMClst)<br /> (setq CZ_id (get_tile"CZlst)<br /> (setq YL_id (get_tile"YLlst)<br /> (setq LX_id (get_tile"LXlst)<br /> (setq TG_id (get_tile"TGlst)<br /> (setq TGCZ_id (get_tile"TGCZlst)<br /> (done_dialog)")<br /> <br />

chen4

上楼的错误确实存在，已改正。但存在的错误应该与括号配对无关，此在加载程序时出错，即此句太长了。任意去掉几句均可运行。请看附件。

Gu_xl

“对话框调用语句超长，你最好定义一个函数来调用！”