Autocad VBA初级教程(4)

本课思考题：画一条抛物线：y=0.5*x*x+3，其中X取值范围在正负50之间

Autocad VBA初级教程 (第六课 数据类型的转换)

上一节课我们用一个简单的公式把角度转化为弧度，这样做便于大家理解。不过VBA中有现成的方法可以转换数据类型。我们举例说明：

CAD设计论坛7H(Z1d)k3A%(askcad.com)

;E.B'v/r!W7n W3Njd = ThisDrawing.Utility.AngleToReal(30, 0)

这个表达式把角度30度转化为弧度，结果是.523598775598299。

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

www.askcad.com7G$h-p-K2HAngleToReal需要两个参数，前面是表示要转换角度的数字，而后面一个参数可以取值为0-4之间的整数，有如下意义：0：十进制角度；1：度分秒格式；2：梯度；3：弧度；4：测地单位 例：id= ThisDrawing.Utility.AngleToReal(\这个表达式计算62度30分10秒的弧度

a'Q;`CAD论坛,CA设计,PROE,autocad,CAD下载,CAD教程,cad快捷键机械论坛机械设计论坛机械制造论坛视频教程机械CA论坛工程机械论坛,UG,solidworks,字体打印模型空间安装下载练习考试安装培训工程师机械制图工程建筑服装工程师招聘,cad设计论坛认证证书工程师级8G*Y w$?-l6U%l.\\,P4f

CAD论坛,CA设计,PROE,autocad,CA下载,CA教程,cad快捷键机械论坛机械设计论坛机械制造论坛视频教程机械CAD论坛工程机械论坛,UG,solidworks,字体打印模型空间安装下载练习考试安装培训工程师机械制图工程建筑服装工程师招聘,cad设计论坛认证证书工程师级#L,k7J#@ 再看将字符串转换为实数的方法：DistanceToReal

需要两个参数，前一个参数是表示数值的字符串，后面可以取值1-5，表示数据格式，有如下意义： 1：科学计数；2：十进制；3：工程计数——英尺加英寸；4：建筑计数——英尺加分数英寸；5：分数格式。例：以下表达式得到一个12.5的实数

(askcad.com)是国内最专业发展最快的AutoCAD设计讨论基地论坛云集高手提供CA的教程练习考试软件下载教程下载基础培训等一体化解决方案并推出Pro/Engineer,Unigraphics,SolidWorks相关讨论专区我们的口号:CA设计论坛为工程师增加动力请记住我们的网址askcad.com M)R2X'U7k%~1LCAD论坛,CA设计,PROE,autocad,CAD下载,CA教程,cad快捷键机械论坛机械设计论坛机械制造论坛视频教程机械CA论

