Autocad VBA初级教程(10)

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

(askcad.com)是国内最专业发展最快的utoCA设计讨论基地论坛云集高手提供CAD的教程练习考试软件下载教程下载基础培训等一体化解决方案并推出Pro/Engineer,Unigraphics,SolidWorks相关讨论专区我们的口号:CAD设计论坛为工程师增加动力请记住我们的网址:askcad.com1|;K1q6x;}￥UCall ThisDrawing.ModelSpace.AddArc(linep1, jqqr, ang2, ang1)

CAD设计论坛4W&{)R k%A$q\

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

boxp(4) = p2(1)

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

boxp(6) = p2(0) boxp(7) = p2(1) boxp(9) = p2(0)

CAD论坛,CA设计,PROE,autocad,CA下载,CAD教程,cad快捷键机械论坛机械设计论坛机械制造论坛视频教程机械CAD论坛工程机械论坛,UG,solidworks,字体打印模型空间安装下载练习考试安装培训工程师机械制图工程建筑服装工程师招聘,cad设计论坛认证证书工程师级8O8k1e'B#r3F#U s:t

boxp(10) = p1(1) boxp(12) = p1(0)

www.askcad.com e0P!C5F3B

boxp(13) = p1(1)

Call ThisDrawing.ModelSpace.AddPolyline(boxp) End Sub

CA设计论坛;N\

CAD设计论坛#L8|!l\下面开始分析源码： On Error Resume Next

www.askcad.com2B0p({'t.w;Hchang = ThisDrawing.Utility.GetReal(\长度(90～120)<10500>\If Err.Number <> 0 Then '用户输入的不是有效数字chang = 10500 Err.Clear '清除错误 End If

www.askcad.com2x,|)w.z!A({

这段代码的作用是要求用户输入一个足球场长度的数字，由于getreal只能输入数字，如果输入其他字符程序就会报错，所以先要用去掉错误提示：On Error Resume Next，虽然错误不再提示，但是出错代码会err.number改变，有兴趣的读者可以用变量跟踪的方法看看这个代码的数值。您只要记住，如果这个数字不是0，那么就是有错了，这时就可以把长度定为默认值，然后用Err.Clear语句把错误代码清零。

CAD设计论坛(W)l)M\6X4C

CAD论坛,CA设计,PROE,autocad,CAD下载,CAD教程,cad快捷键机械论坛机械设计论坛机械制造论坛视频教程机械CA论坛工程机械论坛,UG,solidworks,字体打印模型空间安装下载练习考试安装培训工程师机械制图工程建筑服装工程师招聘,cad设计论坛认证证书工程师级9g,K9P3r,~,T(R0f(` 在画小禁区的最后一行这样写：Call drawbox(linep1, linep2)

Drawbox并不是vba提供的方法，它是一个带参数的子程序。由于画足球场要画好几次矩形，

而vba没有提供一个现成的画矩形方法，如果每次都用一长串代码画矩形是很麻烦的，所以需要把这些麻烦的代码写到一个子程序中，在需要时只有写一条调用语句就行了。这个子程序最后几行，从“Private Sub drawbox(p1, p2) ”开始，到end sub结束，p1,p2是参数，调用时也必须写两个参数：linep1、linep2。ang1 = ThisDrawing.Utility.AngleFromXAxis(linep1, linep3) '计算角度ang2 = ThisDrawing.Utility.AngleFromXAxis(linep1, linep4) Call ThisDrawing.ModelSpace.AddArc(linep1, zqr, ang1, ang2) '画弧

画圆用addarc方法，需要4个参数：圆心、半径、起始角度、结束角度。AngleFromXAxis用于计算角度，其参数需要两个点坐标

www.askcad.com'[1v#^,?4k-L%\\ (askcad.com)是国内最专业发展最快的AutoCAD设计讨论基地论坛云集高手提供CA的教程练习考试软件下载教程下载基础培训等一体化解决方案并推出Pro/Engineer,Unigraphics,SolidWorks相关讨论专区我们的口号:CAD设计论坛为工程师增加动力请记住我们的网址:askcad.com-p/c3`!{8x7r!K8A

www.askcad.com3~,J9_/r:r3d

下面看镜像操作：

CAD设计论坛/K;V:p2h8s\

For Each ent In ThisDrawing.ModelSpace '所有模型空间的对象进行一次循环 If ent.Layer = \足球场\对象在\足球场\图层中 ent.Mirror linep1, linep2 '镜像 End If Next ent

CAD设计论坛'|'G&k.\\5A;F4D本例只对“足球场”图层中的对象进行镜像，所以要对全部对象进行循环，判断对象的图层属性，只有位于“足球

场”图层中的对象才作镜像。 本课思考题：

1、对本课的例程进行修改，当用户输入长、宽不在规定的范围时要求用户重新输入2、设计一张简单的平面图，用户输入2个参数，其他尺寸写进程序中 [ 本帖最后由 tianyunxuan 于 2007-5-26 20:10 编辑 ]

图片附件: 0712115522076821.gif (2007-5-26 20:10, 11.64 KB)

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

Autocad VBA初级教程 第十三课块操作

定义块方法：

Set blocksobj=ThisDrawing.Blocks.Add(基点, 块名)把选择集加入块中的方法：插入块方法：

ThisDrawing.ModelSpace.InsertBlock(插入点,块名, X轴比例,Y轴比例,Z轴比例, 旋转角度) 画块属性方法：

www.askcad.com(n6e%e%V-S/K9w3c8N-p e(t8\\'|#D-S5m,r/B6Z0B7b(askcad.com),为工程师增加动力*Z#o9}$u\

3z\E2bThisDrawing.CopyObjects(选择集,块)

ThisDrawing.ModelSpace.AddAttribute(文字高度,模式,提示字符, 插入点, 显示字符,默认值) 一共有五种模式，在输入时会有提示，其中最常用的是“acAttributeModeNormal”普通模式下面的例题是利用属性块画足球场的阵型图。

程序画出一个球员块，然后把块写到用户指定位置，球员号码由程序自动递增，把球员姓名改为用户输入值。画足球场请参阅上一课内容。 编程思路：

(askcad.com)是国内最专业发展最快的AutoCAD设计讨论基地论坛云集高手提供CA的教程练习考试软件下载教程下载基础培训等一体化解决方案并推出Pro/Engineer,Unigraphics,SolidWorks相关讨论专区我们的口号:CAD设计论坛为工程师增加动力请记住我们的网址:askcad.com8{;k\9P,[1w(ZCA论坛,CAD设计,PROE,autocad,CA下载,CA教程,cad快捷键机械论坛机械设计论坛机械制造论坛视频教程机械CA论坛工程机械论坛,UG,solidworks,字体打印模型空间安装下载练习考试安装培训工程师机械制图工程建筑服装工程师招聘,cad设计论坛认证证书工程师

1．定义一个 …… 此处隐藏：4315字，全部文档内容请下载后查看。喜欢就下载吧 ……