用VB在AutoCADR14中寫Text的方法

2019-11-18 17:35:04

字體：大中小

來源：轉載

供稿：網友

AutoCAD可以寫不同高寬比、不同角度、不同顏色的TEXT。無論是用AutoCAD的TEXT命令,還是用AutoLISP，都是很容易做到的，用VB是否也很容易哪？我們來看下面一段示例：

PublicobjAcadAsObject
PublicobjDocAsObject

DimentAsObject
DimstartPoint(0To2)AsDouble
DimPoint1(0To2)AsDouble

SetobjAcad=GetObject(,"AutoCAD.application")　　'獲得AutoCADR14對象
SetobjDoc=objAcad.ActiveDocument
'初始化TEXT的起點
startPoint(0)=10#
startPoint(1)=10#
startPoint(2)=0#
'寫一串TEXT,其中字高為5
Setent=objDoc.ModelSpace.AddText("textString",startPoint,5#)
'初始化TEXT的調整點
Point1(0)=20#
Point1(1)=10#
Point1(2)=0#
Withent
.Color=1　　　　　　　　　'改用紅色
.ObliqueAngle=0.174444　　'改傾斜角度
　.VerticalAlignment=0　　　'設垂直位置為0
.ScaleFactor=1#　　　　　　'設文字高寬比，當需要兩端對齊時，必須任意給一個值
.HorizontalAlignment=5　　'設文字為兩端對齊
.TextAlignmentPoint=Point1'設對齊點
EndWith
SetobjAcad=Nothing

　　從這里我們可以得出結論，在VB中同樣可以象AutoLISP那樣操縱AutoCAD，在某種程度上，VB更靈活。加上VB的易學、易用，編程周期短等優勢，可以使您的程序更完美，更好用。->

上一篇：用VB編寫FLASH動畫播放器

下一篇：編制自已的電話錄音小程序