如何编程创建一个新的文字样式（使用truetype字体)

jf867687 · 发表于 2019-5-10 17:55:41

回复，向版主学习。

线路板 · 发表于 2019-5-16 23:24:14

回复，向版主学习程序

lixuedong · 发表于 2019-5-17 10:52:16

参与/回复主题

yfanziyfanzi · 发表于 2019-5-20 08:14:36

谢谢，下载学习

jshailinqq · 发表于 2019-5-20 08:49:58

跟楼主学习一下

qyming2000 · 发表于 2019-5-20 10:04:23

回复看看----------------------

lee50310 · 发表于 2019-5-26 00:27:04

看一看,学一学

yanshengjiang · 发表于 2019-5-29 09:08:11

;;Style: myNewStyle
;;Font Name: Swiss 721 Bold Condensed Outline BT
;;Fontfile: swisscbo.ttf
(if (not (tblsearch "STYLE" "myNewStyle"))
    (entmake '((0 . "STYLE")
                     (100 . "AcDbSymbolTableRecord")
                     (100 . "AcDbTextStyleTableRecord")
                     (2 . "myNewStyle") ;style name
                     (3 . "swisscbo.ttf") ;font file
                     (70 . 0)
                     (40 . 0.0)
                     (41 . 1.0)
                     (50 . 0.0)
                     (71 . 0)
                    )
    )
    (princ "\n Style already defined")
)

Yruz · 发表于 2019-6-10 08:11:32

感谢分享啊

漫漫遥 · 发表于 2019-6-10 10:05:30

回复学习学习

shengjian9212 · 发表于 2019-7-7 18:33:34

向版主学习

wssczxf · 发表于 2019-7-7 23:14:20

向版主学习程序

mocheng · 发表于 2019-7-9 00:18:42

回复学习学习
来自: 微社区

heyongw · 发表于 2019-7-9 00:52:21

回复，向版主学习程序

caddog · 发表于 2019-8-28 21:52:13

学习学习

账号		自动登录	找回密码
密码			立即注册

[每日一码] 如何编程创建一个新的文字样式（使用truetype字体)