设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 654|回复: 35

[每日一码] 选取属性和起始数字,更新属性实体添加后缀并+1

[复制链接]

已领礼包: 40个

财富等级: 招财进宝

发表于 2016-9-30 14:14:36 | 显示全部楼层 |阅读模式

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

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
选取属性和起始数字,连续更新属性实体添加后缀并+1

  1. (defun c:qs (/ ans st nw oerr e1 e2 natt)
  2.   (setq oerr *error*)
  3.   (defun *error* (msg)
  4.     (princ "\n ERROR!")
  5.     (setq *error* oerr)
  6.     (command)
  7.     (princ)
  8.   )
  9.   (if ns
  10.     (princ (strcat "\n 上次的文本 = " ns (itoa stt)))
  11.   )
  12.   (if ns
  13.     (setq ans (getstring "\n 保留以前的文本? [ENTER = yes]: "))
  14.   )
  15.   (if (= ans "")
  16.     ()
  17.     (setq ns nil
  18.     st nil
  19.     )
  20.   )
  21.   (if ns
  22.     ()
  23.     (setq ns (getstring t "\n Type in new text: "))
  24.   )
  25.   (if stt
  26.     ()
  27.     (setq stt 1)
  28.   )
  29.   (princ "\n 起始数字 < ")
  30.   (princ stt)
  31.   (princ " >?: ")
  32.   (setq st (getint))
  33.   (if (= st nil)
  34.     (setq st stt)
  35.     (setq stt st)
  36.   )
  37.   (setq e1 (nentsel "\n 选择属性实体: "))
  38.   (while e1
  39.     (cond
  40.       ((< st 10)
  41.   (setq nw (strcat ns "" (itoa st)))
  42.       )
  43.       ((< 9 st 100)
  44.   (setq nw (strcat ns "0" (itoa st)))
  45.       )
  46.       ((> st 99)
  47.   (setq nw (strcat ns (itoa st)))
  48.       )
  49.       (t
  50.   nil
  51.       )
  52.     )
  53.     (setq e2 (entget (setq natt (car e1))))
  54.     (entmod (subst
  55.         (cons 1 nw)
  56.         (assoc 1 e2)
  57.         e2
  58.       )
  59.     )
  60.     (entupd natt)
  61.     (if (eq (cdr (assoc 0 e2)) "ATTRIB")
  62.       (setq st (+ 1 st))
  63.       (princ "\n You missed! ")
  64.     )
  65.     (if st
  66.       (setq nw (strcat ns (itoa st))
  67.       stt st
  68.       )
  69.     )
  70.     (setq e1 (nentsel "\n 选择下一个属性实体或回车退出: "))
  71.   )
  72.   (princ)
  73. )



游客,如果您要查看本帖隐藏内容请回复

评分

参与人数 1D豆 +5 收起 理由
xshrimp + 5 出题引导交流奖!

查看全部评分

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

已领礼包: 5413个

财富等级: 富甲天下

发表于 2016-9-30 15:24:59 | 显示全部楼层
向版主学习程序,感谢版主!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 4953个

财富等级: 富可敌国

发表于 2016-9-30 19:09:31 | 显示全部楼层
谢谢提供,学习了!!!!!!!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 2679个

财富等级: 家财万贯

发表于 2016-9-30 21:48:57 | 显示全部楼层
谢谢提供,学习了!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 28个

财富等级: 恭喜发财

发表于 2016-9-30 22:57:01 | 显示全部楼层
感谢分享。。。。。。。。。。。。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 51个

财富等级: 招财进宝

发表于 2016-10-1 01:09:15 | 显示全部楼层
向N版学习!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

点击这里给我发消息

已领礼包: 1304个

财富等级: 财源广进

发表于 2016-10-1 08:45:20 | 显示全部楼层
向版主学习程序,感谢版主!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 713个

财富等级: 财运亨通

发表于 2016-10-1 14:25:59 | 显示全部楼层
感谢分享!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 6432个

财富等级: 富甲天下

发表于 2016-10-5 14:14:11 | 显示全部楼层
向 N版 学习程序,感谢您!!!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2016-11-18 14:46:02 | 显示全部楼层
正好需要呀!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2016-11-30 11:28:19 | 显示全部楼层
感谢版主!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

发表于 2016-12-4 14:04:32 | 显示全部楼层
楼主辛苦了,看看好东西。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 85个

财富等级: 招财进宝

发表于 2016-12-4 15:05:31 | 显示全部楼层
向版主学习。。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2017-9-15 15:11:18 | 显示全部楼层
学习。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 39个

财富等级: 招财进宝

发表于 2017-9-17 09:41:22 | 显示全部楼层
向版主学习程序,感谢版主!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2019-7-19 11:31 , Processed in 0.187308 second(s), 60 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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