Autocad二次开发vba教程第六课

最新推荐文章于 2020-12-02 21:41:57 发布

IDLlanguage

最新推荐文章于 2020-12-02 21:41:57 发布

阅读量1.3k

点赞数 1

CC 4.0 BY-SA版权

文章标签： vba date

本文链接：https://blog.youkuaiyun.com/IDLlanguage/article/details/3247563

本教程介绍了AutoCAD的VBA二次开发，讲解了AngleToReal方法将角度转化为弧度，DistanceToReal方法将字符串转换为实数，以及RealToString方法将实数转换为字符串。同时，还提到了数型转换函数Cint、Cvar和Cdate，以及如何使用If...Else条件判断语句。通过实例展示了如何在AutoCAD中添加文本。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

第六课数据类型的转换

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

我们举例说明：
jd = ThisDrawing.Utility.AngleToReal(30, 0)
这个表达式把角度30度转化为弧度，结果是.523598775598299。
AngleToReal需要两个参数，前面是表示要转换角度的数字，而后面一个参数可以取值为0-4之间的整数，有如下意义：
0：十进制角度；1：度分秒格式；2：梯度；3：弧度；4：测地单位
例：id= ThisDrawing.Utility.AngleToReal("62d30' 10""", 1)
这个表达式计算62度30分10秒的弧度

再看将字符串转换为实数的方法：DistanceToReal
需要两个参数，前一个参数是表示数值的字符串，后面可以取值1-5，表示数据格式，有如下意义：
1：科学计数；2：十进制；3：工程计数——英尺加英寸；4：建筑计数——英尺加分数英寸；5：分数格式。
例：以下表达式得到一个12.5的实数
temp1 = ThisDrawing.Utility.DistanceToReal("1.25E+01", 1)
temp2 = ThisDrawing.Utility.DistanceToReal("12.5", 2)
temp3 = ThisDrawing.Utility.DistanceToReal("12 1/2", 5)
而realtostring方法正好相反，它把一个实数转换为字符串。它需要3个参数
第一个参数是一个实数，第二个参数表示数据格式，含义同上，最后一个参数表示精确到几位小数。
temp1= ThisDrawing.Utility.RealToString(12.5, 1, 3)
得到这个字符串：“1.250E+01”，

下面介绍一些数型转换函数：
Cint，获得一个整数，例：Cint(3.14159) ，得到3
Cvar，获得一个Variant类型的数值，例：Cvar("123" & "00")，得到”12300”<