新建文字样式，如何加速？

wowan1314

(command "style" "ww" "TXT,HZTXT" "0" "0.7" "0" "" "" "")用此代码新建个文字样式，图纸大点就得卡半天.   请问还有其他办法吗？

xyh

(setq styles '(
  ((0 . "STYLE")(100 . "AcDbSymbolTableRecord")(100 . "AcDbTextStyleTableRecord")(2 . "WW")(70 . 0)(40 . 0.0)(41 . 0.7)(50 . 0.0)(71 . 0)(42 . 2.5)(3 . "TXT")(4 . "HZTXT"))
;  ((0 . "STYLE")(100 . "AcDbSymbolTableRecord")(100 . "AcDbTextStyleTableRecord")(2 . "WW1")(70 . 0)(40 . 0.0)(41 . 0.7)(50 . 0.0)(71 . 0)(42 . 2.5)(3 . "TXT")(4 . "HZTXT"))
))
(foreach sty styles
  (entmakex sty)
)        ;;;批量定义所有字体样式