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分享！:lol

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

很好！！！！！！！！！

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

安全数组中的元素太少不是3的倍数回复
CAD绘图中，基本元素有点、线、面，点是最基础元素，在三维中确定一个点必须用3个数值（分别代表点的X、Y、Z坐标值），所以元素数必须是3倍数。在二维（平面）中只要是2的倍数就可以。
关于安全数组中的元素的多少问题，
在Dimp(a To b)AsDouble
For i = 0 TocStep 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

强力顶！
页: 10 11 12 13 14 15 16 17 18 19 [20] 21 22 23 24
查看完整版本: Autocad VBA初级教程 （强烈推荐）