Autocad VBA初级教程(12)

Dim objCollection(0 To 3) As Object '创建选择集Set objCollection(0) = line1 '线条1加入选择集 Set objCollection(1) = line2 '线条2加入选择集Set objCollection(3) = attr2 '属性2加入选择集

www.askcad.com\p0^7r*b)y/f

www.askcad.com-K-r0Y3D![(L*c5^%z$t

Set objCollection(2) = attr1 '属性1加入选择集

www.askcad.com\U.l'z/M

.B4w:x'B6K0kCall ThisDrawing.CopyObjects(objCollection, playerblock) '把选择集加入块中 For Each element In objCollection '在选择集中进行循环Next

CAD设计论坛\2f/l,a

(askcad.com),为工程师增加动力:?*K$v\H p\element.Delete '删除线条和属性(此操作并不影响已创建的块)

CA论坛,CAD设计,PROE,autocad,CA下载,CA教程,cad快捷键机械论坛机械设计论坛机械制造论坛视频教程机械CA论坛工程机械论坛,UG,solidworks,字体打印模型空间安装下载练习考试安装培训工程师机械制图工程建筑服装工程师招聘,cad设计论坛认证证书工程师级\g%C%L i2t

Set playerlay = ThisDrawing.Layers.Add(\球员\新建图层 playerlay.color = 2 '为黄色

CAD设计论坛4e4Z(J0\\2l0{!p

ThisDrawing.ActiveLayer = playerlay '将当前图层设置为球员图层 Dim p1 As Variant '块插入点位置

p+J3~)~&].N8N)UFor i = 1 To 11 '插入块

pstring = CStr(i) & \号球员位置：\

www.askcad.com$b;~7l;N-B+A'b,k2W

www.askcad.com0h5z9B3G%{ T1W6v3zp1 = ThisDrawing.Utility.GetPoint(, pstring) '点选球员位置坐标nstring = ThisDrawing.Utility.GetString(30, \球员姓名：\ Attr3 = blockRef.GetAttributes '获取块属性 Attr3(0).TextString = CStr(i) '赋值球员号码 Attr3(1).TextString = nstring '赋值球员姓名Next

)C9s,Z9D'~)C)c(askcad.com),为工程师增加动力6~#o'L4S'B(x$Qwww.askcad.com;v\6p\

Set blockRef = ThisDrawing.ModelSpace.InsertBlock(p1, \球员\插入块

End Sub 本课思考题：

1、在本课例程的最后一段增加出错陷阱代码，当用户输入非正常数值时退出程序

(askcad.com),为工程师增加动力.A%O8i(@;l3w ?8_(L

2、画一个简易路灯块，用属性块做为路灯编号，由用户点选路灯位置，程序画路灯时自动为路灯编号

第一课入门练习:

0])p$N\CAD设计论坛我在粘贴代码时好多怪怪的符号 第二课练习:

(i9C)]$[7r4F#S.}Sub c5()

Dim cc(0 To 2) As Double '声明坐标变量 cc(0) = 4 '定义圆心座标 cc(1) = 2 cc(2) = 0

For i = 1 To 5 '开始循环

Call ThisDrawing.ModelSpace.AddCircle(cc, i) '画圆 Next i

End Sub

Autocad VBA初级教程 (第四课 程序的调试和保存)作业:点就足够了。sub test()

for i=2 to 4 step 0.6next j

www.askcad.com5d;]8T.i$\\7D4P3Vwww.askcad.com$~$v!H%L!\\/d&A7@!{1u

本课结束，请做思考题；监视下列代码中的i和j的值，注意，此题虽然要监视2个变量，但是在代窗口中只要设置1个断

(askcad.com)是国内最专业发展最快的AutoCAD设计讨论基地论坛云集高手提供CA的教程练习考试软件下载教程下载基础培训等一体化解决方案并推出Pro/Engineer,Unigraphics,SolidWorks相关讨论专区我们的口号:CA设计论坛为工程师增加动力请记住我们的网址askcad.com,A#z:^-@$Y5@*O)r1R

for j=-5 to 2 step 5.5

CA论坛,CA设计,PROE,autocad,CAD下载,CA教程,cad快捷键机械论坛机械设计论坛机械制造论坛视频教程机械CA论坛工程机械论坛,UG,solidworks,字体打印模型空间安装下载练习考试安装培训工程师机械制图工程建筑服装工程师招聘,cad设计论坛认证证书工程师级9~:Z'F0T(fnext i End sub

CAD设计论坛-? `8E(z(k'j1\\-J9W

(askcad.com),为工程师增加动力5C\i值: 2 2.6 3.2 3.8j值: -5 .5

第五课 画函数曲线的一个问题

第五课有一个作业，画抛物线y=0.5*x*x+3 x[-50，50]。我写了一个程序如下，监测显示参数都没问题，可在autocad中画出来的图形不对，能看看问题出在哪儿吗？Sub PaoWuXian()

Dim p(0 To 101) As Double Dim a As Integer Dim i, j As Integer For j = 1 To 100 Step 1a = -50 + j p(j) = aNext j

(askcad.com为工程师增加动力&]¤y2m't0u$|www.askcad.com r(K-j!q)F$c(askcad.com),为工程师增加动力8s(x8}#f.M%I1I ?$K)z,p#X!w

/?7_ o2p.N I-L!{p(j + 1) = 0.5 * a * a + 3

CA设计论坛7x2\\2`6f/B-{

CAD设计论坛y }#s T1E\

(askcad.com)是国内最专业发展最快的utoCA设计讨论基地论坛云集高手提供CAD的教程练习考试软件下载教程下载基础培训等一体化解决方案并推出Pro/Engineer,Unigraphics,SolidWorks相关讨论专区我们的口号:CA设计论坛为工程师增加动力请记住我们的网址askcad.com&x1V$N9M:J&J5R%_/F!wThisDrawing.ModelSpace.AddLightWeightPolyline (p)ZoomExtents End Sub

画出来的图形如下

画出来的图形如下，明显不对

正确图形

正确图形应该这样：（我用excel数据绘制出的正确抛物线图形）