vb-net開發(fā)cad VBNET開發(fā)CAD菜單

如何使用vb.net調(diào)用cad進(jìn)行繪圖

你去查查書吧，書上挺詳細(xì)的，在這說(shuō)不好說(shuō)，你先在項(xiàng)目里引用。然后 Dim acadapp As AcadApplication Dim acaddoc As AcadDocument On Error Resume Next AcadApp = GetObject(, "AutoCAD.Application") If Err.Number Then Err.Clear() AcadApp = CreateObject("AutoCAD.Application") If Err.Number Then MsgBox("不能運(yùn)行AutoCAD,請(qǐng)檢查是否安裝了AutoCAD") Exit Sub End If End If AcadApp.Visible = True '界面可視

成都創(chuàng)新互聯(lián)是工信部頒發(fā)資質(zhì)IDC服務(wù)器商，為用戶提供優(yōu)質(zhì)的成都服務(wù)器托管服務(wù)

VS2010中用VB.NET編程添加CAD引用出錯(cuò)！坐等??！

應(yīng)用程序啟動(dòng)了沒

dim acadApp As AcadApplication

acadApp = CType(CreateObject("AutoCAD.Application.18"), AcadApplication)

acadApp.Visible = True

啟動(dòng)了CAD才能添加文件，其中18對(duì)應(yīng)的是cad2010，版本不同不一樣。

誰(shuí)能幫我編一段用VB對(duì)CAD進(jìn)行二次開發(fā)的程序代碼啊

第一個(gè)程序：畫一百個(gè)同心圓

第一步：復(fù)制下面的紅色代碼

第二步：在模型空間按快捷鍵Alt+F8，出現(xiàn)宏窗口

第三步：在宏名稱中填寫C100，點(diǎn)“創(chuàng)建”、“確定”

第四步：在Sub c100()和End Sub之間粘貼代碼

第五步：回到模型空間，再次按Alt+F8，點(diǎn)擊“運(yùn)行”

Sub c100()

Dim cc(0 To 2) As Double '聲明坐標(biāo)變量

cc(0) = 1000 '定義圓心座標(biāo)

cc(1) = 1000

cc(2) = 0

For i = 1 To 1000 Step 10 '開始循環(huán)

Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '畫圓

Next i

End Sub

也許您還看不懂上面的代碼，這沒有關(guān)系，只要能把同心畫出來(lái)就可以了，祝您成功。

第二課 編程基礎(chǔ)

本課主要任務(wù)是對(duì)上一課的例程進(jìn)行詳細(xì)分析

下面是源碼：

Sub c100()

Dim cc(0 To 2) As Double '聲明坐標(biāo)變量

cc(0) = 1000 '定義圓心座標(biāo)

cc(1) = 1000

cc(2) = 0

For i = 1 To 1000 Step 10 '開始循環(huán)

Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10) '畫圓

Next i

End Sub

先看第一行和最后一行：

Sub C100()

……

End Sub

C100是宏的名稱，也叫過(guò)程名稱，當(dāng)用戶執(zhí)行C100時(shí)程序?qū)⑦\(yùn)行sub 和end sub之間的所有指令。

第二行：

Dim cc(0 To 2) As Double '聲明坐標(biāo)變量

后半段“'聲明坐標(biāo)變量”自動(dòng)變?yōu)榫G色字體，它是代碼語(yǔ)句的注釋，它不會(huì)影響程序運(yùn)行，它的作用是告訴閱讀者程序員的想法。對(duì)于簡(jiǎn)單的程序，一般不需要寫注釋，如果要編寫非常復(fù)雜的程序，最好要多加注釋，越詳細(xì)越好，對(duì)于程序員來(lái)說(shuō)，這是一個(gè)好習(xí)慣。

電腦真正編譯執(zhí)行的是這條語(yǔ)句：Dim cc(0 To 2) As Double

它的作用就是聲明變量。

Dim是一條語(yǔ)句，可以理解為計(jì)算機(jī)指令。

它的語(yǔ)法：Dim變量名 As 數(shù)據(jù)類型

