Autocad VBA初级教程（强烈推荐）

zhike1117 · 发表于 2010-1-26 14:08

Sub 画圆()
Dim p1 As Variant

Dim z As Double

Do

p1 = ThisDrawing.Utility.GetPoint(, "请指定圆心")

z = ThisDrawing.Utility.GetReal("请输入半径")

Call ThisDrawing.ModelSpace.AddCircle(p1, z)

On Error GoTo err_control

Loop

err_control:

End Sub

癫者TT · 发表于 2010-1-26 16:18

对于我来说太深奥了！学无止境啊！

zhike1117 · 发表于 2010-1-26 21:39

确实很有用，一口气看了第九课，明天坚持看完。

zhzim · 发表于 2010-2-5 17:55

我迟到了

癫者TT · 发表于 2010-2-5 23:34

这可要好好的留下来了。

kjheng02 · 发表于 2010-2-28 09:36

顶拉牛人超强

pbboy118 · 发表于 2010-3-10 22:47

无私奉献好书的好人

loco1310 · 发表于 2010-3-21 12:53

非常感谢LZ分享！

ayld · 发表于 2010-3-21 22:52

很好！！！！！！！！！

pang_zhy · 发表于 2010-3-25 09:45

安全数组中的元素太少不是3的倍数回复
CAD绘图中，基本元素有点、线、面，点是最基础元素，在三维中确定一个点必须用3个数值（分别代表点的X、Y、Z坐标值），所以元素数必须是3倍数。在二维（平面）中只要是2的倍数就可以。
关于安全数组中的元素的多少问题，
在Dim p(a To b) As Double
For i = 0 To c Step 2
p(i) =X 表达式......横坐标
p(i + 1) = Y 表达式.......纵坐标
ThisDrawing.ModelSpace.AddLightWeightPolyline (p)中，因为step 2 所以c取偶数，当i=0，有p（a）和p（a+1）与其对应，i每加一步都要有p(i)和p(i + 1) 与其对应，当i=c，要有要有p(c)和p(c + 1) 与其对应，所以要b-a≥c+1，且为偶数，多出的p默认值是0，可根据需要给予赋值。（此以二维图为例）。

taotao001 · 发表于 2010-5-7 19:20

怎么不更新后面的了

ok1942 · 发表于 2010-5-21 00:11

很难看懂～～～

cai168 · 发表于 2010-5-29 07:18

下载了！准备学习

cai168 · 发表于 2010-5-29 07:19

强人种的强人啊~每天来报道一下~

berly999 · 发表于 2010-6-24 20:07

强力顶！

		自动登录	找回密码
密码			立即注册

[开发] Autocad VBA初级教程（强烈推荐）

第三课思考题代码

佩服

[开发] Autocad VBA初级教程 （强烈推荐）

第三课思考题代码

佩服

[开发] Autocad VBA初级教程（强烈推荐）