• VB编程修改AutoCAD长度型尺寸标注


    用于长度型尺寸标注编辑的属性十分丰富,TextOverride属性可用于修改尺寸标注的文本,该属性适用于除了导线型标注之外的所有尺寸标注对象,尺寸标注的默认数值默认显示为AutoCAD自动计算的实际测量值。

    要修改尺寸标注的文本显示,可设置TextOverride属性,用自定义字符串取代实际测量值。下面的程序用AddDimAligned方法返回尺寸标注的实际测量值,设置TextOverride属性,用自定义数值取代尺寸标注的实际测量值。

    Private Sub Command1_Click()
        Dim leaderobj As AcadLeader
        Dim points(0 To 8) As Double
        Dim leadertype As Integer
        Dim annotationobject As AcadObject
        Dim mtextobj As AcadMText
        Dim corner(0 To 2) As Double
        Dim width As Double
        Dim text As String
        corner(0) = 0#: corner(1) = 15#: corner(2) = 0#
        width = 30
        text = "R1.5(min)"
        Set mtextobj = acadapp.ActiveDocument.ModelSpace.AddMText(corner, width, text)
        Set annotationobject = mtextobj
        points(0) = 0: points(1) = 0: points(2) = 0
        points(3) = 4: points(4) = 4: points(5) = 0
        points(6) = 4: points(7) = 5: points(8) = 0
        leadertype = acLineWidthArrow
        Set leaderobj = acadapp.ActiveDocument.ModelSpace.AddLeader(points, annotaionobject, leadertype)
        ZoomExtents
    End Sub

    DimensionLineColor属性用来设置标注尺寸线的颜色,适用于所有尺寸标注对象,不同的颜色可用颜色索引值或内置颜色来设置。VerticalTextPosition属性设置标注文字在垂直标注线方向的位置,适用于所有尺寸标注对象,下面的代码创建一个指定角度的尺寸标注,并设置标尺文字位于标注线中心位置。

    Private Sub Command1_Click()
        Dim dimobj As AcadDimRotated
        Dim point1(0 To 2) As Double
        Dim point2(0 To 2) As Double
        Dim location(0 To 2) As Double
        Dim rotangle As Double
        point1(0) = 5#: point1(1) = 0#: point1(2) = 0#
        point2(0) = 5#: point2(1) = 25#: point2(2) = 0#
        location(0) = 30#: location(1) = 0#: location(2) = 0#
        rotangle = 90
        rotangle = rotangle * 3.14 / 180#
        Set dimobj = acadapp.ActiveDocument.ModelSpace.AddDimRotated(point1, point2, location, rotangle)
        dimobj.VerticalTextPosition = acOutside
        dimobj.Update
        ZoomExtents
    End Sub

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


  • 相关阅读:
    js正则还原和转义特殊字符
    element表格鼠标悬浮上带有点击事件的变红-:row-class-name
    elemen-table表格数据转换-formatter属性
    SVN的安装及汉化的
    element中关于input框
    VUE之兄弟组件 $emit和$on、$bus的用法
    关于element表单校验(二)
    关于element表单校验(一)
    element表格里数据处理
    各类手册收藏整理
  • 原文地址:https://www.cnblogs.com/bimgoo/p/2503159.html
Copyright © 2020-2023  润新知