[讨论]看看这个修改属性块的程序

lzy9788

meflying大哥，CAD里面？怎么没有看到了？

龙龙仔

;;如果能在提示裏顯示屬性提示值就更好了。
(defun C:SB (/ SLIST SNAME ETBLL SN1 SN2 N SN1LIST)
(princ "\n修改屬性值---VER 1.0。")
(setq SNAME (ssname (ssget ":s" '((0 . "INSERT") (66 . 1))) 0))
(if SNAME
(progn
(command ".undo" "E")
(command ".undo" "BE")
(setq SN SNAME
SNAME (entnext SNAME)
)
(setq
SN1 (cdr
(assoc -2
(tblsearch "block" (cdr (assoc 2 (entget SN))))
)
)
)
(while SN1
(if (= "ATTDEF" (cdr (assoc 0 (entget SN1))))
(setq SN2 (append SN2 (list SN1)))
)
(setq SN1 (entnext SN1))
)
(setq N 0)
(while (/= "SEQEND" (cdr (assoc 0 (setq SLIST (entget SNAME)))))
(setq SN1LIST (entget (nth N SN2)))
(setq VAL (getstring (strcat "\n輸入新的屬性值<<"
(cdr (assoc 3 SN1LIST))
"--->"
(cdr (assoc 1 SLIST))
">>:"
)
)
)
(setq VAL (if (= VAL "")
(cdr (assoc 1 SLIST))
VAL
)
)
(setq SLIST (subst (cons 1 VAL) (assoc 1 SLIST) SLIST))
(entmod SLIST)
(setq N (1+ N))
(setq SNAME (entnext SNAME))
)
(entupd SN)
(command ".undo" "E")
)
)
(princ)
)

lzy9788

龙版主，你这个好像不能修在图中定义的块，只能改块文件


       

龙龙仔

我想你要從頭再了解autocad,不然會很多程序會無法獨立完成,你圖中的不是塊,它只是attdef

lzy9788

好的，谢龙版主