本例中變量名為CC，而括號(hào)中的0 to 2聲明這個(gè)CC是一個(gè)數(shù)組，這個(gè)數(shù)組有三個(gè)元素：CC(0)、CC(1)、CC(2)，如果改為CC(1 to 3)，則三個(gè)元素是CC(1)、CC(2)、CC(3)，有了這個(gè)數(shù)組，就可以把坐標(biāo)數(shù)值放到這個(gè)變量之中。

Double是數(shù)據(jù)類型中的一種。ACAD中一般需要定義坐標(biāo)時(shí)就用這個(gè)數(shù)據(jù)類型。在ACAD中數(shù)據(jù)類型的有很多，下面兩個(gè)是比較常用的數(shù)據(jù)類型，初學(xué)者要有所理解。

Long（長(zhǎng)整型），其范圍從 -2,147,483,648 到 2,147,483,647。

Variant 它是那些沒被顯式聲明為其他類型變量的數(shù)據(jù)類型，可以理解為一種通用的數(shù)據(jù)類型，這是最常用的。

下面三條語(yǔ)句

cc(0) = 1000 '定義圓心座標(biāo)

cc(1) = 1000

cc(2) = 0

它們的作用是給CC變量的每一個(gè)元素賦,值其順序是X、Y、Z坐標(biāo)。

For i = 1 To 1000 Step 10 '開始循環(huán)

……

Next i '結(jié)束循環(huán)

這兩條語(yǔ)句的作用是循環(huán)運(yùn)行指令，每循環(huán)一次，i值要增加10，當(dāng)i加到 1000時(shí)，結(jié)束循環(huán)。

i也是一個(gè)變量，雖然沒有聲明i變量，程序還是認(rèn)可的，VB不是C語(yǔ)言，每用一個(gè)變量都要聲明，不聲明就會(huì)報(bào)錯(cuò)。簡(jiǎn)單是簡(jiǎn)單了，這樣做也有壞處，如果不小心打錯(cuò)了一個(gè)字母，程序不會(huì)報(bào)錯(cuò)，如果程序很長(zhǎng)，那就會(huì)出現(xiàn)一些意想不到的錯(cuò)誤。

step后面的數(shù)值就是每次循環(huán)時(shí)增加的數(shù)值，step后也可以用負(fù)值。

例如：For i =1000 To 1 Step -10

很多情況下，后面可以不加step 10

如：For i=1 to 100，它的作用是每循環(huán)一次i值就增加1

Next i語(yǔ)句必須出現(xiàn)在需要結(jié)束循環(huán)的位置，不然程序沒法運(yùn)行。

下面看畫圓命令：

Call ThisDrawing.ModelSpace.AddCircle(cc, i * 10)

Call語(yǔ)句的作用是調(diào)用其他過(guò)程或者方法。

ThisDrawing.ModelSpace是指當(dāng)前CAD文檔的模型空間

AddCircle是畫圓方法

Addcicle方法需要兩個(gè)參數(shù)：圓心和半徑

CC就是圓心坐標(biāo)，i*10就是圓的半徑，本例中，這些圓的半徑分別是10、110、210、310……

本課到此結(jié)束，下面請(qǐng)完成一道思考題：

1.以(4,2)為圓心，畫5個(gè)同心圓，其半徑為1-5

第三課 編程基礎(chǔ)二

繪制三維多段線時(shí)X、Y值在屏幕上用鼠標(biāo)選取，Z值用鍵盤輸入

本課將講解這個(gè)問題。

為了簡(jiǎn)化程序，這里用多條直線來(lái)代替多段線。以下是源碼：

Sub myl()

Dim p1 As Variant '申明端點(diǎn)坐標(biāo)

Dim p2 As Variant

p1 = ThisDrawing.Utility.GetPoint(, "輸入點(diǎn):") '獲取點(diǎn)坐標(biāo)

z = ThisDrawing.Utility.GetReal("Z坐標(biāo):") '用戶輸入Z坐標(biāo)值

p1(2) = z '將Z坐標(biāo)值賦予點(diǎn)坐標(biāo)中

On Error GoTo Err_Control '出錯(cuò)陷井

Do '開始循環(huán)

