请大神可以帮忙编一个关于属性块自动编轴号的程序吗？

137407536

输入一个命令如zh，然后选择多个属性块对象，
提示输入轴号起始值，如A~Z或者1~。
数字值为从左往右，英文值为从下往上，
或者数字英文值都按照从左往右从下往上的顺序
依次对选择对象进行递增编号。
先输入命令编辑完数字值后，再次输入命令去编辑英文值。分开进行
如图，附上测试文件

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:bh.rar 
下载次数:13  文件大小:35.18 KB 
下载权限: 不限 以上  [免费赚D豆]

我在论坛上找到的代码，也只支持数字值的从左往右，不支持英文值的排序
‘点击插入代码提交，没反应。’      我都统一打包成附件了，或者看2楼代码

137407536

(Defun c:BH (/ ss sscnt slist sname blkattlist blkattval newval)
(setvar "cmdecho" 0)
(command ".undo" "BE")
(princ "\n批量修改属性块值自动编号")
(setq ss (ssget '((0 . "INSERT"))))
(setq sscnt (sslength ss) nno 0)
(setq pd1 (cdr (assoc 10 (entget (ssname ss 0)))))
(setq pd2 (cdr (assoc 10 (entget (ssname ss 1)))))
(setq ang_pd (angle pd1 pd2))

(cond ((= ang_pd (* pi 0.5)) (sort_nam_Y_mi_ma))
((= ang_pd (* pi 1.5)) (sort_nam_Y_mi_ma))
((or (/= ang_pd (* pi 0.5)) (/= ang_pd (* pi 1.5))) (sort_nam_X_mi_ma))
)
(setq attrib_val (getstring "\n输入起始值:"))
(setq ascii_val (ascii attrib_val))
(if (= attrib_val "") (progn (command ".undo" "E") (exit)))
(while (< nno sscnt)
(setq sname (nth nno list_ent))
(setq slist (entget sname))
(if (assoc 66 slist)
(progn
(setq blkattlist (entget (entnext sname)))
(setq newval
(cond
((and (>= ascii_val 97) (<= ascii_val 122)) (itoa (chr (+ asscii_val nno))))
((and (>= ascii_val 65) (<= ascii_val 90)) (itoa (chr (+ asscii_val nno))))
((< (atoi attrib_val) 3000) (itoa (+ (atoi attrib_val) nno)))
)
)

(setq blkattlist (subst (cons 1 newval) (assoc 1 blkattlist) blkattlist))
(entmod blkattlist)
(entupd sname)
);progn
);if
(setq nno (1+ nno))
);while
(command ".undo" "E")
(setvar "cmdecho" 1)
(princ)
)

;-----------------------------------------------
;;;;;;;;;X坐标从小到大将所选图元排序;;;;;;;;
;-----------------------------------------------
(defun sort_nam_X_mi_ma ()
(setq n (sslength ss))
(setq list_ent nil)
(setq m 0)
(while (< m n)
(setq list_ent (append list_ent (list (ssname ss m))))
(setq m (1+ m))
)
(setq l 0)
(setq m 1)
(while (< l n)
(setq b (nth l list_ent))
(while (< m n)
(setq c (nth m list_ent))
(if (< (nth 1 (assoc 10 (entget c))) (nth 1 (assoc 10 (entget b))))
(progn
(setq list_ent (subst 'aa (nth l list_ent) list_ent))
(setq list_ent (subst 'bb (nth m list_ent) list_ent))
(setq list_ent (subst c 'aa list_ent))
(setq list_ent (subst b 'bb list_ent))
(setq b c)   

)
)
(setq m (1+ m))
)
(setq l (1+ l))
(setq m (1+ l))
)
);end defun

;-----------------------------------------------
;;;;;;;;;Y坐标从小到大将所选图元排序;;;;;;;;
;-----------------------------------------------
(defun sort_nam_Y_mi_ma ()
(setq n (sslength ss))
(setq list_ent nil)
(setq m 0)
(while (< m n)
(setq list_ent (append list_ent (list (ssname ss m))))
(setq m (1+ m))
)
(setq l 0)
(setq m 1)
(while (< l n)
(setq b (entget (nth l list_ent)))
(while (< m n)
(setq c (entget (nth m list_ent)))
(if (< (nth 2 (assoc '10 c)) (nth 2 (assoc '10 b)))
(progn
(setq list_ent (subst 'aa (nth l list_ent) list_ent))
(setq list_ent (subst 'bb (nth m list_ent) list_ent))
(setq list_ent (subst c 'aa list_ent))
(setq list_ent (subst b 'bb list_ent))
(setq b c)
)
)
(setq m (1+ m))
)
(setq l (1+ l))
(setq m (1+ l))
)
);end defun

Lisphk

有现成的

根据属性指定“标签”万能自动编号

51 个回复 - 498 次查看

有朋友发帖申请，见：http://bbs.xdcad.net/thread-718395-1-1.html 1、如果拾取具体属性值，会提取前缀信息到对话框 2、如果拾取的是带属性的图块，那么会弹出窗口，要求选定标签 3、可指定前缀、后缀、起始、 ...

2018-10-16 15:02 - XDSoft - 每日插件

newer

137407536 发表于 2018-12-24 11:45
(Defun c:BH (/ ss sscnt slist sname blkattlist blkattval newval)
(setvar "cmdecho" 0)
(command " ...

                               
登录/注册后可看大图

137407536

Lisphk 发表于 2018-12-24 11:49
有现成的

根据属性指定“标签”万能自动编号51 个回复 - 498 次查看有朋友发帖申请，见：http://bbs.xdc ...

好的，谢谢了

137407536

newer 发表于 2018-12-24 12:48

好的，谢谢了

hch8682005

好的，谢谢了

jinwei66

这个万能编号09~10、19~20不能连续