请问这段源码如何修改，让框选的字体样式全部为01znsz，同时设为当前文字样式
(defun c:julia()(command "style" "01znsz" "romane,hztxt" "0" ".7" "0" "N" "N" "N")
(setq textss (ssget '((0 . "*text"))))
(setq n 0)
(repeat (sslength textss)
(setq textn (ssname textss n))
(setq textnlst (entget textn))
(setq textnlst (subst '(7 . "romane,hztxt") (assoc 7 textnlst)textnlst))
(entmod textnlst)
(setq n (1+ n))
)
(princ)
)
(setq textnlst (subst '(7 . "romane,hztxt") (assoc 7 textnlst)textnlst)) 这条改为: (setq textnlst (subst '(7 . "01znsz") (assoc 7 textnlst)textnlst)) 就行了
页:
[1]