p2 = ThisDrawing.Utility.GetPoint(p1, vbCr "輸入下一點(diǎn):") '獲取下一個(gè)點(diǎn)的坐標(biāo)

z = ThisDrawing.Utility.GetReal("Z坐標(biāo):") '用戶輸入Z坐標(biāo)值

p2(2) = z '將Z坐標(biāo)值賦予點(diǎn)坐標(biāo)中

Call ThisDrawing.ModelSpace.AddLine(p1, p2) '畫直線

p1 = p2 '將第二點(diǎn)的端點(diǎn)保存為下一條直線的第一個(gè)端點(diǎn)坐標(biāo)

Loop

Err_Control:

End Sub

先談一下本程序的設(shè)計(jì)思路：

1、獲取第一點(diǎn)坐標(biāo)

2、輸入第一點(diǎn)Z坐標(biāo)

3、獲取第二點(diǎn)坐標(biāo)

4、輸入第二點(diǎn)Z坐標(biāo)

5、以第一、二點(diǎn)為端點(diǎn)，畫直線

6、下一條線的第一點(diǎn)=這條線的第二點(diǎn)

7、回到第3步進(jìn)行循環(huán)

如果用戶沒有輸入坐標(biāo)或Z值，則程序結(jié)束。

首先看以下兩條語(yǔ)句：

p1 = ThisDrawing.Utility.GetPoint(, "輸入點(diǎn):") ‘獲取點(diǎn)坐標(biāo)

……

p2 = ThisDrawing.Utility.GetPoint(p1, vbCr "輸入下一點(diǎn):") '獲取下一個(gè)點(diǎn)的坐標(biāo)

這兩條語(yǔ)句的作用是由用戶輸入點(diǎn)用鼠標(biāo)選取點(diǎn)坐標(biāo)，并把坐標(biāo)值賦給p1、p2兩個(gè)變量。ThisDrawing.Utility.GetPoint（）在ACAD中這是最常用的方法之一，它需要兩個(gè)參數(shù)，在逗號(hào)前面的參數(shù)應(yīng)該是一個(gè)點(diǎn)坐標(biāo)，它的作用是在屏幕上畫一條線，前一個(gè)端點(diǎn)位于點(diǎn)坐標(biāo)位置，后一個(gè)端點(diǎn)跟隨鼠標(biāo)移動(dòng)，逗號(hào)之前可以什么都不填，這時(shí)沒有線條會(huì)跟隨鼠標(biāo)移動(dòng)，但逗號(hào)必須保留。

逗號(hào)后面使用一串字符，程序在命令行顯示這串字符，這不難理解。

VbCr通常代表一個(gè)回車符，而在這個(gè)語(yǔ)句中，它的作用是在命令行不顯示“命令：”

的作用是連接字符。舉例：

“愛我中華 ””抵制日貨 ””從我做起”

z = ThisDrawing.Utility.GetReal("Z坐標(biāo):") '用戶輸入Z坐標(biāo)值

由用戶輸入一個(gè)實(shí)數(shù)

On Error GoTo Err_Control '出錯(cuò)陷井

……

Err_Control:

On Error是出錯(cuò)陷井語(yǔ)句，在程序出錯(cuò)時(shí)將執(zhí)行On Error 后面的語(yǔ)句

GoTo Err_contorl 是程序跳轉(zhuǎn)語(yǔ)句，它的作用是在程序中尋找Err_control:，并執(zhí)行這一行后面的語(yǔ)句，本例中Err_Control:后就是結(jié)束宏，所以只要出現(xiàn)錯(cuò)誤，程序中止。

Do '開始循環(huán)

……

Loop ‘結(jié)束循環(huán)

這個(gè)循環(huán)就歷害了，它會(huì)無(wú)休止地進(jìn)行循環(huán)，好在本例中已經(jīng)有了一個(gè)出錯(cuò)陷井，當(dāng)用戶輸入回車時(shí)，由于程序沒有得到點(diǎn)或坐標(biāo)，程序出錯(cuò)，跳出循環(huán)，中止程序。如果要人為控制跳出循環(huán)，可以在代碼中用Exit Do語(yǔ)句跳出循環(huán)。在For 變量 和Next 變量之間如果要跳出循環(huán)，那么只要在循環(huán)體內(nèi)加一個(gè)Exit for 就可以跳出循環(huán)，關(guān)于這方面的例程以后會(huì)講到。

