wowan1314 发表于 2012-5-18 12:56:37

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

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

xyh 发表于 2012-5-18 13:14:06

(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)
)        ;;;批量定义所有字体样式
页: [1]
查看完整版本: 新建文字样式，如何加速？