python提取cad坐标_cad中坐标提取方法(一)
Public Sub GetText_控制点() ‘提取AutoCAD中测量点坐标
Const PLayer As String = “GCD” ‘定义测量点所在图层,”“代表所有
Const FileName As String = “d:\ds_pointsets_GCD.dat” ‘定义保存测量点路径
Dim adText As AcadText
Dim adSS As AcadSelectionSet
Dim fType(0 To 1) As Integer, fData(0 To 1)
‘On Error Resume Next
Set adSS = ThisDrawing.SelectionSets.Add(“adSS”)
If Err Then Set adSS = ThisDrawing.SelectionSets.Add(“adSS”)
adSS.Clear
fType(0) = 0: fData(0) = “TEXT”: fType(1) = 8: fData(1) = PLayer ‘过滤条件
adSS.Select acSelectionSetAll, , , fType, fData
Open FileName For Append As #1
For Each adText In adSS
Print #1, Format(adText.InsertionPoint(0) – 1, “0.00”), Format(adText.InsertionPoint(1) + 2, “0.00”), adText.TextString
Next adText
Close #1
adSS.Delete ‘选择集删除
MsgBox “提取成功!”
End Sub
Public Sub GetLWPOLYLINE_等高线() ‘提取AutoCAD中多段线段点坐标
Const PLayer As String = “DGX” ‘定义测量点所在图层,”“代表所有
Const FileName As String = “d:\ds_pointsets_DGX.dat” ‘定义保存测量点路径
Dim Lwpl As AcadLWPolyline
Dim adSS As AcadSelectionSet
Dim i As Integer
Dim Pt As Variant
Dim fType(0 To 1) As Integer, fData(0 To 1)
Set adSS = ThisDrawing.SelectionSets.Add(“adSS”)
If Err Then Set adSS = ThisDrawing.SelectionSets.Add(“adSS”)
adSS.Clear
fType(0) = 0: fData(0) = “LWPOLYLINE”: fType(1) = 8: fData(1) = PLayer ‘过滤条件
adSS.Select acSelectionSetAll, , , fType, fData
Open FileName For Append As #1
For Each Lwpl In adSS
Pt = Lwpl.Coordinates
Dim xdataOut As Variant
Dim xtypeOut As Variant
For i = 0 To UBound(Pt) Step 2
Print #1, Format(Pt(i), “0.00”), Format(Pt(i + 1), “0.00”), Lwpl.Elevation
Next i
Next Lwpl
Close #1
adSS.Delete ‘选择集删除
MsgBox “提取成功!”
End Sub
Public Sub GetPOLYLINE_等高线() ‘提取AutoCAD中多段线段点坐标
Const PLayer As String = “DGX” ‘定义测量点所在图层,”“代表所有
Const FileName As String = “d:\ds_pointsets_DGX.dat” ‘定义保存测量点路径
Dim Lwpl As AcadPolyline
Dim adSS As AcadSelectionSet
Dim i As Integer
Dim Pt As Variant
Dim fType(0 To 1) As Integer, fData(0 To 1)
Set adSS = ThisDrawing.SelectionSets.Add(“adSS”)
If Err Then Set adSS = ThisDrawing.SelectionSets.Add(“adSS”)
adSS.Clear
fType(0) = 0: fData(0) = “POLYLINE”: fType(1) = 8: fData(1) = PLayer ‘过滤条件
adSS.Select acSelectionSetAll, , , fType, fData
Open FileName For Append As #1
For Each Lwpl In adSS
Pt = Lwpl.Coordinates
Dim xdataOut As Variant
Dim xtypeOut As Variant
For i = 0 To UBound(Pt) Step 3
Print #1, Format(Pt(i), “0.00”), Format(Pt(i + 1), “0.00”), Format(Pt(i + 2), “0.00”)
Next i
Next Lwpl
Close #1
adSS.Delete ‘选择集删除
MsgBox “提取成功!”
End Sub
Public Sub GetBLANK_白化() ‘提取AutoCAD中多段线段白化范围
Const PLayer As String = “圈定” ‘定义测量点所在图层,”“代表所有
Const FileName As String = “d:\d.bln” ‘定义保存测量点路径
Dim Lwpl As AcadLWPolyline
Dim adSS As AcadSelectionSet
Dim i As Integer
Dim Pt As Variant
Dim fType(0 To 1) As Integer, fData(0 To 1)
Set adSS = ThisDrawing.SelectionSets.Add(“adSS”)
If Err Then Set adSS = ThisDrawing.SelectionSets.Add(“adSS”)
adSS.Clear
fType(0) = 0: fData(0) = “LWPOLYLINE”: fType(1) = 8: fData(1) = PLayer ‘过滤条件
adSS.Select acSelectionSetAll, , , fType, fData
Open FileName For Append As #1
For Each Lwpl In adSS
Pt = Lwpl.Coordinates
Dim xdataOut As Variant
Dim xtypeOut As Variant
Print #1, (UBound(Pt) + 1) / 2 & “,0”
For i = 0 To UBound(Pt) Step 2
Print #1, Format(Pt(i), “0.00”) & “,” & Format(Pt(i + 1), “0.00”)
Next i
Next Lwpl
Close #1
adSS.Delete ‘选择集删除
MsgBox “提取成功!”
End Sub
5、 施测要求
仪器、设备的操作方法与观测程序要熟悉、正确。在首次观测前要对所用仪器的各项指标进行检测校正,必要时经计量单位予以鉴定。连续使用3–6个月重新对所用仪器、设备进行检校。
在观测过程中,操作人员要相互配合,工作协调一致,认真仔细,做到步步有校核。
6、 沉降观测精度的要求
根据建筑物的特性和建设、设计单位的要求选择沉降观测精度的等级。再未有特除要求情况下,一般性的高层建构筑物施工过程中,采用二等水准测量的观测方法就能满足沉降观测的要求。我们在河北省交通培训中心工程施工过程中就采用二等水测量的观测方法。
各项观测指标要求如下:
(1)往返较差 、附和或环线闭合差: △h=∑a-∑b≤l√n-,表示测站数。(或△h=∑a-∑b≤1.0√L-, L表示观测路线距离)
(2)前后视距 : ≤30m
(3)前后视距差 : ≤1.0m
(4)前后视距累积差 ≤3.0m
(5)沉降观测点相对于后视点的高差容差 :≤1.0mm
(6)水准仪的精度不低于N2级别
7、 沉降观测成果整理及计算要求
原始数据要真实可靠,记录计算要符合施工测量规范的要求,依据正确,严谨有序,步步校核,结果有效的原则进行成果整理及计算。
二、 具体施测程序及步骤
1、建立水准控制网
根据工程的特点布局、现场的环境条件制订测量施测方案,由建设单位提供的水准控制点(或城市精密导线点)根据工程的测量施测方案和布网原则的要求建立水准控制网。要求: (1)一般高层建筑物周围要布置三个以上水准点,水准点的间距不大于100米。
(2)在场区内任何地方架设仪器至少后视到两个水准点,并且场区内各水准点构成闭合图形,以便闭合检校。
(3)各水准点要设在建筑物开挖、地面沉降和震动区范围之外,水准点的埋深要符合二等水准测量的要求(大于1.5米)
根据工程特点,建立合理的水准控制网,与基准点联测,平差计算出各水准点的高程。2、建立固定的观测路线
由场区水准控制网,依据沉降观测点的埋设要求或图纸设计的沉降观测点布点图,确定沉降观测点的位置。在控制点与沉降观测点之间建立固定的观测路线,并在架设仪器站点与转点处作好标记桩,保证各次观测均沿统一路线。
3、沉降观测
根据编制的工程施测方案及确定的观测周期,首次观测应在观测点安稳固后及时进行。一般高层建筑物有一或数层地下结构,首次观测应自基础开始,在基础的纵横轴线上(基础局边)按设计好的位置埋设沉降观测点(临时的),等临时观测点稳固好,进行首次观测。
首次观测的沉降观测点高程值是以后各次观测用以比较的基础,其精度要求非常高,施测时一般用N2或N3级精密水准仪。并且要求每个观测点首次高程应在同期观测两次后决定。
随着结构每升高一层,临时观测点移上一层并进行观测直到十0.00再按规定埋设永久观测点(为便于观测可将永久观测点设于十500mm)。然后每施工一层就复测一次,直至竣工。
4、将各次观测记录整理检查无误后,进行平差计算,求出各次每个观测点的高程值。从而确定出沉降量。
某个观测点的每周期沉降量: △c=Hh,I-Hn,I -1 .
N表示某个观测点,I表示观测周期数(I=1,2,3……)且 H1=H0
累计沉降量: △C=∑△ c (n),n表示观测点号。
5、统计表汇总
(1)、根据各观测周期平差计算的沉降量,列统计表,进行汇总。
(2)、绘制各观测点的下沉曲线
首先建立下沉曲线坐标,横坐标为时间坐标,纵坐标上半部为荷载值,下半部为各沉降观测周期的沉降量。
将统计表中各观测点对应的观测周期所测得沉降量画于坐标中,并将相应的荷载值也画于坐标中,连线,就得到对应于荷载值的沉降曲线。
(3) 根据沉降量统计表和沉降曲线图,我们可以预测建筑物的沉降趋势,将建筑物的沉降情况及时的反馈到有关主管部门,正确地指导施工。特别座在沉陷性较大的地基上重要建筑物的不均匀沉降的观测显得更为重要。
利用沉降曲线还可计算出因地基不均匀沉降引起的建筑物倾斜度:q=│△Cm-△Cn│/Lmn,△Cm,△Cn分别为m,n点的总沉降量,Lmn为m,n点的距离。
对沉降观测的成果分析,我们还可以找出同一地区类似结构形式建筑物影响其沉降的主要因素,指导施工单位编好施工组织设计正确指导施工大有裨益,同样也为勘察设计单位提供宝贵的一手资料,设计出更完善的施工图纸。
6.观测中的注意事项:
(1)严格按测量规范的要求施测。
(2)前后视观测最好用同一水平尺。
(3)各次观测必须按照固定的观测路线进行。
(4)观测时要避免阳光直射,且各观测环境基本一致。
(5)成像清晰、稳定时再读数。
(6)随时观测,随时检核计算,观测时要-气阿成。
(7)在雨季前后要联测,检查水准点的标高是否有变动。
(8)将各次所观测沉降情况及时反馈有关部门,当建筑物每天(24h)连续沉降量超过1mm时应停止施工,会同有关部门采取应急措施。
三、 探讨的两个问题
(1)确定建筑物沉降观测精度的合理性。由于现行规范对施工单位施工过程的沉降观测要求不明朗,这对施工单位在建筑物沉降观测精度选择随意性较大,但是精度的高低直接关系到沉降观测成败。对沉降观测精度选择既不能太高也不能太低,要合理适宜,适合工程特性的需要。既不造成无谓的浪费也要保证观测结果的准确性。这样,本人认为一般高层及重要的建(构)筑物在首次观测过程中适用精密仪器的设备(高级水准仪、铟 合金尺等)在±0.00以上部分按二等以上水准测量方法,采用放大率倍数较大的S2或S3水准仪进行观测,也可以测出较理想的结果。
(2)在沉降观测过程中,沉降量与时问关系曲线不是单边下行光滑曲线,而是起伏状现象。这就分析原因,进行修正。
①第二次观测出现回升,而以后各次观测又逐渐下降。可能是首次观测精过低,若回升超过5mm时,第一次观测作废,若回升5mm内,第二次与第一次调整标高一致。 ②曲线在某点突然回升。
原因:水准点或观测点被碰动所致且水准点碰动后标高低于碰前标高,观测点碰后高于碰前。
处理措施:取相邻另一观测点的相同期间沉降量作为被碰观测点之沉降量。
③曲线自某点起渐渐回升
原因:一般是水准点下沉所致。
措施:确定水准点下沉值,与高级水准点符合测量,确定下沉重。
python提取cad坐标_cad中坐标提取方法(一)相关推荐
- eps提取高程点在哪里_只需一个命令,就能提取CAD图纸所有高程点坐标,感觉学费白交了...
原标题:只需一个命令,就能提取CAD图纸所有高程点坐标,感觉学费白交了 作为乙方设计师,经常会碰到一些甲方爸爸临时扔一个图纸过来,我们这个时候就要对图纸里提取有效数据信息才能进行下一步工作,拿到CAD ...
- python提取cad坐标到excel_使用python来操作autocad,并且将坐标点转换成cad可见对象...
由于工作需要,在项目中遇到一个棘手的问题,如何将(mssql)数据库中的BLOB文件转成cad可见图形 (可能每个项目需求不一样,解决方式不同) 第一步 . 需要转换的图形类型 第二步 . 那我们先查 ...
- 天正如何批量导出坐标_cad中批量导出坐标的方法【AutoCAD教程】
原标题:cad中批量导出坐标的方法[AutoCAD教程] 关注我哟 在使用CAD的过程当中,有时候要用到大量坐标的提取, 如果单纯的去手动操作会花费大量的时间和精力. 在cad中有一些可以批量提取数据 ...
- python绘制缓和曲线_CAD中缓和曲线的画法 - AutoCAD基础应用 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
在AutoCAD中缓和曲线的几种画法,其实在AutoCAD中,想要画出缓和的曲线是一项比较困难的工作,目前常见的画法可以分为以下的这几种: 1.AutoLISP程序法,使用这个方法要求用户掌握已知的曲 ...
- 坐标轴删了怎么恢复_cad中坐标标注恢复xy轴的方法
cad 中坐标标注恢复 xy 轴的方法 cad 中坐标标注恢复 xy 轴的方法一 当使用者想将用户坐 标系转换为世界坐标系,特别简单,直接输入 ucs ,然后回车 , 输 入 w ,再回车,即可完成世 ...
- python提取cad中的文字_[python]提取PPT中的文字(包括图片中的文字)
python是一门很强大的语言,因为有着丰富的第三方库,所以可以说Python是无所不能的. 很多人都知道,Python可以操作Excel,PDF·还有PPT,这篇文章就围绕Python提取PPT中的 ...
- Python提取Word文档中所有超链接地址和文本
使用Python扩展库python-docx操作Word文档的相关文章,可以阅读: Python批量导入图片到Word文件 Python查找Word文件中红色和加粗的文字(附元宵节送书活动中奖名单) ...
- Python提取岛上书店书中所有书名后做成词云
通过笔者Python提取<岛上书店>书名这一文章内容中的算法二,我们成功地把<岛上书店>中所有书名提取出来,并保存到同目录下的output.txt文件中.如果单单将这个发到朋友 ...
- Python提取word文档中的图片,识别图片文字之后再转存为word文档
#!/usr/bin/env python # coding: utf-8 import zipfile #压缩包 import os #文件库 import shutil import pytess ...
- 使用python提取所有word文件中的所有图片
目录 前言 代码 GIF示例 附:doc转docx 代码 前言 办公中,偶尔会碰到一种情况,需要提取word文档中的图片,决定写这样一款工具自动提取图片. 关于脚本的使用: 情景1:如果你拿到的是一个 ...
最新文章
- ppt文本框显示缺字,信息显示不全
- 计算机网络ip地址的分类
- 团队作业6-项目总结
- 在IAR 中出现the stack plug-in failed to set a breakpoint on main
- 整合Struts2、Spring、Hibernate构建J2EE应用
- 人人网 Windows Phone 7 应用开发起步
- linux的exec函数
- python sanic orm_基于sanic的微服务框架 - 架构分析
- C++中的深拷贝和浅拷贝(详解)
- 你会买新款 Macbook Pro 么?
- 7教程统计意义_极少人知道的SPSS数据拆分技巧——「杏花开生物医药统计」
- 手写linux系统,在Linux操作系统中使用手写板
- 纳米晶磁芯:非晶带材的“秘密”!
- 【教程】如何批量将记事本文件或word文本转换成简体/繁体中文,下面教你方法
- WebDriver下载地址
- 为什么我会性格懦弱?如何改变懦弱的性格?
- Springboot359的医院病历管理系统
- mini2440 LED 测试
- 快速Euclidean算法
- jmeter 正则表达式学习--使用详解
热门文章
- 金蝶eas怎么引出凭证_金蝶专业版如何引入引出凭证
- dp在约会上是什么意思_dp是什么意思网络术语 饭圈为什么喜欢用缩写
- 从无线安全到内网渗透[1]
- Roller 博客系统的搭建过程
- iOS视频裁剪、拼接、添加水印、添加背景音乐
- win10 修改hosts文件
- JetBrains DataGrip 2018.2.3中文破解版 含jar文件注册码激活教程(转)
- 高薪程序员面试题精讲系列25之你了解哪些Java新特性?你们公司使用哪个JDK版本?Java11了解过吗?
- 《人人都是项目经理》-云倩读书笔记
- 数学模型:优化模型(一)存贮问题