锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net嵌入cad vb编写cad

IT技术嵌入

vb.net程序添加了AutoCAD 2010 Type Library，但是还是出现AcadApplication 未定义，求指教，高分在文件开头vb.net嵌入cad，
Imports AutoCAD
即可
如何用vb.net编程在cad图形中插入dwg图块？Dim ppr As PromptPointResult = ed.GetPoint("请选择插入点vb.net嵌入cad：")
Dim pt As Point3d = ppr.Value
utility.WriteToEditor(pt.ToString())
Dim pidBlock As New PIDBlock()
'自己定义vb.net嵌入cad的图块类vb.net嵌入cad ， 保存图块vb.net嵌入cad的路径和名称
pidBlock.Name = "sample"
pidBlock.Path = blockPath"b_sample.dwg"
Using blkDb As New Database(False, True)
'read drawing
blkDb.ReadDwgFile(pidBlock.Path, System.IO.FileShare.Read, True, Nothing)
blkDb.CloseInput(True)
Using docLock As DocumentLock = doc.LockDocument()
'多文档要先这样vb.net嵌入cad ， 否则报至命错误
Using t As Transaction = doc.TransactionManager.StartTransaction()
'insert it as a new block
Dim idBTR As ObjectId = doc.Database.Insert(pidBlock.Name, blkDb, False)
'create a ref to the block
Dim bt As BlockTable = DirectCast(t.GetObject(doc.Database.BlockTableId, OpenMode.ForRead), BlockTable)
Dim btr As BlockTableRecord = DirectCast(t.GetObject(bt(BlockTableRecord.ModelSpace), OpenMode.ForWrite), BlockTableRecord)
Using bref As New BlockReference(pt, idBTR)
btr.AppendEntity(bref)
t.AddNewlyCreatedDBObject(bref, True)
End Using
t.Commit()
End Using
End Using
End Using
如何使用vb.net调用cad进行绘图你去查查书吧，书上挺详细的，在这说不好说，你先在项目里引用 。然后 Dim acadapp As AcadApplication Dim acaddoc As AcadDocument On Error Resume Next AcadApp = GetObject(, "AutoCAD.Application") If Err.Number Then Err.Clear() AcadApp = CreateObject("AutoCAD.Application") If Err.Number Then MsgBox("不能运行AutoCAD,请检查是否安装了AutoCAD") Exit Sub End If End If AcadApp.Visible = True '界面可视
【vb.net嵌入cad vb编写cad】关于vb.net嵌入cad和vb编写cad的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息 ， 记得收藏关注本站 。

    推荐阅读


    上一篇：如何在腾讯云上申请个人服务器？ 腾讯云个人怎么申请服务器

    下一篇：如下java代码运行时，下面java代码运行结果是