首页 相关文章 用VB在AutoCADR14中写Text的方法

用VB在AutoCADR14中写Text的方法

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...[ 查看全文 ]

2016-02-19 标签:

用VB在AutoCADR14中写Text的方法的相关文章

手机页面
收藏网站 回到头部