Autocad VBA低级教油缸程 (第六课数据范例的转换)_缸筒|液压缸|活塞杆-无锡天圆,一流液压缸筒加工厂家

无标题文档

Autocad VBA低级教油缸程 (第六课数据范例的转换)

时间:2016-07-04 17:00来源:来自网络作者:天圆液压点击: 次

上一节课我们用一个简朴的公式把角度转化为弧度，这样做便于各人领略。不外VBA中有现成的要领可以转换数据范例。我们举例声名： jd = ThisDrawing.Utility.AngleToReal(30, 0) 这个表达式把角度30度转化为弧度，功效是.523598775598299。 AngleToReal必要

Call ThisDrawing.ModelSpace.AddText(text, p, 4) '写字
这是写单行文本，必要三个参数，别离是:写的内容、位置、字高
而realtostring要领正好相反，它把一个实数转换为字符串。它必要3个参数
1：科学计数；2：十进制；3：工程计数——英尺加英寸；4：构筑计数——英尺加分数英寸；5：分数名目。
temp1 = ThisDrawing.Utility.DistanceToReal("1.25E+01", 1)
Dim text As String

下面先容一些数型转换函数：

Dim add0 As String

上一节课我们用一个简朴的公式把角度转化为弧度，这样做便于各人领略。不外VBA中有现成的要领可以转换数据范例。

temp2 = ThisDrawing.Utility.DistanceToReal("12.5", 2)
站长致：

Cint，得到一个整数，例：Cint(3.14159) ，获得3

感激CAD天下网-论坛网友率土同庆先生提供教程！

temp3 = ThisDrawing.Utility.DistanceToReal("12 1/2", 5)
Else '不然
text = add0 & CStr(i) '加零，并转换数据
这个表达式计较62度30分10秒的弧度

End If

下面的代码可以写出一串数字，从000-099。

假如不满意前提，措施跳到else后往下运行。

重点表明前提判定语句：

p(0) = i * 100 'X坐标
If i < 10 Then '假如小于10
……
For i = 0 To 99 '开始轮回

假如满意前提那么措施往下执行，到else时不再往下执行，直接跳到End if后头
p(1) = 0 'Y坐标为0

……
Next i
temp1= ThisDrawing.Utility.RealToString(12.5, 1, 3)

再看将字符串转换为实数的要领：DistanceToReal
获得这个字符串：“1.250E+01”，液压油缸，液压缸，

第一个参数是一个实数，第二个参数暗示数据名目，寄义同上，最后一个参数暗示准确到几位小数。
例：id= ThisDrawing.Utility.AngleToReal("62d30' 10""", 1)
0：十进制角度；1：度分秒名目；2：梯度；3：弧度；4：测地单元
Else
p(2) = 0 'Z坐标为0
add0 = "00" '必要加00
End if

AngleToReal必要两个参数，前面是暗示要转换角度的数字，尔后头一个参数可以取值为0-4之间的整数，有如下意义：

Sub test()

接洽邮箱：zhaozh@icad.com.cn
If 前提表达式 Then

Dim p(0 To 2) As Double
End Sub

Call ThisDrawing.ModelSpace.AddText(text, p, 4) '写字
jd = ThisDrawing.Utility.AngleToReal(30, 0)
这个表达式把角度30度转化为弧度，功效是.523598775598299。
Cdate，转换为date数据范例，例：MyShortTime = CDate("11:13:14 AM")

例：以下表达式获得一个12.5的实数
必要两个参数，前一个参数是暗示数值的字符串，后头可以取值1-5，暗示数据名目，有如下意义：

我们举例声名：
add0 = "0" '必要加0
但愿更多CAD喜爱者颁发这类文章，CAD天下网给您提供一个揭示自我的平台。
Cvar，得到一个Variant范例的数值，例：Cvar("123" & "00")，获得”12300”
(责任编辑：admin)