创建宋体

gduthy

(defun c:songti        ()                        ;创建左倾宋体样式
  (setvar "cmdecho" 0)
  (if (= (Tblsearch "style" "左倾宋体") nil)
    (progn
                                        ;  (vl-load-com)
                                        ;  (setq ThisDrawing (vla-get-activedocument (vlax-get-acad-object)))
                                        ;  (Setq TextStyles (vla-get-TextStyles ThisDrawing))
                                        ; (Setq TextStyle (vla-add TextStyles "宋体"))
                                        ;  (vla-SetFont TextStyle "宋体" :vlax-false :vlax-false 1 0)

      (command "-style" "左倾宋体" "simsunb.ttf" 0 0.8 0 "n" "n")
      (princ "\n左倾宋体样式创建完成！") ;创建左倾宋体样式

    )
    (progn (command "-style" "左倾宋体" "simsunb.ttf" 0 0.8 0 "n" "n")
           (princ "\n左倾宋体样式已存在！")
    )
  )
  (setvar "textstyle" "左倾宋体")
  (setvar "dimtxsty" "左倾宋体")        ;置前

  (princ)
)