CAD二次开发学习笔记

归来

本人CAD二次开发是基于VBA进行，第一个代码记录如下：
Sub c5()
Dim cc(0 To 2) As Double '初始化变量类型，这里初始化成双精度型。数组cc有三个元素分别为cc(0),cc(1),cc(2)
cc(0) = 30 '给数组cc(0)赋值30
cc(1) = 20 '给数组cc(1)赋值20
cc(2) = 0 '给数组cc(2)赋值0
For i = 1 To 10 Step 2 'For循环从1到10，步长为2，也就是说每一步都跳过i+2进行一次计算
  Call ThisDrawing.ModelSpace.AddCircle(cc, i) '用call调用 ThisDrawing.ModelSpace下面的画圆工具，cc数组的三个元素作为圆心坐标三个要素即：cc(x,y,z)，半径为i
Next i '继续循环i
End Sub

jimi21

顶一个

tyj110120

请问，哪位有水经注万能下载器的免费授权账号啊

xulei

感谢分享！

1341758923

学习了，很实用