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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 很基础,但我不会
返回列表 发新帖
查看: 2386|回复: 10

[求助] 很基础,但我不会

[复制链接]
q3_2006

已领礼包: 2476个

财富等级: 金玉满堂
发表于 2013-12-7 10:17:18 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
  2. (defun c:t1 ();编号增位
  3.   (setq n (getint "\输入保留位数:")
  4.     ss (ssget '((0 . "TEXT") (1 . "~*[~`--9]*")))
  5. i -1
  6. )
  7. (while (setq s1 (ssname ss (setq i (1+ i))))
  8. (setq s2 (entget s1))
  9.        (setq s3 (cdr (assoc 1 s2)))
  10.        (setq s4 (vl-string->list s3))
  11. (while (< (length s4) n)
  12.   (setq s4 (cons 48 s4))
  13.   )
  14. (setq s4 (vl-list->string s4))
  15.           (setq s5 (assoc '1 s2))
  16.           (setq s6 (cons 1 s4))
  17.           (setq s2 (subst s6 s5 s2))
  18.   (entmod s2)
  19. )
  20. )
  21. (defun c:t2 ();编号减位
  22.   (setq n (getint "\输入保留位数:")
  23.     ss (ssget '((0 . "TEXT") (1 . "~*[~`--9]*")))
  24. i -1
  25. )
  26. (while (setq s1 (ssname ss (setq i (1+ i))))
  27. (setq s2 (entget s1))
  28.        (setq s3 (cdr (assoc 1 s2)))
  29.        (setq s4 (vl-string->list s3))
  30. (while (> (length s4) n)
  31.   (setq s4 (cdr s4))
  32.   )
  33. (setq s4 (vl-list->string s4))
  34.           (setq s5 (assoc '1 s2))
  35.           (setq s6 (cons 1 s4))
  36.           (setq s2 (subst s6 s5 s2))
  37.   (entmod s2)
  38. )
  39. )
两段代码合并成一段,很基础,但我不会,求教高手,谢谢了!
000.gif
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

q3_2006

已领礼包: 2476个

财富等级: 金玉满堂
 楼主| 发表于 2013-12-7 10:57:19 | 显示全部楼层
补充一句...是除了关键字之外的合并方法...
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

st788796

已领礼包: 1268个

财富等级: 财源广进
发表于 2013-12-7 11:31:27 来自手机 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
前面仅是0？看看XD:: String: ZeroPad

点评

q3_2006
代码是我写的呀,但不知道怎么合并成一个程序...  详情 回复 发表于 2013-12-7 14:41
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

q3_2006

已领礼包: 2476个

财富等级: 金玉满堂
 楼主| 发表于 2013-12-7 14:41:30 | 显示全部楼层
本帖最后由 q3_2006 于 2013-12-7 14:44 编辑
st788796 发表于 2013-12-7 11:31
前面仅是0？看看XD:: String: ZeroPad


代码是我写的呀,但不知道怎么合并成一个程序...{:soso_e101:}如果不用关键字,如何合并成一段.谢谢指点!

点评

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

使用道具 举报

st788796

已领礼包: 1268个

财富等级: 财源广进
发表于 2013-12-7 14:51:57 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
q3_2006 发表于 2013-12-7 14:41
代码是我写的呀,但不知道怎么合并成一个程序...如果不用关键字,如何合并成一段.谢谢指点!

这样不行?
  1. (defun c:t1 ()                                ;编号增位
  2.   (setq        n  (getint "\输入保留位数:")
  3.         ss (ssget '((0 . "TEXT") (1 . "~*[~`--9]*")))
  4.         i  -1
  5.   )
  6.   (while (setq s1 (ssname ss (setq i (1+ i))))
  7.     (setq s2 (entget s1))
  8.     (setq s3 (cdr (assoc 1 s2)))
  9.     (setq s4 (vl-string->list s3))
  10.     (or        (and (> (length s4) n))
  11.         (while (> (length s4) n)
  12.           (setq s4 (cdr s4))
  13.         )
  14.         (and (< (length s4) n)
  15.              (while (< (length s4) n)
  16.                (setq s4 (cons 48 s4))
  17.              )
  18.         )
  19.     )
  20.     (setq s4 (vl-list->string s4))
  21.     (setq s5 (assoc '1 s2))
  22.     (setq s6 (cons 1 s4))
  23.     (setq s2 (subst s6 s5 s2))
  24.     (entmod s2)
  25.   )
  26. )

点评

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

使用道具 举报

q3_2006

已领礼包: 2476个

财富等级: 金玉满堂
 楼主| 发表于 2013-12-7 14:58:23 | 显示全部楼层
st788796 发表于 2013-12-7 14:51
这样不行?

不行呀大师!

点评

st788796
第一个 and 的括号写错位置了  详情 回复 发表于 2013-12-7 15:40
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

st788796

已领礼包: 1268个

财富等级: 财源广进
发表于 2013-12-7 15:40:34 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
q3_2006 发表于 2013-12-7 14:58
不行呀大师!

第一个 and 的括号写错位置了
  1. (defun c:t1 (/ n ss i s1 s2 s3 s4)        ;编号增位
  2.   (setq        n  (getint "\输入保留位数:")
  3.         ss (ssget '((0 . "TEXT") (1 . "~*[~`--9]*")))
  4.         i  -1
  5.   )
  6.   (while (setq s1 (ssname ss (setq i (1+ i))))
  7.     (setq s2 (entget s1)
  8.           s3 (cdr (assoc 1 s2))
  9.           s4 (vl-string->list s3)
  10.     )
  11.     (or        (and (> (length s4) n)
  12.              (while (> (length s4) n)
  13.                (setq s4 (cdr s4))
  14.              )
  15.         )
  16.         (and (< (length s4) n)
  17.              (while (< (length s4) n)
  18.                (setq s4 (cons 48 s4))
  19.              )
  20.         )
  21.     )
  22.     (setq s4 (vl-list->string s4)
  23.           s5 (assoc '1 s2)
  24.           s6 (cons 1 s4)
  25.           s2 (subst s6 s5 s2)
  26.     )
  27.     (entmod s2)
  28.   )
  29.   (princ)
  30. )

点评

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

使用道具 举报

q3_2006

已领礼包: 2476个

财富等级: 金玉满堂
 楼主| 发表于 2013-12-7 17:23:21 | 显示全部楼层
st788796 发表于 2013-12-7 15:40
第一个 and 的括号写错位置了

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

使用道具 举报

混沌初开
发表于 2013-12-7 18:58:53 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
请问楼主你的动画怎么制作的?

点评

Lispboy
论坛置顶的帖子 http://bbs.xdcad.net/thread-667674-1-1.html  详情 回复 发表于 2013-12-7 19:09
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

Lispboy

已领礼包: 51个

财富等级: 招财进宝
发表于 2013-12-7 19:09:52 | 显示全部楼层
混沌初开 发表于 2013-12-7 18:58
请问楼主你的动画怎么制作的?

论坛置顶的帖子  http://bbs.xdcad.net/thread-667674-1-1.html

点评

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

使用道具 举报

混沌初开
发表于 2013-12-7 21:55:37 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
Lispboy 发表于 2013-12-7 19:09
论坛置顶的帖子  http://bbs.xdcad.net/thread-667674-1-1.html

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

使用道具 举报

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

本版积分规则

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

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

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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