网站首页 > 文章中心 > 其它

vb.net生成dxf的简单介绍

作者:小编 更新时间:2023-09-20 14:03:57 浏览量:25人看过

如何利用vb读取一个dxf格式的图形文件的数据

dxf文件是AutoCad的交换文件,可以直接用AutoCad打开.dxf文件是明码文件,在vb环境下按顺序文件读取就可以了.

例如:在C盘根目录下有一个文件"1.dxf"

启动vb后,建立一个按钮:Command1

并双击此按钮,对其输入以下代码:

Private Sub Command1_Click()

Dim a As String '读取文件一行的内容

Dim i As Long '用于记录行数

Dim j As Long '用于记录用户如何响应提示

Open "c:\1.dxf" For Input As #1

i = 0

While Not EOF(1)

Line Input #1, a

i = i + 1

j = MsgBox("第 " i " 行内容为:" a, vbOKCancel + vbInformation)

'运行到此步时,如果用户输入"确定"则继续,如果用户输入"取消"则结束本程序

'用户可以在此输入处理代码,对读入的字串进行处理

If j = vbCancel Then

End

End If

Wend

close #1

End Sub

VB.net 导入DXF文件

Imports?System.IO

Imports?System.Drawing

Public?Class?PreViewDWG

Private?Structure?BITMAPFILEHEADER

Dim?bfType?As?Short

Dim?bfSize?As?Integer

Dim?bfReserved1?As?Short

Dim?bfOffBits?As?Integer

End?Structure

Public?Function?GetDwgImage(ByVal?FileName?As?String)?As?Image

If?Not?File.Exists(FileName)?Then?Exit?Function

Dim?DwgF?As?FileStream?'文件流

Dim?PosSentinel?As?Integer?'文件描述块的位置

Dim?br?As?BinaryReader?'读取二进制文件

Dim?TypePreview?As?Integer?'缩略图格式

Dim?PosBMP?As?Integer?'缩略图位置

Dim?LenBMP?As?Integer?'缩略图大小

Dim?biBitCount?As?Short?'缩略图比特深度

Dim?biH?As?BITMAPFILEHEADER?'BMP文件头,DWG文件中不包含位图文件头,要自行加上去

Dim?BMPInfo()?As?Byte?'包含在DWG文件中的BMP文件体

Dim?BMPF?As?New?MemoryStream?'保存位图的内存文件流

Dim?bmpr?As?New?BinaryWriter(BMPF)?'写二进制文件类

Dim?myImg?As?Image

Try

DwgF?=?New?FileStream(FileName,?FileMode.Open,?FileAccess.Read)?'文件流

br?=?New?BinaryReader(DwgF)

Select?Case?TypePreview

Case?1

DwgF.Seek(PosBMP,?SeekOrigin.Begin)?'从位图块开始处读取全部位图内容备用

BMPInfo?=?br.ReadBytes(LenBMP)?'不包含文件头的位图信息

br.Close()

DwgF.Close()

With?biH?'建立位图文件头

.bfReserved1?=?0?'保留字节

End?With

'以下开始写入位图文件头

bmpr.Write(biH.bfType)?'文件类型

bmpr.Write(biH.bfSize)?'文件大小

bmpr.Write(biH.bfReserved1)?'0

bmpr.Write(biH.bfOffBits)?'图像数据偏移

bmpr.Write(BMPInfo)?'写入位图

BMPF.Seek(0,?SeekOrigin.Begin)?'指针移到文件开始处

myImg?=?Image.FromStream(BMPF)?'创建位图文件对象

Return?myImg

bmpr.Close()

BMPF.Close()

End?Select

Catch?ex?As?Exception

Return?Nothing

End?Try

End?Function

End?Class

vb.net能否生成dxf文件?

从你贴的链接教程来看,所谓的dxf文件本质上就是文本文件,所以呢扩展名可以是任意的,完全没问题.

vb.net如何在编程中获取CAD对象的DXF组码

感觉 vb.net对象中根本不存在组码这个东西,一切皆对象.直接遍历访问,要对应组码有何用?如果你想获取组码一句简单lsp语句就行了.

你是要操作cad文件?网上有操作dxf或dwg格式的代码,你看看dxf的格式吧,是明码的.

简单的点线这些好实现,但要尺寸标注或其它的就要麻烦些

以上就是土嘎嘎小编为大家整理的vb.net生成dxf的简单介绍vb.net生成dxf的简单介绍相关咨询咨询主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!

版权声明:倡导尊重与保护知识产权。未经许可,任何人不得复制、转载、或以其他方式使用本站《原创》内容,违者将追究其法律责任。本站文章内容,部分图片来源于网络,如有侵权,请联系我们修改或者删除处理。

编辑推荐

热门文章