下载提示
- 1.该资料是网友上传的，本站提供全文预览，预览什么样，下载就什么样。
- 2.下载该文档所得收入归上传者、原创者。
- 3.下载的文档，不会出现我们的网址水印。
文档列表
文档介绍
多段线提取点坐标-CAD-vba
Private Sub GetLWPOLYLINECoordinates()
Dim ss_dim As AcadSelectionSet, ent As AcadLWPolyline
Dim dxf_code() As Integer, dxf_value() As Variant
Dim i As Long, j As Long
Dim dbCor As Variant, x As Double, y As Double, z As Double
Set ss_dim = ("ssLine1")
ReDim dxf_code(0), dxf_value(0)
dxf_code(0) = 0: dxf_value(0) = "LWPOLYLINE"
acSelectionSetAll, , , dxf_code, dxf_value
Open "d:\" For Append As #1
For Each ent In ss_dim
For j = 0 To UBound() \ 2
x = (j * 2)
y = (j * 2 + 1)
Print #1, "X" & x & ",Y" & y
Next
Next
Close #1
End Sub
Private Sub GetLWPOLYLINECoordinates()
Dim ss_dim As AcadSelectionSet, ent As AcadLWPolyline
Dim dxf_code() As Integer, dxf_value() As Variant
Dim i As Long, j As Long
Dim dbCor As Variant, x As Double, y As Double, z As Double
Set ss_dim = ("ssLine1")
ReDim dxf_code(0), dxf_value(0)
dxf_code(0) = 0: dxf_value(0) = "LWPOLYLINE"
acSelectionSetAll, , , dxf_code, dxf_value
Open "d:\" For Append As #1
For Each ent In ss_dim
For j = 0 To UBound() \ 2
x = (j * 2)
y = (j * 2 + 1)
Print #1, "X" & x & ",Y" & y
Next
Next
Close #1
End Sub
多段线提取点坐标-CAD-vba 来自淘豆网www.taodocs.com转载请标明出处.
相关文档 更多>>
非法内容举报中心
相关标签
最近更新
- 期货从业资格之期货投资分析题库大全附答案..
- 期货从业资格之期货投资分析包过题库及参考..
- 期货从业资格之期货基础知识及1套参考答案
- 最新期货从业资格之期货基础知识题库带答案..
- 劳务员之劳务员基础知识题库精品（考试直接..
- 劳务员之劳务员基础知识完整题库附答案【模..
- 劳务员之劳务员基础知识包过题库附答案（考..
- 劳务员之劳务员专业管理实务完整题库及参考..
- 钢筋混凝土简支T梁设计
- 静脉输液治疗护理学考核试题题库及答案
- 2024企业主要负责人安全培训考试题及答案优..
- 千首禅诗品析
- 以工代赈项目开工仪式表态发言稿
- 《中华少年》朗诵稿原文
- 巡察工作汇报材料3篇
- 军校招生政审表双面印刷
- 项目融资申请表填写标准版模板
- 江淮六安YE2电机安装尺寸及技术参数
- 2015年车库建筑设计规范附条文