Call ThisDrawing.ModelSpace.AddLine(p1, p2) '畫直線

畫直線方法也是很常用的，它的兩個(gè)參數(shù)是點(diǎn)坐標(biāo)變量

本課到此結(jié)束，請(qǐng)做思考題：

連續(xù)畫圓，每次要求用戶輸入圓心、半徑，當(dāng)用戶不再輸入圓心或半徑時(shí)程序才退出

第四課 程序的調(diào)試和保存

人非圣賢，孰能無(wú)過(guò)，初學(xué)者在編寫復(fù)雜程序時(shí)往往會(huì)出現(xiàn)一些意想不到的錯(cuò)誤，所以程序的調(diào)試顯得尤為重要，隨著學(xué)習(xí)的深入，以后我們需要經(jīng)常進(jìn)行程序調(diào)試。事實(shí)上，對(duì)于那些資深程序員來(lái)說(shuō)，調(diào)試程序也是一項(xiàng)不可或缺的重要工作。

首先，在程序輸入階段，應(yīng)該充分利用VBA編輯器的智能功能。當(dāng)你在寫代碼時(shí)，輸入一些字母后，編輯器可以自動(dòng)列出合適的語(yǔ)句、對(duì)象、函數(shù)供你選擇，可以用上下鍵選擇，然后按TAB鍵（它位于“Q”鍵左邊）確認(rèn)。當(dāng)輸入一個(gè)回車符后程序會(huì)自動(dòng)對(duì)這條語(yǔ)句進(jìn)行分析，如果出現(xiàn)錯(cuò)誤就會(huì)提示。

我們經(jīng)常碰到的麻煩是程序的運(yùn)行結(jié)果和預(yù)計(jì)的不一樣，一般我會(huì)這樣做：首先要想一想可能是哪一個(gè)變量有問題，然后去監(jiān)視這個(gè)變量(或表達(dá)式)，在程序合適的位置設(shè)置斷點(diǎn)，這樣可以使程序停下來(lái)看一看這個(gè)變量有沒有按照我的設(shè)想在變化。下面我舉一個(gè)簡(jiǎn)單的例子，先看源代碼：

sub test()

for i=2 to 4 step 0.6

next i

end sub

這是一個(gè)非常簡(jiǎn)單的循環(huán)，每一次循環(huán)i便會(huì)增加0.6，當(dāng)循環(huán)3次后i值就變?yōu)?.4，但問題是每一次循環(huán)時(shí)i值變?yōu)槎嗌伲?/p>

第一步：在菜單中選“調(diào)試”—“添加監(jiān)視”，在表達(dá)試中填“i”，點(diǎn)擊確定，這時(shí)你會(huì)看到臨視窗口中會(huì)多一行。

第二步：把光標(biāo)移到代碼窗口中的“next i”行，按一下“F9”，于是每當(dāng)程序運(yùn)行到這里時(shí)就會(huì)暫停了。

好，一切就緒，請(qǐng)按F5執(zhí)行程序，在監(jiān)視窗口中C值立刻變?yōu)?，再按F5繼續(xù)，C值為2.6，再按幾次F5，直到程序結(jié)束，這樣我們就成功監(jiān)視了C值的變化。

第三步：在next i行再按一次F9，清除斷點(diǎn)。監(jiān)視的表達(dá)式的右鍵菜單選擇“刪除監(jiān)視”。

另外，還可以用“逐語(yǔ)句”、“逐過(guò)程”、“運(yùn)行到光標(biāo)處”等方法進(jìn)行調(diào)試，這些都在調(diào)試菜單中，操作比較簡(jiǎn)單，請(qǐng)讀者自行領(lǐng)悟。

到目前為止，我們所做的工程都是“嵌入式工程”，它只是嵌入在當(dāng)前的Autocad圖形文件中， 以后打開這個(gè)文件時(shí)代碼才會(huì)加載，如果別的dwg文件也要使用，那就需要把代碼導(dǎo)出為.bas文件，供其他dwg文件導(dǎo)入。在VBA編輯器的“文件”菜單中有這兩個(gè)功能，一試便知。

