CAD设计论坛

 找回密码
 立即注册
论坛新手常用操作帮助系统等待验证的用户请看获取社区币方法的说明新注册会员必读(必修)
楼主: cad

[开发] Autocad VBA初级教程 (强烈推荐)

[复制链接]
发表于 2010-1-26 14:08 | 显示全部楼层

第三课思考题代码

Sub 画圆(). x+ P% X2 P, a. S) Y
Dim p1 As Variant
* L, x  z! @2 B3 v+ O
' E& G. K8 E$ T" X. `0 c+ oDim z As Double3 ?2 I, d) R' d5 c- K1 V  c

0 W: h- _+ U4 d/ tDo
& T% D0 z9 M* q% c2 _9 ?
* b7 X- S; B9 G% l% n$ M. I) }* Vp1 = ThisDrawing.Utility.GetPoint(, "请指定圆心")
1 H8 r/ H+ I$ b0 v9 o* `1 k; b/ k8 {+ r& `7 h+ R
z = ThisDrawing.Utility.GetReal("请输入半径")
2 E3 O+ j9 K' C* m& v* f/ p& ?/ Z% G) _! R
Call ThisDrawing.ModelSpace.AddCircle(p1, z)
! a+ r3 v! Z9 e* P3 A: Y" N
$ {; u" ?! q% _. O" v$ q& Q2 UOn Error GoTo err_control
  h: \5 u. o; u4 I0 @# G
0 w0 D; N! Z8 g5 P! v( S, |% L
Loop
$ t# N- E* {0 Q( H, F/ o3 _* R+ c' F2 D- q9 T: E5 H9 M& |
err_control:
! C- w" \. g3 O* c* \0 ?" Z/ P0 n: t4 E

' P! a: \2 g$ |
' j# _! `( s& X- N1 K- r$ d* j' y4 I$ t+ p& ]) M) ~
End Sub
发表于 2010-1-26 16:18 | 显示全部楼层
对于我来说太深奥了!学无止境啊!
发表于 2010-1-26 21:39 | 显示全部楼层

佩服

确实很有用,一口气看了第九课,明天坚持看完。
发表于 2010-2-5 17:55 | 显示全部楼层
我迟到了
发表于 2010-2-5 23:34 | 显示全部楼层
这可要好好的留下来了。
发表于 2010-2-28 09:36 | 显示全部楼层
顶拉  牛人  超强
发表于 2010-3-10 22:47 | 显示全部楼层
无私奉献好书的好人
发表于 2010-3-21 12:53 | 显示全部楼层
非常感谢LZ分享!
发表于 2010-3-21 22:52 | 显示全部楼层
很好!!!!!!!!!
发表于 2010-3-25 09:45 | 显示全部楼层
安全数组中的元素太少不是3的倍数回复
4 \& I( v. K3 c' m* |( eCAD绘图中,基本元素有点、线、面,点是最基础元素,在三维中确定一个点必须用3个数值(分别代表点的X、Y、Z坐标值),所以元素数必须是3倍数。在二维(平面)中只要是2的倍数就可以。
7 A" P9 h& L3 j5 {& E关于安全数组中的元素的多少问题,
/ J3 U- L  O: y* s/ ~在Dim  p(a To b)  As  Double$ d5 F" H4 U' r1 ~5 `. y" E
For i = 0 To  c  Step 2, J, G7 \) S0 E9 C% g+ ^) l
p(i) =X        表达式......横坐标
; r" h' E7 l$ Y" _8 A& p' vp(i + 1) = Y   表达式.......纵坐标! s5 Y% L/ N; G' J
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,可根据需要给予赋值。(此以二维图为例)。
发表于 2010-5-7 19:20 | 显示全部楼层
怎么不更新后面的了
发表于 2010-5-21 00:11 | 显示全部楼层
很难看懂~~~
发表于 2010-5-29 07:18 | 显示全部楼层
下载了!准备学习
发表于 2010-5-29 07:19 | 显示全部楼层
强人种的强人啊~每天来报道一下~
发表于 2010-6-24 20:07 | 显示全部楼层
强力顶!
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关于|免责|隐私|版权|广告|联系|手机版|CAD设计论坛

GMT+8, 2026-6-26 01:12

CAD设计论坛,为工程师增加动力。

© 2005-2026 askcad.com. All rights reserved.

快速回复 返回顶部 返回列表