[求助]：大虾进来看看这个属性块自动编号的程序

txzjtxzj

(Defun c:ZDBH (/ 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

这个程序可以把选中的属性块按顺序自动编号，但是能否改成可以自由选择从左到右或者从右到左及从上到下和从下到上这样的排序？

ydf7332462

好程序，为何只能对第一att？
能否对显示属性，或对指定tag的att,请高手出招!

啵浪鼓

楼主的程序选择后排序是随机产生的数序,如果是只选右边的block乎略左边的block就会出错,稍改一下:
(Defun c:ZDBH (/ ss sscnt slist sname blkattlist blkattval newval)
(setvar "cmdecho" 0)
(command ".undo" "BE")
(princ "\n批量修改属性块值自动编号")
(setq ss (ssget '((0 . "INSERT")(2 . "A3"))))
(if ss
(progn
(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输入起始值 <默认起始为'1'>"))
(setq ascii_val (ascii attrib_val))
(if (= attrib_val "") (setq attrib_val "1"))
;(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")
)
)
(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 (nth l list_ent))
(while (< m n)
(setq c (nth m list_ent))
(if (< (nth 2 (assoc 10 (entget c))) (nth 2 (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

winsbol

这个。。。那个dx给详细说说，我怎么2004里面就是找不到目标对象那？

迷失的传说

啵浪鼓 发表于 2005-6-4 00:30

请问是否可以实现这个功能：
批量选择属性块，筛选所有块中某个相同标记内容，把该标记对应的值统一改为输入的内容？

Qwer1243

水平方向,从左到右不会乱,谢了

Qwer1243

水平方向,从左到右不会乱,谢了