zoukankan      html  css  js  c++  java
  • VB编程设置AutoCAD文字样式

    文字在图纸中显示信息,AutoCAD提供了多种输入文本的方法,输入文本既可以采用当前默认的文字样式,也可以自己设置文本样式,TextStyle为文本样式对象,文本样式用来控制文字的字体、字宽、字高、排列方式和倾斜角度,系统默认样式为STANDARD样式。

    可以用Add方法创建自己的文本样式对象,下面的语句创建一个名为Styobj的文本样式对象。

    Dim styobj1 As AcadTextStyle
    set styobj1=acadapp.ActiveDocument.TextStyles.Add("自定义文字样式")

    可以预先创建多个文本样式对象,然后再书写文本前选择其中一个文本样式对象为当前文本样式对象,用文档对象的ActiveTextStyle属性设置为当前文本样式。

    AcadApp.ActiveDocument.ActiveTextStyle=Styobj1

    采用文字样式对象的SetFont方法或fontFile属性设置文本字体,文本样式对象的SetFont方法根据字体名设置字体,用文本样式对象的GetFont方法获得当前字体设置的默认值,作为SetFont方法设置字体的输入值,用文本样式对象的FontFile属性设置字体,只需将文字文件名赋值给FontFile属性即可,下面的代码将当前文字样式字体设置为宋体并显示一行汉字。

    Private Sub Command1_Click()
        acadapp.ActiveDocument.ActiveTextStyle.fontFile = "C:\windows\fonts\vani.ttf"
        Dim textobj As AcadText
        Dim textstring As String
        Dim insertionpoint(0 To 2) As Double
        Dim height As Double
        textstring = "AutoCAD二次开发"
        height = 0.3
        insertionpoint(0) = 5: insertionpoint(1) = 2: insertionpoint(2) = 0
        Set textobj = acadapp.ActiveDocument.ModelSpace.AddText(textstring, insertionpoint, height)
    End Sub

    作者:codee
    文章千古事,得失寸心知。


  • 相关阅读:
    Entity Framework版本历史概览
    读书笔记—CLR via C#章节3
    读书笔记—CLR via C#章节1-2
    C#编程实践–产假方案优化版
    老调重弹--面向对象设计原则--包设计原则
    Redis(七)分布式锁
    Redis(九)高可用专栏之Sentinel模式
    Redis(九)高可用专栏之《简介篇》
    Redis(七)持久化(Persistence)
    Redis(六)管道(Pipelining)
  • 原文地址:https://www.cnblogs.com/bimgoo/p/2503150.html
Copyright © 2011-2022 走看看