zoukankan      html  css  js  c++  java
  • AutoVBA利用Hacth对象填充图元对象

    通过Hacth对象可以对图元进行填充,可以使用CBD自带的图案,或者使用外部图库中的图案或者自定义临时填充。创建Hatch对象并将其添加到ModelSpace集合,该函数需三个参数。以下代码绘制一个Circle对象并创建填充。

    Sub drawfilledcircle()
        Dim hatchobject As AcadHatch
        Dim outercircle(0) As AcadCircle
        Dim center As Variant
        Dim radius As Double
        With ThisDrawing.Utility
            center = .GetPoint(, "Click the position for the center.")
            radius = .GetDistance(center, "Enter the radius.")
        End With
        Set outercircle(0) = ThisDrawing.ModelSpace.AddCircle(center, radius)
        outercircle(0).color = acYellow
        outercircle(0).Update
        Set hatchobject = ThisDrawing.ModelSpace.AddHatch(acHatchPatternTypePreDefined, "SOLID", True)
        hatchobject.AppendInnerLoop (outercircle)
        hatchobject.Evaluate
        hatchobject.Update
    End Sub

    代码完。

    第一行声明绘制填充圆的函数,定义AcadCircle和AcadHatch对象,绘制圆形对其进行填充。

    AddHatch对象需要三个参数,第一个是PatternType常数参数,具有三个值:acHatchPatternTypePredefined,acHatchPatternTypeUserDefined,acHatchPatternTypeCustomfined,第二个参数指定填充图元名称,第三个参数指定填充是否关联到边界图元,如果为false,填充不与边界图元相关,若为true则填充随图元同时变化。

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


  • 相关阅读:
    Java的JXL操作xls形式
    UILabel iOS添加文本控件
    并行随机梯度下降
    ArcGIS For Flex给定两个
    如何判断一个网址是由哪种语言写的
    ArrayList线程不安全?
    java总结,错误集
    centos安装Chromium
    读书笔记:《从一到无穷大》
    读书笔记:《数学之美》
  • 原文地址:https://www.cnblogs.com/bimgoo/p/2503110.html
Copyright © 2011-2022 走看看