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
    文章千古事,得失寸心知。


  • 相关阅读:
    利用 localStorage 储存css js
    实现图片延迟加载的一些 库
    less 应用
    vue 问题集合||
    一个简易的登录框
    python_协程方式操作数据库
    爬取知名社区技术文章_分析_1
    python_爬百度百科词条
    python_爬校花图片
    python_猜年龄
  • 原文地址:https://www.cnblogs.com/bimgoo/p/2503111.html
Copyright © 2011-2022 走看看