temp1 = ThisDrawing.Utility.DistanceToReal(\temp2 = ThisDrawing.Utility.DistanceToReal(\

(askcad.com),为工程师增加动力6l6m(r4e2l

temp3 = ThisDrawing.Utility.DistanceToReal(\

而realtostring方法正好相反，它把一个实数转换为字符串。它需要3个参数

第一个参数是一个实数，第二个参数表示数据格式，含义同上，最后一个参数表示精确到几位小数。 temp1= ThisDrawing.Utility.RealToString(12.5, 1, 3) 得到这个字符串：“1.250E+01”，

5L(askcad.com)是国内最专业发展最快的AutoCAD设计讨论基地论坛云集高手提供CA的教程练习考试软件下载教程下载基础培训等一体化解决方案并推出Pro/Engineer,Unigraphics,SolidWorks相关讨论专区我们的口号:CA设计论坛为工程师增加动力请记住我们的网址:askcad.com8s G0r+o\3a\下面介绍一些数型转换函数：

CAD论坛,CA设计,PROE,autocad,CA下载,CA教程,cad快捷键机械论坛机械设计论坛机械制造论坛视频教程机械CA论坛工程机械论坛,UG,solidworks,字体打印模型空间安装下载练习考试安装培训工程师机械制图工程建筑服装工程师招聘,cad设计论坛认证证书工程师级!T;W'a(K+Y3yCint，获得一个整数，例：Cint(3.14159) ，得到3

Cvar，获得一个Variant类型的数值，例：Cvar(\，得到”12300” Cdate，转换为date数据类型，例：MyShortTime = CDate(\下面的代码可以写出一串数字，从000-099。 Sub test()

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

Dim add0 As String Dim text As String

(askcad.com)是国内最专业发展最快的AutoCA设计讨论基地论坛云集高手提供CA的教程练习考试软件下载教程下载基础培训等一体化解决方案并推出Pro/Engineer,Unigraphics,SolidWorks相关讨论专区我们的口号:CA设计论坛为工程师增加动力请记住我们的网址:askcad.com7G'g'U6U/R9dDim p(0 To 2) As Double p(1) = 0 'Y坐标为0p(2) = 0 'Z坐标为0

CAD论坛,CA设计,PROE,autocad,CAD下载,CAD教程,cad快捷键机械论坛机械设计论坛机械制造论坛视频教程机械CA论坛工程机械论坛,UG,solidworks,字体打印模型空间安装下载练习考试安装培训工程师机械制图工程建筑服装工程师招聘,cad设计论坛认证证书工程师级1g6m'V4g%L&s,ICAD设计论坛4k1T6H(z1[,v)`:_6G

www.askcad.com%P'H$u$y8{$nFor i = 0 To 99 '开始循环add0 = \需要加00 Else '否则End If

www.askcad.com0h3@*Y!L3T$a

If i < 10 Then '如果小于10

(askcad.com),为工程师增加动力4o;\\.O8[9]1YCAD设计论坛#K'k%j/r+Z8i)W6Eadd0 = \需要加0

www.askcad.com8z5?;C-_/Z3q:f&x3X

text = add0 & CStr(i) '加零，并转换数据 p(0) = i * 100 'X坐标

Call ThisDrawing.ModelSpace.AddText(text, p, 4) '写字 Next i End Sub

www.askcad.com:b0e(T+]4C(r:^

重点解释条件判断语句： If 条件表达式 Then …………

CAD设计论坛.]:]#l;o\

Else

1C.Z-i3Z1W,A.W+M,A8\\2CCAD论坛,CAD设计,PROE,autocad,CA下载,CA教程,cad快捷键机械论坛机械设计论坛机械制造论坛视频教程机械CA论坛工程机械论坛,UG,solidworks字体打印模型空间安装下载练习考试安装培训工程师机械制图工程建筑服装工程师招聘,cad设计论坛认证证书工程师级\n*@0Q4|0C;End if

如果满足条件那么程序往下执行，到else时不再往下执行，直接跳到End if后面 如果不满足条件，程序跳到else后往下运行。

Call ThisDrawing.ModelSpace.AddText(text, p, 4) '写字

$M0D/^!w4C.T,n.p$C

这是写单行文本，需要三个参数，分别是:写的内容、位置、字高

Autocad VBA初级教程 (第七课 写文字)

客观地说，ACAD写字功能不够历害，而用VBA可以使写字效率更高。比较正规的做法是把定义文字样式，用样式来控制文字的特性。我们还是用实例来学习，先看下面一段代码，它的作用是先创建一个文字样式，然后用这个文字样式写一段多行文本。 Sub txt()

Dim mytxt As AcadTextStyle '定义mytxt变量为文本样式Dim p(0 To 2) As Double '定义坐标变量 p(0) = 100: p(1) = 100: p(2) = 0 '坐标赋值

(askcad.com是国内最专业发展最快的utoCA设计讨论基地论坛云集高手提供CAD的教程练习考试软件下载教程下载基础培训等一体化解决方案并推出Pro/Engineer,Unigraphics,SolidWorks相关讨论专区我们的口 …… 此处隐藏：3991字，全部文档内容请下载后查看。喜欢就下载吧 ……