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

1993063

回复，向版主学习程序

auva

回复学习学习！

sh_h

回复，向大师学习！！！

q3_2006

如何知道文件对应的字体名称??

microewjs

;;建立标注样式Standard
(defun C:New_dimStyle (/ L)
  (setq        L '(("dimzin" 9)
            ("dimupt" 0)
            ("dimtzin" 0)
            ("dimtxt" 3.5)
            ("dimtxsty" "Standard")
            ("dimtolj" 1)
            ("dimtol" 0)
            ("dimtofl" 0)
            ("dimtmove" 0)
            ("dimtix" 0)
            ("dimtih" 0)
            ("dimtfac" 1.0)
            ("dimtdec" 3)
            ("dimtad" 1)
            ("dimscale" 1.0)
            ("dimlunit" 2)
            ("dimlfac" 1.0)
            ("dimldrblk"
             "DotSmall"
            )
            ("dimjust" 0)
            ("dimgap" 1.2)
            ("dimexo" 1.0)
            ("dimexe" 2.0)
            ("dimdsep" ".")
            ("dimdli" 10.0)
            ("dimdle" 2.0)
            ("dimdec" 3)
            ("dimclrt" 0)
            ("dimclre" 0)
            ("dimclrd" 0)
            ("dimcen" -3.0)
            ("dimblk" "")
            ("dimazin" 2)
            ("dimaunit" 0)
            ("dimatfit" 3)
            ("dimasz" 3.0)
            ("dimassoc" 2)
            ("dimaltu" 2)
            ("dimalttz" 0)
            ("dimalt" 0)
            ("dimadec" 1)
            ("blipmode" 0)
           )
  )
  (foreach x L
    (cond ((getvar (car x)) (setvar (car x) (cadr x))))
  )
  (cond        ((tblsearch "dimstyle" "Standard") (command "dimstyle" "S" "Standard" "Y"))
        (T (command "dimstyle" "S" "Standard"))
  )
  (princ)
)

newer

microewjs 发表于 2017-7-22 23:45

如果有好的代码，还是单独发帖吧，这样容易被人看到。

bingshuier

在这个论坛真的学到不少东西~

dabingrain

这个也要回复才能看？

正常V方式

谢谢分享自己的插件

leon90482888

正需要这个，学习学习

lxw0320

有没有vlisp修改文字样式名称的

snow15338

学习  学习

xxxxxxxxx123

学习学习he呵呵

yjpyjp

0000000000000000

田新星

学习一下，谢谢分享