Autocad二次开发vba教程第六课

本教程介绍了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”<

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值