zoukankan      html  css  js  c++  java
  • AutoVBA会制图元填充指定图案

    贴一段代码先。

    Sub drawcircularpavers()
        Dim brickcircles() As AcadCircle
        Dim counter As Integer, radius As Double
        Dim center As Integer
        ReDim brickcircles(txtnumberofcircles)
        With ThisDrawing.Utility
            radius = .GetDistance(center, "Enter the radius.")
        End With
        For counter = 0 To txtnumberofcircles - 1
            Set brickcircles(counter) = ThisDrawing.ModelSpace.AddCircle(center, radius - counter * radius / txtnumberofcircles)
            brickcircles(counter).color = acRed
            brickcircles(counter).Update
            drawmortar center, counter, radius
        Next
    End Sub
    Sub drawmortar(center As Variant, counter As Integer, radius As Double)
         Dim startpoint(0 To 2) As Double, endpoint(0 To 2) As Double
         Dim theta As Double, stepsize As Double
         Static adjust As Double
         If frmcircleofbircks.optbrickparallel = True Then
            stepsize = 15 * pi / 180
        Else
            stepsize = 30 * pi / 180
            If adjust = 0# Then
                adjust = 15 * pi / 180
            Else
                adjust = 0#
            End If
        End If
        For theta = 0 To 360 * pi / 180 Step stepzise
            startpoint(0) = (radius - counter * radius / txtnumberofcricles) * Cos(theta + adjust) + center(0)
            startpoint(1) = (radius - counter * radius / txtnumberofcircles) * Sin(theta + adjust) + center(1)
            endpoint(0) = (radius - (counter + 1) * radius / txtnumberofcircles) * Cos(theta_adjust) + center(0)
            endpoint(1) = (radius - (counter + 1) * radius / txtnumberofcircles) * Sin(theta + adjust) + center(1)
            startpoint(2) = 0#: endpoint(2) = 0#
            With ThisDrawing.ModelSpace
                .AddLine startpoint, endpoint
                .Item(ModelSpace.Count - 1).Update
            End With
        Next
    End Sub

    绘制圆再填充砖型图案。

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


  • 相关阅读:
    IDEA开发 Scala 项目
    mvn编译时绕过本地jar去maven仓库下载问题
    三角化(转载)
    分布式文件服务器介绍(转载)
    VSCode 设置侧边栏字体大小
    libLas编译
    OSG编译
    vcpkg.exe安装与应用
    OpenCASCADE编译
    gl2ps编译
  • 原文地址:https://www.cnblogs.com/bimgoo/p/2503111.html
Copyright © 2011-2022 走看看