在对话框中出现“输入的字符串太长”错误？
本帖最后由 chen4 于 2010-12-28 17:06 编辑各位：在对话框交替中，LSP程序出现“输入的字符串太长”错误，去掉两句后可以运行，此错误如何改进
(action_tile "accept" "(setq GX_id 1)
(setqTZ_id (get_tile\"TZlst\"))
(setqFSW_id (get_tile\"FSWlst\"))
(setqYHXZ_id (get_tile\"YHXZlst\"))
(setqDLMC_id (get_tile\"DLMClst\"))
(setqLTZ_id (get_tile\"LTZlst\"))
(setqLFSW_id (get_tile\"LFSWlst\"))
(setqLYHXZ_id (get_tile\"LYHXZlst\"))
(setqLDLMC_id (get_tile\"LDLMClst\"))
(setqCZ_id (get_tile\"CZlst\"))
(setqYL_id (get_tile\"YLlst\"))
(setqLX_id (get_tile\"LXlst\"))
(setqTG_id (get_tile\"TGlst\"))
(setqTGCZ_id (get_tile\"TGCZlst\"))
(setqBWFS_id (get_tile\"BWFSlst\"))
(setqMSFS_id (get_tile\"MSFSlst\"))
(setqQSDW_id (get_tile\"QSDWlst\"))
(setqWTH (get_tile\"WTH\"))
(setqGXDH (get_tile\"GXDH\"))
(setqJDS (get_tile\"JDS\"))
(setqSBMB (get_tile\"SBMB\"))
(setqSBBH (get_tile\"SBBH\"))
(setqSBXH (get_tile\"SBXH\"))
(setqSBGG (get_tile\"SBGG\"))
(setqSBCZ (get_tile\"SBCZ\"))
(setqGYLC (get_tile\"GYLC\"))
(setqSCCG (get_tile\"SCCG\"))
(setqCCBH (get_tile\"CCBH\"))
(setqCCYQ (get_tile\"CCYQ\"))
(setqTYYQ (get_tile\"TYYQ\"))
(setqSBDJ (get_tile\"SBDJ\"))
(setqSBZT (get_tile\"SBZT\"))
(setqJXZY (get_tile\"JXZY\"))
(setqYHZY (get_tile\"YHZY\"))
(setqSBYZ (get_tile\"SBYZ\"))
(setqSBJZ (get_tile\"SBJZ\"))
(setqYHDW (get_tile\"YHDW\"))
(setqSCWC (get_tile\"SCWC\"))
(setqDMTM (get_tile\"DMTM\"))
(setqLWTH (get_tile\"LWTH\"))
(setqLGXDH (get_tile\"LGXDH\"))
(setqLJDS (get_tile\"LJDS\"))
(setqLSBMB (get_tile\"LSBMB\"))
(setqLSBBH (get_tile\"LSBBH\"))
(setqLSBXH (get_tile\"LSBXH\"))
(setqLSBGG (get_tile\"LSBGG\"))
(setqLSBCZ (get_tile\"LSBCZ\"))
(setqLGYLC (get_tile\"LGYLC\"))
(setqLSCCG (get_tile\"LSCCG\"))
(setqLCCBH (get_tile\"LCCBH\"))
(setqLCCYQ (get_tile\"LCCYQ\"))
(setqLTYYQ (get_tile\"LTYYQ\"))
(setqLSBDJ (get_tile\"LSBDJ\"))
(setqLSBZT (get_tile\"LSBZT\"))
(setqLJXZY (get_tile\"LJXZY\"))
(setqLYHZY (get_tile\"LYHZY\"))
(setqLSBYZ (get_tile\"LSBYZ\"))
(setqLSBJZ (get_tile\"LSBJZ\"))
(setqLYHDW (get_tile\"LYHDW\"))
(setqLSCWC (get_tile\"LSCWC\"))
(setqLDMTM (get_tile\"LDMTM\"))
(setqGJ (get_tile\"GJ\"))
(setqBPZ (get_tile\"BPZ\"))
(setqBDMS (get_tile\"BDMS\"))
(setqLPZ (get_tile\"LPZ\"))
(setqLDMS (get_tile\"LDMS\"))
(setqBH (get_tile\"BH\"))
(setqTGXH (get_tile\"TGXH\"))
(setqFFFS (get_tile\"FFFS\"))
(setqFFDJ (get_tile\"FFDJ\"))
(setqMSYQ (get_tile\"MSYQ\"))
(setqSJDW (get_tile\"SJDW\"))
(setqSGDW (get_tile\"SGDW\"))
(setqGCFZ (get_tile\"GCFZ\"))
(setqGGJL (get_tile\"GGJL\"))
(setqJCDW (get_tile\"JCDW\"))
(setqTFDW (get_tile\"TFDW\"))
(setqGCGY (get_tile\"GCGY\"))
(setqDAH (get_tile\"DAH\"))
(setqBZ (get_tile\"BZ\"))
(done_dialog)")
本帖最后由 Gu_xl 于 2010-12-28 16:07 编辑
自己仔细看清楚了，以下代码setq 括号是如何配对的！问题就出在这 ，一般对话框调用这么长代码，最好定义一个函数来调用！
(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)
(done_dialog)")
本帖最后由 chen4 于 2010-12-28 17:07 编辑
上楼的错误确实存在，已改正。但存在的错误应该与括号配对无关，此在加载程序时出错，即此句太长了。任意去掉几句均可运行。请看附件。 本帖最后由 Gu_xl 于 2010-12-28 18:02 编辑
“对话框调用语句超长，你最好定义一个函数来调用！”
页:
[1]