乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 84|回复： 4

[编程交流] ; 错误：参数太多

[复制链接]
bustr

10

主题

41

帖子

33

银币

初来乍到

Rank: 1

铜币
48
发表于 2022-7-5 15:21:33 | 显示全部楼层 |阅读模式
这是在我将lisp的名称发布到命令行后发生的。我看不出其中的错误。它以前一直有效。lisp应该搜索文本和属性值并替换它们。有人能发现错误吗？
 
（定义c:BUBBLER01（）
 
（setq ss_blk（ssget“x”'（（0。“插入”）（66.1）））
 
（如果ss_blk
（程序
 
（setq lst\U blk（sel2lst ss\U blk））
 
（foreach en_blk lst_blk
 
（setq lst\U atts（att2lst en\U blk））
（setq str_行“”）
（foreach en\U atts lst\U atts
（setq str_线（getval 1 en_atts））
（如果（非（wcmatch str_line“*/*/*/*”））
（程序
 
（setq str_线（strchg str_线*01**55555 01*））
（setq str_线（strchg str_线*02**55555 02*））
（setq str_线（strchg str_线*03**55555 03*））
（setq str_线（strchg str_线*04**55555 04*）
（setq str_线（strchg str_线*05**55555 05*）
（setq str_线（strchg str_线*06**55555 06*）
（setq str_线（strchg str_线*07**55555 07*）
（setq str_线（strchg str_线*08**55555 08*））
（setq str_线（strchg str_线*09**55555 09*）
（setq str_线（strchg str_线*10**55555 10*））
（setq str_线（strchg str_线*11**55555 11*））
（setq str_线（strchg str_线*12**55555 12*））
（setq str_线（strchg str_线*13**55555 13*））
（setq str_线（strchg str_线*14**55555 14*））
（setq str_线（strchg str_线*15**55555 15*））
（setq str_线（strchg str_线*16**55555 16*））
（setq str_线（strchg str_线*17**55555 17*））
（setq str_线（strchg str_线*18**55555 18*））
（setq str_线（strchg str_线*19**55555 19*））
（setq str_线（strchg str_线*20**55555 20*））
（setq str_线（strchg str_线*21**55555 21*））
（setq str_线（strchg str_线*22**55555 22*））
（setq str_线（strchg str_线*23**55555 23*））
（setq str_线（strchg str_线*24**55555 24*））
（setq str_线（strchg str_线*25**55555 25*）
（setq str_线（strchg str_线*26**55555 26*））
（setq str_线（strchg str_线*27**55555 27*）
（setq str_线（strchg str_线*28**55555 28*））
（setq str_线（strchg str_线*29**55555 29*））
（setq str_线（strchg str_线*30**55555 30*））
（setq str_线（strchg str_线*31**55555 31*）
（setq str_线（strchg str_线*32**55555 32*））
（setq str_线（strchg str_线*33**55555 33*））
（setq str_线（strchg str_线*34**55555 34*））
（setq str_线（strchg str_线*35**55555 35*）
（setq str_线（strchg str_线*36**55555 36*））
（setq str_线（strchg str_线*37**55555 37*）
（setq str_线（strchg str_线*38**55555 38*））
（setq str_线（strchg str_线*39**55555 39*））
（setq str_线（strchg str_线*40**55555 40*））
（setq str_线（strchg str_线*41**55555 41*）
（setq str_线（strchg str_线*42**55555 42*））
（setq str_线（strchg str_线*43**55555 43*））
（setq str_线（strchg str_线*44**55555 44*）
（setq str_线（strchg str_线*45**55555 45*）
（setq str_线（strchg str_线*46**55555 46*））
（setq str_线（strchg str_线*47**55555 47*）
（setq str_线（strchg str_线*48**55555 48*））
（setq str_线（strchg str_线*49**55555 49*））
（setq str_线（strchg str_线*50**555555 0*））
（setq str_线（strchg str_线*51**555555 1*）
（setq str_线（strchg str_线*52**555555 2*）
（setq str_线（strchg str_线*53**555555 3*）
（setq str_线（strchg str_线*54**555555 4*））
（setq str_线（strchg str_线*55**5555555*）
（setq str_线（strchg str_线*56**555555 6*））
（setq str_线（strchg str_线*57**555555 7*）
（setq str_线（strchg str_线*58**555555 8*））
（setq str_线（strchg str_线*59**555555 9*））
（setq str_线（strchg str_线*60**55555 60*））
（setq str_线（strchg str_线*61**55555 61*））
（setq str_线（strchg str_线*62**55555 62*））
（setq str_线（strchg str_线*63**55555 63*））
（setq str_线（strchg str_线*64**55555 64*））
（setq str_线（strchg str_线*65**55555 65*）
（setq str_线（strchg str_线*66**55555 66*））
（setq str_线（strchg str_线*67**55555 67*））
（setq str_线（strchg str_线*68**55555 68*））
（setq str_线（strchg str_线*69**55555 69*））
（setq str_线（strchg str_线*70**55555 70*））
（setq str_线（strchg str_线*71**55555 71*））
（setq str_线（strchg str_线*72**55555 72*）
（setq str_线（strchg str_线*73**55555 73*）
（setq str_线（strchg str_线*74**55555 74*））
（setq str_线（strchg str_线*75**55555 75*）
（setq str_线（strchg str_线*76**55555 76*））
（setq str_线（strchg str_线*77**55555 77*））
 
