CAD VBA编程实例入门-变色同心圆

风之涯角

已于 2024-03-18 17:28:54 修改

阅读量328

点赞数 2

分类专栏： vba 文章标签： cad cad vba 图形编程

于 2024-03-18 17:28:28 首次发布

本文链接：https://blog.youkuaiyun.com/weixin_41346635/article/details/136815540

版权

vba 专栏收录该内容

1 篇文章

订阅专栏

该编程代码展示了如何在AutoCAD中创建一个名为Subc100的函数，通过循环生成1000个同心圆，每10个圈的颜色渐变，利用AcadAcCmColor对象设置RGB值，最后缩放视图显示所有圆。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

先上代码:

Sub c100()
    Dim dot(0 To 2) As Double
    dot(0) = 0
    dot(1) = 0
    dot(2) = 0
    For i = 1 To 1000 Step 10
        Dim color As AcadAcCmColor'declare color object
        Set color = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor." & _
                                            Left(AcadApplication.Version, 2))
        'load the color object base on cad version
        Call color.SetRGB(255 * i / 1000, 211, 255 - 255 * i / 1000)
        Dim circle0 As AcadCircle'circle object
        Set circle0 = ThisDrawing.ModelSpace.AddCircle(dot, 10 * i)
        circle0.TrueColor = color'change circle color
    Next i
    ZoomExtents'show all circle
End Sub

效果图如下: