?? 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/2005530154041.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><!--以上為導(dǎo)航菜單-->
<TABLE width=800 align=center bgColor=#ffffff>
<TBODY>
<TR>
<TD width=6>
<TABLE width=1 bgColor=#999999>
<TBODY></TBODY></TABLE></TD><!--左側(cè)通欄開始-->
<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><!--精品導(dǎo)讀開始-->
<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><!--熱點(diǎn)新聞結(jié)束--><!--論壇熱門開始-->
<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><!--論壇熱門結(jié)束--><!--投稿-->
<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><!--投稿結(jié)束--></TBODY></TABLE></TD><!--左側(cè)通欄結(jié)束-->
<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>當(dāng)前位置：ICAD >> 數(shù)字化設(shè)計(jì) >> 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>作者：普天同慶 | 閱讀次數(shù)：1076 <FONT color=#999999>轉(zhuǎn)自：<FONT
color=#cc0000>CAD世界網(wǎng)-論壇</FONT>
時(shí)間：2005年5月30日15:40</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>客觀地說，ACAD寫字功能不夠歷害，而用VBA可以使寫字效率更高。比較正規(guī)的做法是把定義文字樣式，用樣式來控制文字的特性。我們還是用實(shí)例來學(xué)習(xí)，先看下面一段代碼，它的作用是先創(chuàng)建一個(gè)文字樣式，然后用這個(gè)文字樣式寫一段多行文本。</P>
<P>Sub txt()</P>
<P>Dim mytxt As AcadTextStyle '定義mytxt變量為文本樣式<BR>Dim p(0 To 2) As
Double '定義坐標(biāo)變量<BR>p(0) = 100: p(1) = 100: p(2) = 0 '坐標(biāo)賦值<BR>Set
mytxt = ThisDrawing.TextStyles.Add("mytxt") '添加mytxt樣式</P>
<P>mytxt.fontFile = "c:\windows\fonts\simfang.ttf"
'設(shè)置字體文件為仿宋體<BR>mytxt.Height = 100 '字高<BR>mytxt.Width = 0.8
'寬高比<BR>mytxt.ObliqueAngle = ThisDrawing.Utility.AngleToReal(3, 0)
'傾斜角度（需轉(zhuǎn)為弧度）</P>
<P><BR>ThisDrawing.ActiveTextStyle = mytxt '將當(dāng)前文字樣式設(shè)置為mytxt<BR>Set
txtobj = ThisDrawing.ModelSpace.AddMText(p, 1400, "{做到老，學(xué)到老}\P"
& "此心自光明正大，過人遠(yuǎn)矣")</P>
<P>txtobj.LineSpacingFactor = 2 '指定行間距<BR>txtobj.AttachmentPoint = 3
'右對齊（1為左對齊，2為居中）</P>
<P>End Sub</P>
<P>我們看這條語句<BR>Set mytxt = ThisDrawing.TextStyles.Add("mytxt")
<BR>添加文本樣式并賦值給mytxt變量，只需要一個(gè)參數(shù)：文本樣式名</P>
<P>fontfile、height、width、ObliqueAngle是文本樣式最常用的屬性</P>
<P>Call ThisDrawing.ModelSpace.AddMText(p, 1400, "{做到老，學(xué)到老}\P" &
"此心自光明正大，過人遠(yuǎn)矣")<BR>這條語句是寫文本，需要三個(gè)參數(shù)。第一個(gè)參數(shù)p是坐標(biāo)，1400是寬度，最后一個(gè)參數(shù)是文本內(nèi)容，其中\(zhòng)p是一個(gè)回車符</P>
<P>擴(kuò)大字符間距用\T數(shù)字，例：\T3abc，使文字abc的間距擴(kuò)大3 部，n取值范圍是0.75-3</P>
<P>在論壇中有一個(gè)經(jīng)常被同好提及的問題：如何使用文字疊加。舉例說明：123\S+0.12^-0.34<BR>\S是格式字符，^是分隔符，前面的數(shù)字在上，后面的數(shù)字在下。</P>
<P>\C是顏色格式字符，C后面跟一個(gè)數(shù)字表示顏色</P>
<P>\A是對齊方式，\A0，\A1,\A2分別表示底部對齊、中間對齊和頂部對齊<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=2005530154041"
target=_blank><FONT color=#cc0000>發(fā)表評論</FONT></A>】【<A
href="javascript:window.close()"><FONT
color=#cc0000>關(guān)閉窗口</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/2005530153947.asp"
target=_blank>[文章]Autocad VBA初級教程 (第六課 數(shù)據(jù)類型的轉(zhuǎn)換)</A><BR>下一篇：<A
href="http://old.icad.com.cn/html/2006-6-1/200661105959.asp"
target=_blank>[文章]CATIA車座設(shè)計(jì)中文教程（二）</A><BR></TD></TR></TBODY></TABLE></TD><!--中間通欄結(jié)束--><!--<td width="2" background="../../image/lbg1.gif"></td>--><!--右側(cè)通欄開始--></TR></TBODY></TABLE></TBODY></TABLE>
<SCRIPT language=JavaScript
src="CAD世界__Autocad VBA初級教程 (第七課 寫文字).files/endA.js"></SCRIPT>
</DIV></BODY></HTML>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -