用VB在AutoCADR14中写Text的方法

2016-02-19 17:55 17 1 收藏

下面是个超简单的用VB在AutoCADR14中写Text的方法教程，图老师小编精心挑选推荐，大家行行好，多给几个赞吧，小编吐血跪求~

【 tulaoshi.com - 编程语言】

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的易学、易用，编程周期短等优势，可以使您的程序更完美，更好用。->

来源:https://www.tulaoshi.com/n/20160219/1616387.html

看过《用VB在AutoCADR14中写Text的方法》的人还看了以下文章更多>>

怎样用VB在应用程序中调用API

标签：编程语言网络编程

由于API过程存在于VisualBasic应用程序之外的文件中，在使用时必须指定过程的位置和调用参数。可以用Declare语句提供这类信息。在声明了API过程之后，可以把它当做VisualBasic自己的过程使用。如果在VisualBasic中直接调用API，那么VisualBasic环境下固有的安全机制将受到不利影响。这意味着在测试和调试程序时可能会遇到更多的系统故障...

怎样在VB中控制WORD

标签：编程语言网络编程

使用VB编程时，有时需要调用Microsoft Word对文字进行编辑、排版及输出。为实现这种调用，可以使用Shell函数、OLE自动化、在包容器中嵌入Word对象等方法。经过试用和比较，总结出了这几种方法的各自特点。 1 使用Shell函数直接调用语法：Shell (pathname[,windowstyle]).Pathname是指要执行的程序的名字和任何必须的参数或命令...

在VB中存取数据库中的图片

标签：编程语言网络编程

一、数据库的设计数据库可以采用微软的Access97或者SQLServer来进行，首先新建一张表，取名为Table，添加三个字段，分别是：姓名Char型（SQLServer中）文本型（Access中）；编号Char型（SQLServer中）文本型（Access中）；照片image型（SQLServer中）OLE对象（Access中），设计好后存盘。为了可以进行远程调用，我们采用ODBC的方法进...

在VB中实现位图的透明放置

标签：编程语言网络编程

我们在开发一个软件中，通过扫描仪输进了大量实景图片，这些图片是以位图格式存储的，实际需要将这些图片透明放置到多彩色背景上，而在我们所使用的VisualBasicforWindows开发环境中，只能将WMF格式的矢量图（通过Image控件装载）透明放置到多彩色复杂背景图上，对位图只能象照片一样将图片上的每一个点阵信息贴到复杂背景上。本文讨论的问题就...

在VB中异步执行程序

标签：编程语言网络编程

使用VisualBasic编写应用程序的开发人员一定都遇到过这样的情形：当你的应用程序要完成一个比较大的任务时，并且该任务是那种“独占式”的任务（比如：使用函数FileCopy复制一个超过50MB的文件），如果不对程序作出特殊的处理，则用户将被迫面对一个像是被“挂起”的窗体，任凭你用鼠标怎样点击也没有任何反应，更糟糕的是当你从屏幕保护程序切...

查看更多精彩>>