AutoCAD二次开发VBA编程HellowWorld!
2011-03-08 20:27
375 查看
经典程序HellowWorld!
代码在这里
从现在开始学习CAD二次开发，第一本书《VBA开发AutoCAD2000应用程序》。
代码在这里
Public Sub ins_text()
Dim textObj As AcadText
Dim textString As String
Dim InsPnt(0 To 2) As Double
Dim Height As Double
textString = "Hellow World."
InsPnt(0) = 20: InsPnt(1) = 30: InsPnt(2) = 0
Height = 12
Set textObj = ThisDrawing.ModelSpace.AddText(textString, InsPnt, Height)
Dim lineObj As AcadLine
Dim startPnt(0 To 2) As Double
Dim endPnt(0 To 2) As Double
startPnt(0) = 20: startPnt(1) = 28: startPnt(2) = 0
endPnt(0) = 165: endPnt(1) = 28: endPnt(2) = 0
Set lineObj = ThisDrawing.ModelSpace.AddLine(startPnt, endPnt)
ZoomAll
End Sub
代码完。Dim textObj As AcadText
Dim textString As String
Dim InsPnt(0 To 2) As Double
Dim Height As Double
textString = "Hellow World."
InsPnt(0) = 20: InsPnt(1) = 30: InsPnt(2) = 0
Height = 12
Set textObj = ThisDrawing.ModelSpace.AddText(textString, InsPnt, Height)
Dim lineObj As AcadLine
Dim startPnt(0 To 2) As Double
Dim endPnt(0 To 2) As Double
startPnt(0) = 20: startPnt(1) = 28: startPnt(2) = 0
endPnt(0) = 165: endPnt(1) = 28: endPnt(2) = 0
Set lineObj = ThisDrawing.ModelSpace.AddLine(startPnt, endPnt)
ZoomAll
End Sub
从现在开始学习CAD二次开发，第一本书《VBA开发AutoCAD2000应用程序》。
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- AUTOCAD二次开发工具
- (c#)AutoCAD二次开发，netload后，重新调试编译出现“XXXXXX正由另一进程使用，因此无法访问文件”
- AutoCAD进行二次开发
- AutoCAD二次开发(.net教程)C#版——学习笔记（二）
- 利用C#进行AutoCAD的二次开发（三）（转自明经通道）
- AutoCad .NET(C#) 二次开发
- AutoCAD二次开发技术在工程图纸绘制中的应用
- AutoCad二次开发：ObjectARX技术谈
- AutoCAD二次开发之属性操作(1) 写属性
- AutoCAD二次开发之属性操作(2) 读属性
- CorelDRAW和AutoCAD二次开发软件
- AutoCAD二次开发（.Net）之多重引线（MLeader）创建
- AutoCAD二次开发的学习者快速掌握基于.NET的开发技术
- AutoCAD 二次开发学习系列【6】 - 视口
- AutoCAD二次开发（.Net）之获取LSP变量的值
- 利用C#进行AutoCAD的二次开发（三）
- AutoCAD二次开发方法
- 使用.NET开发AutoCAD——C#/AutoCAD 2018/ObjectArx/二次开发入门（二）
- AutoCAD二次开发（.Net）之多文本（MText）创建
- AutoCAD.net/Map 3D/AIMS/MapGuide/Civil 3D二次开发学习指南