cad里的多段线坐标怎么导出

操作方法

  • 01

    '按下ALT+F11组合键，将下面的代码拷贝进去，执行即可。坐标导出到“E:\多段线坐标.txT”文件里面 Sub cad里的多段线坐标怎么导出()    Dim element As AcadObject '选择集合中的元素    Dimc1 as acadPolyline '处理前的曲线    Dim sset As AcadSelectionSet '选择集合Dim A(0) As IntegerDim B(0) As Variant ' 选择曲线,多段线在选择前需要先将要导出坐标的的线曲线化一下       If ThisDrawing.SelectionSets.Count < 1 Then        Set sset = ThisDrawing.SelectionSets.Add("ss01")    Else        'On Error Resume Next        Set sset = ThisDrawing.SelectionSets.Item("ss01")    End If    sset.Clear    A(0) = 0    B(0)="POLYLINE"    sset.SelectOnScreen A, B '完成曲线选择(后选方式)     'Exit Sub    If sset.Count > 0 Then        For Each element In sset '在选择集中进行循环            Set c1 = element              On Error Resume Next            o1 = easyArry(c1.Coordinates) '  c1.Delete                                Next    Else        MsgBox "操作错误: 未选择对象"    End If '   NextEnd Sub Function easyArry(ByRef arry As Variant) As VariantDim i As Integer, j As Integer '新旧曲线节点数Dim po() As Double '返回数列Open "E:\多段线坐标.txt" For Append As #1j = 1i = 1ReDim po(2)po(0) = arry(0) po(1) = arry(1): po(2) = arry(2) Write #1, po(0), po(1)Do    pi(0) = arry(i * 3)'为前节点赋值    j = j + 1    i = i + 1  Write #1, pi(0), pi(1) Loop While i < (UBound(arry) + 1) / 3Print #1, Close #1End Function

赞 (0)

相关推荐

  • CAD怎样在多段线的短线上显示线型？

    如果多段线设置了虚线线型后,整体都显示为实线,应该是线型比例设置不合适,之前发过介绍解决这个问题的方法.但有时多段线整体显示是虚线,但局部比较短的线段仍会显示为实线,如图所示. 多段线短线段显示实线的 ...

  • cad里布局如何设置（cad怎么生成布局图）

    cad里布局如何设置（cad怎么生成布局图）

    cad里布局如何设置（cad怎么生成布局图）

  • cad里图形怎么移动 cad移动图形位置的方法

    cad里图形怎么移动?下面小编带来cad移动图形位置的方法,希望对大家有所帮助. cad移动图形位置的方法: 首先我们要选中我们要移动的物体,以一个圆为例 之后我们输入命令m(move)命令,之后点击 ...

  • CAD里画与两条直线相切的已知半径的圆的方法

    CAD里如何画与两条直线相切的圆?今天小编就为大家带来CAD里画与两条直线相切的已知半径的圆的方法:感兴趣的朋友一起去看看吧! 方法/步骤 1.打开CAD 2.画已知直线 3.点击上方工具栏,绘图-- ...

  • cad如何设置多段线线宽

    cad如何设置多段线线宽

    CAD是一款经常使用的绘图软件,下面给大家讲讲cad如何设置多段线线宽.cad多段线线宽设置方法1. 第一步,在电脑上打开CAD软件进入如图所示的界面,点击界面左侧的多段线工具.2. 第二步,我们可以 ...

  • Word文档中怎么把文字复制到CAD里

    Word文档中怎么把文字复制到CAD里

    今天,小编给大家分享Word文档中把文字复制到CAD里的方法,希望对大家有所帮助.具体如下:1. 首先,请大家在自己的电脑中找到"word"软件,点击进入主界面,然后选中想复制的内 ...

  • 如何在手机抖音app中将手机里的多段视频剪辑到一个短视频中

    如何在手机抖音app中将手机里的多段视频剪辑到一个短视频中

    随着社会和经济的发展,手机抖音app已经成为我们生活中必不可少的一部分,那么我们怎么在手机抖音app中将手机里的多段视频剪辑到一个短视频中呢,接下来就让小编来教你们吧.具体如下:1. 第一步,我们使用 ...

  • cad怎么设置多段线线宽

    CAD是一款非常强大的绘图软件,自然我们需要掌握很多技巧,cad怎么设置多段线线宽呢?不会的话一起来学习吧. 操作方法 01 首先打开软件,直接输入多段线命令"pl",按下空格确定 ...

  • cad里打印没有横向纵向选择

    cad打印时找不到横向和竖向的打印选择,告诉大家小技巧 操作方法 01 cad里点击打印选项如果出现以下窗口,找不到横向和纵向打印选项时,点击图中红色标记处 02 然后就会出现如图窗口了,可以正常打印 ...