ACAD VBA還有一種工程叫“通用式工程”，只要進(jìn)入ACAD就可以運(yùn)行，程序可以在不同用戶、不同的圖形文件中共享，但是由于VBA功能太強(qiáng)，有時(shí)候會(huì)出現(xiàn)一些意想不到的事情，所以在學(xué)習(xí)階段請(qǐng)暫時(shí)不要這樣做。

本課結(jié)束，請(qǐng)做思考題；監(jiān)視下列代碼中的i和j的值，注意，此題雖然要監(jiān)視2個(gè)變量，但是在代窗口中只要設(shè)置1個(gè)斷點(diǎn)就足夠了。

sub test()

for i=2 to 4 step 0.6

for j=-5 to 2 step 5.5

next j

next i

end sub

第五課 畫函數(shù)曲線

先畫一組下圖拋物線。

下面是源碼：

Sub myl()

Dim p(0 To 49) As Double '定義點(diǎn)坐標(biāo)

Dim myl As Object '定義引用曲線對(duì)象變量

co = 15 '定義顏色

For a = 0.01 To 1 Step 0.02 '開始循環(huán)畫拋物線

For i = -24 To 24 Step 2 '開始畫多段線

j = i + 24 '確定數(shù)組元素

p(j) = i '橫坐標(biāo)

p(j + 1) = a * p(j) * p(j) / 10 '縱坐標(biāo)

Next i '至此p(0)-p(40)所有元素已定義，結(jié)束循環(huán)

Set myl = ThisDrawing.ModelSpace.AddLightWeightPolyline(p) '畫多段線

myl.Color = co '設(shè)置顏色屬性

co = co + 1 '改變顏色，供下次定義曲線顏色

Next a

End sub

為了鼓勵(lì)大家積極思考，從本課開始，我不再解釋每一條語(yǔ)句的作用，只對(duì)以前沒有提過(guò)的語(yǔ)句進(jìn)行一些解釋，也許你一時(shí)很難明白，建議用上一課提到的跟蹤變量、添加斷點(diǎn)的辦法領(lǐng)悟每一條語(yǔ)句的作用。

在跟蹤變量p時(shí)請(qǐng)?jiān)诟櫞翱谥袉螕糇兞縫前的+號(hào)，這樣可以看清數(shù)組p中每一個(gè)元素的變化。

ACAD沒有現(xiàn)成的畫拋物線命令，我們只能用程序編寫多段線畫近似拋物線。理論上，拋物線的X值可以是無(wú)限小、無(wú)限大，這里取值范圍在正負(fù)24之間。

程序第二行：Dim myl As Object '定義引用曲線對(duì)象變量

Object也是一種變量類型，它可以把變量定義為對(duì)象，本例中myl變量將引用多段線，所以要定義為Objet類型。

看畫多段線命令：

Set myl = ThisDrawing.ModelSpace.AddLightWeightPolyline(p) '畫多段線

其中括號(hào)中的p是一個(gè)數(shù)組，這個(gè)數(shù)組的元素?cái)?shù)必須是偶數(shù)，每?jī)蓚€(gè)元數(shù)作為一個(gè)點(diǎn)坐標(biāo)。

等號(hào)前面部分“Set myl”的作用就將myl變量去引用畫好的多段線。

myl.Color = co '設(shè)置顏色屬性。在ACAD中，顏色可以用數(shù)字表示，本例中co會(huì)增值，這樣就會(huì)有五彩繽紛的效果。

本課第二張圖：正弦曲線，下面是源碼：

Sub sinl()

Dim p(0 To 719) As Double '定義點(diǎn)坐標(biāo)

For i = 0 To 718 Step 2 '開始畫多段線

p(i) = i * 2 * 3.1415926535897 / 360 '橫坐標(biāo)

p(i + 1) = 2 * Sin(p(i)) '縱坐標(biāo)

Next i

ThisDrawing.ModelSpace.AddLightWeightPolyline (p) '畫多段線

