📄 cad世界__autocad vba初级教程 (第六课 数据类型的转换).htm
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0055)http://old.icad.com.cn/html/2005-5-30/2005530153947.asp -->
<HTML><HEAD><TITLE>CAD世界__Autocad VBA初级教程 (第六课 数据类型的转换)</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<STYLE type=text/css>BODY {
BACKGROUND-IMAGE: url(image/pagebg.gif)
}
.style1 {
FONT-WEIGHT: bold; COLOR: #ff0066
}
.style2 {
FONT-WEIGHT: bold; FONT-SIZE: 9pt; COLOR: #333333; FONT-FAMILY: Times New Roman, Times, serif, "黑体"
}
.style3 {
COLOR: #336699
}
.style4 {
COLOR: #333333
}
.style6 {
COLOR: #f76c8c
}
.style15 {
COLOR: #ff0033
}
.style16 {
FONT-WEIGHT: bold; COLOR: #ff0000
}
</STYLE>
<SCRIPT language=JavaScript type=text/JavaScript>
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</SCRIPT>
<LINK href="CAD世界__Autocad VBA初级教程 (第六课 数据类型的转换).files/main_c1.css"
rel=stylesheet>
<META content="MSHTML 6.00.2900.2995" name=GENERATOR></HEAD>
<BODY leftMargin=0 rightMargin=0>
<DIV align=center>
<SCRIPT language=JavaScript
src="CAD世界__Autocad VBA初级教程 (第六课 数据类型的转换).files/headadA.js"></SCRIPT>
<TABLE height=17 width=800 align=center bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD>
<SCRIPT language=JavaScript
src="CAD世界__Autocad VBA初级教程 (第六课 数据类型的转换).files/headmenuA.js"></SCRIPT>
</TD></TR></TBODY></TABLE><!--以上为导航菜单-->
<TABLE width=800 align=center bgColor=#ffffff>
<TBODY>
<TR>
<TD width=6>
<TABLE width=1 bgColor=#999999>
<TBODY></TBODY></TABLE></TD><!--左侧通栏开始-->
<TD vAlign=top width=174>
<TABLE width=140 align=left><!--搜索-->
<TBODY>
<TR>
<TD width="100%">
<TABLE height=40 cellSpacing=0 cellPadding=3 width="100%"
align=center>
<FORM action=../../srcsearch.asp method=post>
<TBODY>
<TR>
<TD><IMG height=20
src="CAD世界__Autocad VBA初级教程 (第六课 数据类型的转换).files/mu_search_red.gif"
width=159></TD></TR>
<TR>
<TD align=middle colSpan=2><INPUT size=14 name=keyword> <INPUT type=submit value=搜索 name=submit> <INPUT type=hidden
value=all name=datesearch> <INPUT type=hidden value=2
name=AreaSearch> </TD></TR></FORM></TBODY></TABLE></TD></TR><!--精品导读开始-->
<TR>
<TD vAlign=top width=157 bgColor=#ffffff><IMG height=20
src="CAD世界__Autocad VBA初级教程 (第六课 数据类型的转换).files/leftmenu2_01_red.gif"
width=159>
<TABLE width="100%" align=left>
<TBODY>
<TR>
<TD align=left>
<SCRIPT language=JavaScript
src="CAD世界__Autocad VBA初级教程 (第六课 数据类型的转换).files/class2.js"></SCRIPT>
</TD></TR></TBODY></TABLE></TD></TR><!--热点新闻结束--><!--论坛热门开始-->
<TR>
<TD vAlign=top width=157 bgColor=#ffffff><IMG height=20
src="CAD世界__Autocad VBA初级教程 (第六课 数据类型的转换).files/leftmenu2_02_red.gif"
width=160>
<TABLE width="100%" align=left>
<TBODY>
<TR>
<TD align=left>
<SCRIPT language=JavaScript
src="CAD世界__Autocad VBA初级教程 (第六课 数据类型的转换).files/lttop6.js"></SCRIPT>
</TD></TR></TBODY></TABLE></TD></TR><!--论坛热门结束--><!--投稿-->
<TR>
<TD vAlign=top width=157 bgColor=#ffffff><IMG height=20
src="CAD世界__Autocad VBA初级教程 (第六课 数据类型的转换).files/mu_mail_red.gif"
width=160>
<TABLE>
<TBODY>
<TR>
<TD vAlign=top align=left>
<SCRIPT language=JavaScript
src="CAD世界__Autocad VBA初级教程 (第六课 数据类型的转换).files/tougaoA.js"></SCRIPT>
</TD></TR></TBODY></TABLE></TD></TR><!--投稿结束--></TBODY></TABLE></TD><!--左侧通栏结束-->
<TD width=1
background="CAD世界__Autocad VBA初级教程 (第六课 数据类型的转换).files/lbg1.gif"></TD><!--中间通栏开始-->
<TD vAlign=top width=660><!-- <table width="760" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="650" height="500" valign="top">-->
<TABLE width="100%" border=0>
<TBODY>
<TR>
<TD align=left>当前位置：ICAD >> 数字化设计 >> CAD >>
正文</TD></TR></TBODY></TABLE><BR>
<TABLE width="100%" border=0>
<TBODY>
<TR>
<TD align=middle bgColor=#eeeeee height=40><FONT
style="FONT-SIZE: 16px"><B>Autocad VBA初级教程 (第六课 数据类型的转换)</B><IMG
height=12 src="CAD世界__Autocad VBA初级教程 (第六课 数据类型的转换).files/zi.jpg"
width=15></FONT></TD></TR>
<TR>
<TD align=right>作者：普天同庆 | 阅读次数：985 <FONT color=#999999>转自：<FONT
color=#cc0000>CAD世界网-论坛</FONT>
时间：2005年5月30日15:39</FONT></TD></TR></TBODY></TABLE><BR>
<TABLE cellPadding=5 width=600 border=0>
<TBODY>
<TR>
<TD class=c align=left><FONT id=zoom style="FONT-SIZE: 14px"><FONT
size=3></FONT>
<P>上一节课我们用一个简单的公式把角度转化为弧度，这样做便于大家理解。不过VBA中有现成的方法可以转换数据类型。</P>
<P>我们举例说明：<BR>jd = ThisDrawing.Utility.AngleToReal(30,
0)<BR>这个表达式把角度30度转化为弧度，结果是.523598775598299。<BR>AngleToReal需要两个参数，前面是表示要转换角度的数字，而后面一个参数可以取值为0-4之间的整数，有如下意义：<BR>0：十进制角度；1：度分秒格式；2：梯度；3：弧度；4：测地单位<BR>例：id=
ThisDrawing.Utility.AngleToReal("62d30' 10""",
1)<BR>这个表达式计算62度30分10秒的弧度</P>
<P>再看将字符串转换为实数的方法：DistanceToReal<BR>需要两个参数，前一个参数是表示数值的字符串，后面可以取值1-5，表示数据格式，有如下意义：<BR>1：科学计数；2：十进制；3：工程计数——英尺加英寸；4：建筑计数——英尺加分数英寸；5：分数格式。<BR>例：以下表达式得到一个12.5的实数<BR>temp1
= ThisDrawing.Utility.DistanceToReal("1.25E+01", 1)<BR>temp2 =
ThisDrawing.Utility.DistanceToReal("12.5", 2)<BR>temp3 =
ThisDrawing.Utility.DistanceToReal("12 1/2",
5)<BR>而realtostring方法正好相反，它把一个实数转换为字符串。它需要3个参数<BR>第一个参数是一个实数，第二个参数表示数据格式，含义同上，最后一个参数表示精确到几位小数。<BR>temp1=
ThisDrawing.Utility.RealToString(12.5, 1,
3)<BR>得到这个字符串：“1.250E+01”，</P>
<P>下面介绍一些数型转换函数：<BR>Cint，获得一个整数，例：Cint(3.14159)
，得到3<BR>Cvar，获得一个Variant类型的数值，例：Cvar("123" &
"00")，得到”12300”<BR>Cdate，转换为date数据类型，例：MyShortTime = CDate("11:13:14
AM")</P>
<P>下面的代码可以写出一串数字，从000-099。</P>
<P>Sub test()</P>
<P>Dim add0 As String<BR>Dim text As String<BR>Dim p(0 To 2) As
Double<BR>p(1) = 0 'Y坐标为0<BR>p(2) = 0 'Z坐标为0<BR>For i = 0 To 99
'开始循环<BR> If i < 10 Then '如果小于10<BR> add0
= "00" '需要加00<BR> Else '否则<BR> add0 = "0"
'需要加0<BR> End If<BR> text = add0 & CStr(i)
'加零，并转换数据<BR> p(0) = i * 100 'X坐标<BR> Call
ThisDrawing.ModelSpace.AddText(text, p, 4) '写字<BR> Next
i<BR> <BR>End Sub</P>
<P><BR>重点解释条件判断语句：<BR>If 条件表达式 Then <BR>……<BR>Else<BR>……<BR>End
if</P>
<P>如果满足条件那么程序往下执行，到else时不再往下执行，直接跳到End
if后面<BR>如果不满足条件，程序跳到else后往下运行。</P>
<P> Call ThisDrawing.ModelSpace.AddText(text, p, 4)
'写字<BR>这是写单行文本，需要三个参数，分别是:写的内容、位置、字高<BR></P></FONT><BR>(编辑：zhaozh)</TD></TR>
<TR>
<TD align=right>
<SCRIPT language=JavaScript>
<!-- Begin
if (window.print) {
document.write('【<a href="#" onClick="javascript:window.print()"><font color=cc0000>打印本文</font></a>】 ');
}
// End -->
</SCRIPT>
【<A
href="http://old.icad.com.cn/review/index.asp?article=2005530153947"
target=_blank><FONT color=#cc0000>发表评论</FONT></A>】【<A
href="javascript:window.close()"><FONT
color=#cc0000>关闭窗口</FONT></A>】</TD></TR></TBODY></TABLE>
<TABLE align=left>
<TBODY>
<TR>
<TD align=left>上一篇：<A
href="http://old.icad.com.cn/html/2005-5-30/2005530153847.asp"
target=_blank>[文章]Autocad VBA初级教程 (第五课 画函数曲线)</A><BR>下一篇：<A
href="http://old.icad.com.cn/html/2006-6-1/200661105959.asp"
target=_blank>[文章]CATIA车座设计中文教程（二）</A><BR></TD></TR></TBODY></TABLE></TD><!--中间通栏结束--><!--<td width="2" background="../../image/lbg1.gif"></td>--><!--右侧通栏开始--></TR></TBODY></TABLE></TBODY></TABLE>
<SCRIPT language=JavaScript
src="CAD世界__Autocad VBA初级教程 (第六课 数据类型的转换).files/endA.js"></SCRIPT>
</DIV></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -