请问这段源码如何修改，让框选的字体样式全部为01znsz，同时设为当前文字样式

yangchao2005090

(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)
)

start4444

(setq textnlst (subst '(7 . "romane,hztxt") (assoc 7 textnlst)  textnlst)) 这条改为: (setq textnlst (subst '(7 . "01znsz") (assoc 7 textnlst)  textnlst)) 就行了