（setval 1 str\U line en\U atts）
))))))
 
（setq ss\u txtlines（ssget“x”'（（0。“TEXT”）））
 
（如果ss_txtlines
（程序
 
（setq lst\U txtlines（sel2lst ss\U txtlines））
（setq str_行“”）
 
（foreach en\u txtlines lst\u txtlines
 
（setq str_line（getval 1 en_txtlines））
（如果（非（wcmatch str_line“*/*/*/*”））
（程序
 
（setq str_线（strchg str_线*01**55555 01*））
（setq str_线（strchg str_线*02**55555 02*））
（setq str_线（strchg str_线*03**55555 03*））
（setq str_线（strchg str_线*04**55555 04*）
（setq str_线（strchg str_线*05**55555 05*）
（setq str_线（strchg str_线*06**55555 06*）
（setq str_线（strchg str_线*07**55555 07*）
（setq str_线（strchg str_线*08**55555 08*））
（setq str_线（strchg str_线*09**55555 09*）
（setq str_线（strchg str_线*10**55555 10*））
（setq str_线（strchg str_线*11**55555 11*））
（setq str_线（strchg str_线*12**55555 12*））
（setq str_线（strchg str_线*13**55555 13*））
（setq str_线（strchg str_线*14**55555 14*））
（setq str_线（strchg str_线*15**55555 15*））
（setq str_线（strchg str_线*16**55555 16*））
（setq str_线（strchg str_线*17**55555 17*））
（setq str_线（strchg str_线*18**55555 18*））
（setq str_线（strchg str_线*19**55555 19*））
（setq str_线（strchg str_线*20**55555 20*））
（setq str_线（strchg str_线*21**55555 21*））
（setq str_线（strchg str_线*22**55555 22*））
（setq str_线（strchg str_线*23**55555 23*））
（setq str_线（strchg str_线*24**55555 24*））
（setq str_线（strchg str_线*25**55555 25*）
（setq str_线（strchg str_线*26**55555 26*））
（setq str_线（strchg str_线*27**55555 27*）
（setq str_线（strchg str_线*28**55555 28*））
（setq str_线（strchg str_线*29**55555 29*））
（setq str_线（strchg str_线*30**55555 30*））
（setq str_线（strchg str_线*31**55555 31*）
（setq str_线（strchg str_线*32**55555 32*））
（setq str_线（strchg str_线*33**55555 33*））
（setq str_线（strchg str_线*34**55555 34*））
（setq str_线（strchg str_线*35**55555 35*）
（setq str_线（strchg str_线*36**55555 36*））
（setq str_线（strchg str_线*37**55555 37*）
（setq str_线（strchg str_线*38**55555 38*））
（setq str_线（strchg str_线*39**55555 39*））
（setq str_线（strchg str_线*40**55555 40*））
（setq str_线（strchg str_线*41**55555 41*））
（setq str_线（strchg str_线*42**55555 42*））
（setq str_线（strchg str_线*43**55555 43*））
（setq str_线（strchg str_线*44**55555 44*）
（setq str_线（strchg str_线*45**55555 45*）
（setq str_线（strchg str_线*46**55555 46*））
（setq str_线（strchg str_线*47**55555 47*）
（setq str_线（strchg str_线*48**55555 48*））
（setq str_线（strchg str_线*49**55555 49*））
（setq str_线（strchg str_线*50**555555 0*））
（setq str_线（strchg str_线*51**555555 1*）
（setq str_线（strchg str_线*52**555555 2*）
（setq str_线（strchg str_线*53**555555 3*）
（setq str_线（strchg str_线*54**555555 4*））
（setq str_线（strchg str_线*55**5555555*）
（setq str_线（strchg str_线*56**555555 6*））
（setq str_线（strchg str_线*57**555555 7*）
（setq str_线（strchg str_线*58**555555 8*））
（setq str_线（strchg str_线*59**555555 9*））
（setq str_线（strchg str_线*60**55555 60*））
（setq str_线（strchg str_线*61**55555 61*））
（setq str_线（strchg str_线*62**55555 62*））
（setq str_线（strchg str_线*63**55555 63*））
（setq str_线（strchg str_线*64**55555 64*））
（setq str_线（strchg str_线*65**55555 65*）
（setq str_线（strchg str_线*66**55555 66*））
（setq str_线（strchg str_线*67**55555 67*））
（setq str_线（strchg str_线*68**55555 68*））
（setq str_线（strchg str_线*69**55555 69*））
（setq str_线（strchg str_线*70**55555 70*））
（setq str_线（strchg str_线*71**55555 71*））
（setq str_线（strchg str_线*72**55555 72*）
（setq str_线（strchg str_线*73**55555 73*）
（setq str_线（strchg str_线*74**55555 74*））
（setq str_线（strchg str_线*75**55555 75*）
（setq str_线（strchg str_线*76**55555 76*））
（setq str_线（strchg str_线*77**55555 77*））
 