ZoomExtents '顯示整個(gè)圖形

End Sub

p(i) = i * 2 * 3.1415926535897 / 360 '橫坐標(biāo)

橫坐標(biāo)表示角度，后面表達(dá)式的作用是把角度轉(zhuǎn)化弧度

ZoomExtents語(yǔ)句是縮放命令，它的作用是顯示整個(gè)圖形，消除圖形以外的區(qū)域

本課思考題：畫一條拋物線：y=0.5*x*x+3，其中X取值范圍在正負(fù)50之間

第六課 數(shù)據(jù)類型的轉(zhuǎn)換

上一節(jié)課我們用一個(gè)簡(jiǎn)單的公式把角度轉(zhuǎn)化為弧度，這樣做便于大家理解。不過(guò)VBA中有現(xiàn)成的方法可以轉(zhuǎn)換數(shù)據(jù)類型。

我們舉例說(shuō)明：

jd = ThisDrawing.Utility.AngleToReal(30, 0)

這個(gè)表達(dá)式把角度30度轉(zhuǎn)化為弧度，結(jié)果是.523598775598299。

AngleToReal需要兩個(gè)參數(shù)，前面是表示要轉(zhuǎn)換角度的數(shù)字，而后面一個(gè)參數(shù)可以取值為0-4之間的整數(shù)，有如下意義：

0：十進(jìn)制角度；1：度分秒格式；2：梯度；3：弧度；4：測(cè)地單位

例：id= ThisDrawing.Utility.AngleToReal("62d30' 10""", 1)

這個(gè)表達(dá)式計(jì)算62度30分10秒的弧度

再看將字符串轉(zhuǎn)換為實(shí)數(shù)的方法：DistanceToReal

需要兩個(gè)參數(shù)，前一個(gè)參數(shù)是表示數(shù)值的字符串，后面可以取值1-5，表示數(shù)據(jù)格式，有如下意義：

1：科學(xué)計(jì)數(shù)；2：十進(jìn)制；3：工程計(jì)數(shù)——英尺加英寸；4：建筑計(jì)數(shù)——英尺加分?jǐn)?shù)英寸；5：分?jǐn)?shù)格式。

例：以下表達(dá)式得到一個(gè)12.5的實(shí)數(shù)

temp1 = ThisDrawing.Utility.DistanceToReal("1.25E+01", 1)

temp2 = ThisDrawing.Utility.DistanceToReal("12.5", 2)

temp3 = ThisDrawing.Utility.DistanceToReal("12 1/2", 5)

而realtostring方法正好相反，它把一個(gè)實(shí)數(shù)轉(zhuǎn)換為字符串。它需要3個(gè)參數(shù)

第一個(gè)參數(shù)是一個(gè)實(shí)數(shù)，第二個(gè)參數(shù)表示數(shù)據(jù)格式，含義同上，最后一個(gè)參數(shù)表示精確到幾位小數(shù)。

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

得到這個(gè)字符串：“1.250E+01”，

下面介紹一些數(shù)型轉(zhuǎn)換函數(shù)：

Cint，獲得一個(gè)整數(shù)，例：Cint(3.14159) ，得到3

Cvar，獲得一個(gè)Variant類型的數(shù)值，例：Cvar("123" "00")，得到”12300”

Cdate，轉(zhuǎn)換為date數(shù)據(jù)類型，例：MyShortTime = CDate("11:13:14 AM")

下面的代碼可以寫出一串?dāng)?shù)字，從000-099。

Sub test()

Dim add0 As String

Dim text As String

Dim p(0 To 2) As Double

p(1) = 0 'Y坐標(biāo)為0

p(2) = 0 'Z坐標(biāo)為0

For i = 0 To 99 '開始循環(huán)

If i 10 Then '如果小于10

add0 = "00" '需要加00

Else '否則

add0 = "0" '需要加0

End If

text = add0 CStr(i) '加零，并轉(zhuǎn)換數(shù)據(jù)

p(0) = i * 100 'X坐標(biāo)

Call ThisDrawing.ModelSpace.AddText(text, p, 4) '寫字

Next i

End Sub

