土木在线
资料
论坛
课程
AI规范
成套资料包
APP
下载手机客户端
产品
兑换商城
直播
软件
会议
土木君有礼！免费低价薅不停
工程师进阶必备，全套项目资料包来袭！
/
注册
登录
消息
动态
0
正在加载...
查看全部消息
消息设置
正在加载...
查看全部动态
消息设置
土木在线论坛
\
建筑设计
\
CAD下载及教程
\
求助：文本编号
求助：文本编号
谁能帮忙写个小程序，搜索施工图中说明文字中多个单行文字第一个数字，然后将数字降序排列，例如：每条说明的第一个数字分别是5 4 2 1，运行程序后每条说明的第一个数字改为了1 2 3 4
发布于
2010-05-07 14:36:07
我来答
分享
复制链接
新浪微博
微信扫一扫
举报
全部回答
（3 ）
小萝卜的头
不成品。
另： (wcmatch s1 "#");一个纯数字
2010-05-11 10:49:11
来自 PC
评论
举报
关中老财
这个程序我已经有了思路，还希望高手们指点
(defun C:test (/ ss s1)
(setq ss (ssget '((0 . "TEXT"))))；选择多个单行文字
(setq s1 (substr ss 1 1))；提取每个单行文字的第一个字
(if (= s1 "~*[~`--9]*")；加入第一个是数字，则参与排序
(progn ；排序函数
;;按照内容排序(应该将数字从1按降序排列）
(setq S2 (SORT-SE S1 1 nil nil nil))
(setq I 0)
(repeat (sslength S2)
(princ "\n")
(princ (cdr (assoc 1 (entget (ssname S2 I)))))
(setq I (1+ I))
)
)
)
2010-05-10 12:31:10
来自 PC
评论
举报
加载更多
相关推荐
dglyt11
这个家伙什么也没有留下。。。
主题
10
回复
42
粉丝
5
+ 关注
私信
CAD下载及教程
返回版块
52.07 万条内容 · 656 人订阅
猜你喜欢
遇到了一点小问题
内容不能包含下列词语
返回修改
回帖成功
经验值 +
10
全部回答（3 ）
-
小萝卜的头
2010-05-11 10:49:11
来自 PC
评论
举报
-
关中老财
这个程序我已经有了思路，还希望高手们指点
2010-05-10 12:31:10
来自 PC
评论
举报
加载更多不成品。
另： (wcmatch s1 "#");一个纯数字
(defun C:test (/ ss s1)
(setq ss (ssget '((0 . "TEXT"))))；选择多个单行文字
(setq s1 (substr ss 1 1))；提取每个单行文字的第一个字
(if (= s1 "~*[~`--9]*")；加入第一个是数字，则参与排序
(progn ；排序函数
;;按照内容排序(应该将数字从1按降序排列）
(setq S2 (SORT-SE S1 1 nil nil nil))
(setq I 0)
(repeat (sslength S2)
(princ "\n")
(princ (cdr (assoc 1 (entget (ssname S2 I)))))
(setq I (1+ I))
)
)
)