zoukankan      html  css  js  c++  java
  • 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
    文章千古事,得失寸心知。


  • 相关阅读:
    数据库用户管理
    数据库(视图,事件,触发器,函数,存储,变量)
    我的博客即将同步至腾讯云+社区,邀请大家一同入驻:https://cloud.tencent.com/developer/support-plan?invite_code=3cp8ng15g94wc
    Python3安装与使用urllib2包之小坑
    移动端的vw px rem之间换算
    H5移动端开发
    实现拖拽复制和可排序的react.js组件
    vue2实现搜索结果中的搜索关键字高亮
    来,了解一下Java内存模型(JMM)
    video标签学习使用
  • 原文地址:https://www.cnblogs.com/bimgoo/p/2503159.html
Copyright © 2011-2022 走看看