（setval 1 str\U line en\U txtlines）
))))))
回复

使用道具 举报

Jef!

28

主题

317

帖子

292

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
140
发表于 2022-7-5 15:43:16 | 显示全部楼层
嗨，巴斯特。请使用代码标签。
 
在我这方面，有些函数我没有定义（sel2lst、att2lst、getval、strchg、setval），因此如果没有它，很难调试代码。
strchg还使用受保护的符号，即*。如果是字符串，则应为“*”。如果要传递乘法运算符，则必须使用“*”。也适用于其他参数（如“*01*”和“55555 01*”）
 
还要注意的是，即使在progn语句之间是由大量列表定义的不同符号
 
  1.             (setq str_line (strchg str_line *01* * 5555501*))
  2.            (setq str_line (strchg str_line *02* * 5555502*))
  3.            (setq str_line (strchg str_line *03* * 5555503*))
  4.            (setq str_line (strchg str_line *04* * 5555504*))
  5.            (setq str_line (strchg str_line *05* * 5555505*))
  6.            (setq str_line (strchg str_line *06* * 5555506*))
  7.            (setq str_line (strchg str_line *07* * 5555507*))
  8.            (setq str_line (strchg str_line *08* * 5555508*))
  9.            (setq str_line (strchg str_line *09* * 5555509*))
  10.            (setq str_line (strchg str_line *10* * 5555510*))
  11.            (setq str_line (strchg str_line *11* * 5555511*))
  12.            (setq str_line (strchg str_line *12* * 5555512*))
  13.            (setq str_line (strchg str_line *13* * 5555513*))

 
当然会有更好的选择（重复，while，foreach）。但是看起来，它不仅不是最优的，而且如果我正确地解释stringchange的“strchg”，你似乎只是一次又一次地改变变量strline的值，也许没有做任何事情？
回复

使用道具 举报

ronjonp

58

主题

3353

帖子

33

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1761
发表于 2022-7-5 16:05:40 | 显示全部楼层
缺少运行代码所需的子功能。。哎呀，太晚了
 
在帖子中设置代码格式的示例。
回复

使用道具 举报

bustr

10

主题

41

帖子

33

银币

初来乍到

Rank: 1

铜币
48
发表于 2022-7-5 16:07:59 | 显示全部楼层
仍然出现相同的错误
回复

使用道具 举报

bustr

10

主题

41

帖子

33

银币

初来乍到

Rank: 1

铜币
48
发表于 2022-7-5 16:34:55 | 显示全部楼层
去掉了asteriks并添加了代码和/代码。现在可以工作了。谢谢
回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-14 03:16 , Processed in 0.694201 second(s), 73 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表