- ;;; =========================================================================
- ;;; 创建文字样式 2:样式名 40:高度 41:宽度因子 3:主要字体文件名 4:大字体文件名
- ;;; =========================================================================
- (defun Emk_Style (Name h w rd hz)
- (entmake
- (list
- '(0 . "STYLE") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbTextStyleTableRecord")
- (cons 2 Name) '(70 . 0) (cons 40 h) (cons 41 w) (cons 3 rd) (cons 4 hz)
- )
- )
- )
- ;;;(Emk_Style "等线体" (* use 0.003) 1 "黑体" "SIMHEI.TTF")
|