大侠帮忙!

xialiang

(defun ab ( / WAR1 stl_lst stl i)
   (setq stl_lst nil)
  (while (setq stl (tblnext "style" (not stl)))
     (setq stl_lst (append stl_lst (list (cdr (assoc 2 stl)))))
  )
 (setq lislength (length stl_lst)
       i 0
  )
  (while ( < i lislength)
 (command "-STYLE" (NTH i stl_lst ) "仿宋_GB2312" "" "0.9"  "" "" "") 
 (setq i (+ i 1))
    )
      )

该程序是改字体样式的!

但是当用XREF外部参照的时候,改程序出错!!!

帮忙给改改!!

谢谢了!

xialiang

请帮忙解决!

xialiang

?