iatb 发表于 2008-6-5 07:47:00

如何在autocad将一组二维坐标点连接成线段

<p>如果有一个文档，里面是一些二维坐标，如何将这些点在autocad里显示出，并且将它们依次连接成线段呢？大家能不能给点思路，或者例子</p><p>谢谢大家了</p>

fjfhgdwfn 发表于 2008-6-5 08:14:00

看看创建多段线的的帮忙。

robbin840311 发表于 2008-6-5 08:18:00

如楼上所说，VBA有这方面的例子

iatb 发表于 2008-6-5 21:51:00

谢谢上面两位的回复，我看过帮助里的这段程序，但是不太懂。他的意思是连接点吗(4,7,0) (5,7,0) (6,7,0) (4,6,0) (5,6,0) (6,6,6)，但是程序运行后在autocad里显示不是这样。<br/><br/><title>AddMLine 示例 [明经通道 ActiveX 和 VBA 参考: AAR]</title><link rel="Stylesheet" href="activex.css"></link><pre class="Code">Sub Example_AddMLine()
   ' 该示例在模型空间中添加多线。

    Dim mLineObj As AcadMLine
    Dim vertexList(0 To 17) As Double
   
    ' 定义新对象的数据
    vertexList(0) = 4: vertexList(1) = 7: vertexList(2) = 0
    vertexList(3) = 5: vertexList(4) = 7: vertexList(5) = 0
    vertexList(6) = 6: vertexList(7) = 7: vertexList(8) = 0
    vertexList(9) = 4: vertexList(10) = 6: vertexList(11) = 0
    vertexList(12) = 5: vertexList(13) = 6: vertexList(14) = 0
    vertexList(15) = 6: vertexList(16) = 6: vertexList(17) = 6

    ' 在模型空间中创建多线
    Set mLineObj = ThisDrawing.ModelSpace.AddMLine(vertexList)

    ThisDrawing.Application.ZoomAll
   
    MsgBox "已经在当前图形中添加了新的多线对象。"
End Sub</pre><br/>

robbin840311 发表于 2008-6-9 22:59:00

<p>LZ指的是二维坐标点哈，是不是要看看AddLWPolyline的帮助呢？</p>
页: [1]
查看完整版本: 如何在autocad将一组二维坐标点连接成线段