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
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
从你贴的链接教程来看,所谓的dxf文件本质上就是文本文件,所以呢扩展名可以是任意的,完全没问题.
感觉 vb.net对象中根本不存在组码这个东西,一切皆对象.直接遍历访问,要对应组码有何用?如果你想获取组码一句简单lsp语句就行了.
你是要操作cad文件?网上有操作dxf或dwg格式的代码,你看看dxf的格式吧,是明码的.
简单的点线这些好实现,但要尺寸标注或其它的就要麻烦些
以上就是土嘎嘎小编为大家整理的vb.net生成dxf的简单介绍vb.net生成dxf的简单介绍相关咨询咨询主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!