设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 程序报错：参数太多
返回列表 发新帖
查看: 1266|回复: 3

[求助] 程序报错：参数太多

[复制链接]
龙猫牛逼
发表于 2013-12-31 14:44:54 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
(defun c:gujin()
  (command "layer" "n" "小于箍筋" "")
  (command "layer" "c" 1 "小于箍筋" "")
  (setq num1 (getreal "请输小于的数值："))
  (setq num2 (getreal "请输小于的数值："))
  (setq ReinGroup(ssget '((0 . "*TEXT")(8 . "21000"))))
  (setq i 0)
  (setq LenRein(sslength ReinGroup))
  (repeat LenRein
    (setq ent(entget (ssname ReinGroup i)))
     (if(/= ent nil)
        (progn
       (setq str(cdr(assoc 1 ent)))
(setq jsjtype(substr str 1 1))
       )
    (if(and(/= ent nil)(= jsjtype "G"))
(setq strmid str)
        (setq numa(atof(substr strlist 2 3)))
(setq numb(atof(substr strlist 6 3)))
      )
  (if(and(<= numa num1)(<= numb num2))
    (setq Result_layer "小于箍筋")
    )
       )
    )
  
  (setq ent(subst(cons 8 Result_layer)(assoc 8 ent)ent))
  (entdel(ssname ReinGroup i))
        (entmake ent)
  (setq i (1+ i))
  )
)




处理类似“G1.0-0.5”这样的数据
望各位大神看下，到底是什么问题
程序

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

龙猫牛逼
 楼主| 发表于 2013-12-31 14:45:53 | 显示全部楼层
本帖最后由 龙猫牛逼 于 2013-12-31 15:02 编辑

  3. <P>(defun c:gujin()
  4.   (command "layer" "n" "小于箍筋" "")
  5.   (command "layer" "c" 1 "小于箍筋" "")
  6.   (setq num1 (getreal "请输小于的数值："))
  7.   (setq num2 (getreal "请输小于的数值："))
  8.   (setq ReinGroup(ssget '((0 . "*TEXT")(8 . "21000"))))
  9.   (setq i 0)
  10.   (setq LenRein(sslength ReinGroup))
  11.   (repeat LenRein
  12.     (setq ent(entget (ssname ReinGroup i)))
  13.      (if(/= ent nil)
  14.         (progn
  15.        (setq str(cdr(assoc 1 ent)))
  16. (setq jsjtype(substr str 1 1))
  17.       
  18.     (if(= jsjtype "G")
  19. (setq strmid str)
  20.         (setq numa(atof(substr strmid 2 3)))
  21. (setq numb(atof(substr strmid 6 3)))
  22.       )
  23.   (if(and(<= numa num1)(<= numb num2))
  24.     (setq Result_layer "小于箍筋")
  25.     )
  26.        )
  27.        )
  28.   
  29.   (setq ent(subst(cons 8 Result_layer)(assoc 8 ent)ent))
  30.   (entdel(ssname ReinGroup i))
  31.         (entmake ent)
  32.   (setq i (1+ i))
  33.   )
  34. )
  35. </P>
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

龙猫牛逼
 楼主| 发表于 2013-12-31 15:03:13 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
发现一些低级错误。。可是还是有问题。。。求大神指导
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zxq0220

已领礼包: 10398个

财富等级: 富甲天下
发表于 2013-12-31 20:07:58 | 显示全部楼层
  2. (defun c:gujin()
  3.   (command "layer" "n" "小于箍筋" "c" 1 "小于箍筋" "")
  4.   (setq num1 (getreal "请输小于的数值: "))
  5.   (setq num2 (getreal "请输小于的数值: "))
  6.   (setq ReinGroup (ssget '((0 . "*TEXT")(8 . "21000"))))
  7.   (setq i 0)
  8.   (setq LenRein(sslength ReinGroup))
  9.   (repeat LenRein
  10.    (setq ent(entget (ssname ReinGroup i)))
  11.    (setq str(cdr(assoc 1 ent)))
  12.    (setq jsjtype(substr str 1 1))
  13.    (if(= jsjtype "G") (progn
  14.     (setq strmid str)
  15.     (setq numa(atof(substr strmid 2 3)))
  16.     (setq numb(atof(substr strmid 6 3)))
  17.    ))
  18.    (if(and(<= numa num1)(<= numb num2))
  19.     (setq Result_layer "小于箍筋")
  20.    )
  21.    (entmod (subst(cons 8 Result_layer)(assoc 8 ent)ent))
  22.    (setq i (1+ i))
  23.   )
  24.   (princ)
  25. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-15 05:11 , Processed in 0.329759 second(s), 38 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表