查无此鸟的博客 一个不误正业的交通工程师的个人网站

[博客园]【Hello AutoCAD 002】创建直线

标签:ACAD.NET | 发表时间:2010-08-19 19:03:00 | 更新时间: 2020-04-23 18:19:16 | 阅读数:211 | 评论数:0 | 字数:943

注:本文2010-08-19首先发表于博客园,原地址为:https://www.cnblogs.com/transteel/archive/2010/08/19/1803829.html 。
停了N长时间的VB.Net开发AutoCAD,我又开始重新学习了,希望这次能够坚持下去。 这一次,对照教材开始创建实体对象。 以下是代码和效果:
Imports Autodesk.AutoCAD.DatabaseServices Imports Autodesk.AutoCAD.Geometry Imports Autodesk.AutoCAD.Runtime Public Class Class1 '创建直线的命令 Public Sub TestLine() '得到当前文档的数据库对象 Dim Db As Database = HostApplicationServices.WorkingDatabase '定义直线对象的起点 Dim Pt1 As New Point3d(300, 100, 0) '定义直线兑现的重点 Dim Pt2 As New Point3d(900, 500, 0) '在内存中创建一个直线对象 Dim LineEnt As New Line(Pt1, Pt2) Using Trans As Transaction = Db.TransactionManager.StartTransaction() '以只读方式打开块表 Dim Bt As BlockTable = Trans.GetObject(Db.BlockTableId, OpenMode.ForRead) '以写方式打开模型空间块表记录 Dim Btr As BlockTableRecord = Trans.GetObject(Bt.Item(BlockTableRecord.ModelSpace), OpenMode.ForWrite) '将图形对象的信息添加到块表记录中,并返回ObjectId对象 Btr.AppendEntity(LineEnt) '把直线添加到事务处理中 Trans.AddNewlyCreatedDBObject(LineEnt, True) '提交事务处理 Trans.Commit() End Using End Sub End Class

呵呵,最简单最简单的,可是谁写程序不是从“Hello world”开始的呢!加油

版权声明:本文由@查无此鸟创作,采用知识共享 署名-非商业性使用-禁止演绎 3.0 中国大陆许可协议进行许可。除非注明,均为原创文章,请在转载时注明来源,并完整保留本段声明。本文地址: http://liyonggang.net/blog.aspx?id= 2010-08-19



本文评论:
暂无评论……

发表评论:(昵称或评论内容不允许为空!邮箱可不填,但建议填写以备联系,邮箱将不显示在评论中。) 昵称 邮箱

查无此鸟的博客

Copyright©查无此鸟 2020~2022, All Rights Reserved

邮箱:t5lyg@126.com

其他链接

卢昌海的网站 | 鱼の后花园博客) | 新交通人的技术闲谈-知乎 | FROYOs Blog | 博客园 | 鸟哥Linux | 蜂鸟的小窝 | 大眼仔

AutoCAD.NET: Kevin K | 大非sb