重點(diǎn)解釋條件判斷語(yǔ)句：

If 條件表達(dá)式 Then

……

Else

……

End if

如果滿足條件那么程序往下執(zhí)行，到else時(shí)不再往下執(zhí)行，直接跳到End if后面

如果不滿足條件，程序跳到else后往下運(yùn)行。

Call ThisDrawing.ModelSpace.AddText(text, p, 4) '寫字

這是寫單行文本，需要三個(gè)參數(shù)，分別是:寫的內(nèi)容、位置、字高

第七課 寫文字

客觀地說(shuō)，ACAD寫字功能不夠歷害，而用VBA可以使寫字效率更高。比較正規(guī)的做法是把定義文字樣式，用樣式來(lái)控制文字的特性。我們還是用實(shí)例來(lái)學(xué)習(xí)，先看下面一段代碼，它的作用是先創(chuàng)建一個(gè)文字樣式，然后用這個(gè)文字樣式寫一段多行文本。

Sub txt()

Dim mytxt As AcadTextStyle '定義mytxt變量為文本樣式

Dim p(0 To 2) As Double '定義坐標(biāo)變量

p(0) = 100: p(1) = 100: p(2) = 0 '坐標(biāo)賦值

Set mytxt = ThisDrawing.TextStyles.Add("mytxt") '添加mytxt樣式

mytxt.fontFile = "c:\windows\fonts\simfang.ttf" '設(shè)置字體文件為仿宋體

mytxt.Height = 100 '字高

mytxt.Width = 0.8 '寬高比

mytxt.ObliqueAngle = ThisDrawing.Utility.AngleToReal(3, 0) '傾斜角度（需轉(zhuǎn)為弧度）

ThisDrawing.ActiveTextStyle = mytxt '將當(dāng)前文字樣式設(shè)置為mytxt

Set txtobj = ThisDrawing.ModelSpace.AddMText(p, 1400, "{做到老，學(xué)到老}\P" "此心自光明正大，過(guò)人遠(yuǎn)矣")

txtobj.LineSpacingFactor = 2 '指定行間距

txtobj.AttachmentPoint = 3 '右對(duì)齊（1為左對(duì)齊，2為居中）

End Sub

我們看這條語(yǔ)句

Set mytxt = ThisDrawing.TextStyles.Add("mytxt")

添加文本樣式并賦值給mytxt變量，只需要一個(gè)參數(shù)：文本樣式名

fontfile、height、width、ObliqueAngle是文本樣式最常用的屬性

Call ThisDrawing.ModelSpace.AddMText(p, 1400, "{做到老，學(xué)到老}\P" "此心自光明正大，過(guò)人遠(yuǎn)矣")

這條語(yǔ)句是寫文本，需要三個(gè)參數(shù)。第一個(gè)參數(shù)p是坐標(biāo)，1400是寬度，最后一個(gè)參數(shù)是文本內(nèi)容，其中\(zhòng)p是一個(gè)回車符

擴(kuò)大字符間距用\T數(shù)字，例：\T3abc，使文字abc的間距擴(kuò)大3 部，n取值范圍是0.75-3

在論壇中有一個(gè)經(jīng)常被同好提及的問題：如何使用文字疊加。舉例說(shuō)明：123\S+0.12^-0.34

\S是格式字符，^是分隔符，前面的數(shù)字在上，后面的數(shù)字在下。

\C是顏色格式字符，C后面跟一個(gè)數(shù)字表示顏色

\A是對(duì)齊方式，\A0，\A1,\A2分別表示底部對(duì)齊、中間對(duì)齊和頂部對(duì)齊

夠不夠，不夠的話給個(gè)郵箱，我再發(fā)給你一個(gè)pdf文件！

網(wǎng)站欄目：vb-net開發(fā)cad VBNET開發(fā)CAD菜單
本文URL：http://muchs.cn/article38/doshcsp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供關(guān)鍵詞優(yōu)化、外貿(mào)網(wǎng)站建設(shè)、定制網(wǎng)站、商城網(wǎng)站、移動(dòng)網(wǎng)站建設(shè)、網(wǎng)站設(shè)計(jì)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)