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#)
'初始化T...[ 查看全文 ]