Private Sub getData()
'获取 dwg 中,名字为 D 或 M 开头的标注点位置。
'MsgBox ThisDrawing.Utility.get .GetString("D222")
Dim varData As Variant
Dim oName As Variant
Dim txt As AcadText
Dim ss As String
Dim idx As Integer
Dim i As Integer
On Error GoTo ErrorHandler
'varData = ThisDrawing
'varData = ThisDrawing.ModelSpace
varData = ThisDrawing.ModelSpace.Item(1).ObjectName
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("D:\fsti\地市部署\新设备\福州\福州联网_0308\福州联网\琴亭\位置点.txt", True)
For i = 0 To ThisDrawing.ModelSpace.Count - 1 Step 1
idx = i
oName = ThisDrawing.ModelSpace.Item(i).ObjectName
If oName = "AcDbText" Then
Set txt = ThisDrawing.ModelSpace.Item(i)
ss = Str(txt.insertionPoint(0))
ss = ThisDrawing.ModelSpace.Item(i).textString
If Left(ss, 1) = "D" Or Left(ss, 1) = "M" Then
'MsgBox ss & Str(txt.insertionPoint(0))
'Exit For
a.WriteLine (ss & " " & Str(txt.insertionPoint(0)) & " " & Str(txt.insertionPoint(1)))
End If
End If
Next i
a.Close
'MsgBox varData
ErrorHandler: ' 错误处理程序。
If Err.Number <> 0 Then
MsgBox Str(idx) & ": Err.Number:" & Str(Err.Number) & ": Err.Description:" & Err.Description
End If
'Resume ' 将控制返回到产生错误的语句。
Exit Sub
End Sub
分享到:
相关推荐
cad dwg 标注由文本文字改为测量实际标注 cad dwg 标注由文本文字改为<> 实际标注
标注样式.dwg
Java读取dwg代码演示
java使用superMap解析DWG文件为json输出,本地通过,附件中为word操方式按照步骤可以导入数据集
c#如何读取dwg文件,外部的控件,非常好用,费用也很小
地上机房标注.dwg
压缩包内容:安装包+测试数据 软件功能:将宗地数据的图形和属性转为shapefile数据库文件,完成dwg数据的入库工作。 图形要求:DWG宗地线的图层为JZD,线内包含扩展属性“YBZDH”且值不能为空
使用C#开发的将DWG文件转换为PDF的程序,调用的CAD 2010接口,需要先安装cad 2010
只为观看DWG文件,特点:绿色·无毒·安全·便捷。。
iphone4 图纸 dwg apple官方iphone4图纸
可以在无AutoCAD环境的情况下,读取解析dwg文件。并可以把数据转化成JSON格式,GeoJson格式。支持在Python中掉用,支持C,C++掉用
PDF直接转换为DWG
dwf转dwg工具dwf to dwg converter,已破解,这款软件能批量转换dwf文件为dwg文件,或者转换成dxf文件,支持批量转换功能。 dwf是autocad用来分发、浏览dwg图形文件的格式,dwf文件只能浏览而不能编辑修改图形,...
桂软DWG文件格式转换工具(One DWG Converter)是国内首个纯中文界面专业开发的DWG文件格式转换软件,不依赖于AutoCAD环境,将DWG文件批量自动转换为PDF、DWF、BMP、JPG、TIF、PNG等流行的光栅格式文件。 软件特性...
打开cad,新建一个空白图纸,命令行输入reco,选择dwg图纸所在目录,可对大量dwg图纸进行类似于命令行输入purge命令的清理操作,将没个dwg文件中冗余的图层、标注样式、图块进行清理。
pdf轻松转化为dwg,非常方便,不信你就试试,好料,请指点
使用方法上也比较简单,启动软件后添加文件到待转换文件列表中,支持添加文件夹进行批量转换,或从资源管理器中拖动文件到文件列表,可在选项中设置输出选项,设置PDF文件的大小颜色及质量,支持自定义,纵向和横向...
如何用.NET(CSharp & VB.NET)将DWG文件打印为PDF
例如, 如果将2007 .dwg 文件保存为R14, 2007的文件格式规范作为扩展数据保存在R14文件中,在支持2007dwg的程序中打开此文件时,数据恢复为2007兼容的形式。 支持ACIS,包括显示内嵌的ACIS 3D实体(框架和着色)和...
多村dwg合并为一图