[求助]文本编号

xyp1964 · 发表于 2010-5-10 18:00:00

试试：

cnmb · 发表于 2010-5-10 18:54:00

呵呵，一天总想着不劳而获的人总是那么“有理”，比如像LEOO

hdlyt11 · 发表于 2010-5-10 19:31:00

院长的程序问题是当一行单行文字没有数字序号时，也自动给加上了序号，为了更好的说明程序作用，

现把程序思路再写一下，这段程序基本构架已经好了，只是排序函数还待研究

(defun C:test (/ ss s1)
(setq ss (ssget '((0 . "TEXT"))));选择多个单行文字
(setq k -1)
(setq nss (ssadd))
(repeat (sslength ss)
    (setq en (ssname ss (setq k (1+ k))))
    (setq s1 (substr en 1 1));提取每个单行文字的第一个字
    (if (= s1 "~*[~`--9]*");假如第一个是数字，则参与排序
      (ssadd s1 nss) ;把第一个是数字的文字组成一个新选择集
      )
    )
(setq S2 (SORT-SE nss 1 nil nil nil))
(setq i -1)
(repeat (sslength s2)
    (princ (cdr (assoc 1 (entget (ssname S2 (setq I (1+ I)))))))
    )
)

hdlyt11 · 发表于 2010-5-10 19:33:00

程序说明图片，呵呵，程序我没有哦

hdlyt11 · 发表于 2010-5-10 19:36:00

图片

xyp1964 · 发表于 2010-5-10 19:48:00

确实需要“先学好语文”！

xyp1964 · 发表于 2010-5-10 21:11:00

排序编号：

cnchina · 发表于 2010-5-11 00:23:00

提示: 作者被禁止或删除内容自动屏蔽

LEOO · 发表于 2010-5-11 09:49:00

提示: 作者被禁止或删除内容自动屏蔽

cnchina · 发表于 2010-5-11 10:28:00

提示: 作者被禁止或删除内容自动屏蔽

账号		自动登录	找回密码
密码			注册

[求助]文本编号

本帖子中包含更多资源

回复：（cnmb）呵呵，一天总想着不劳而获的人总是那么...

回复：（hdlyt11）回复：（cnmb）呵呵，一天总想着不劳...

本帖子中包含更多资源

cnchina cnchina 当前离线积分 0 明经币个注册时间 2010-5-11 在线时间小时威望金钱个贡献激情	发表于 2010-5-11 00:23:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

LEOO LEOO 当前离线积分 -13 明经币个注册时间 2010-1-21 在线时间小时威望金钱个贡献激情	发表于 2010-5-11 09:49:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

cnchina cnchina 当前离线积分 0 明经币个注册时间 2010-5-11 在线时间小时威望金钱个贡献激情	发表于 2010-5-11 10:28:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