请问Coordinates可以更改一组坐标值吗？（附源码）

CAD学习开发

请问Coordinates可以更改一组坐标值吗？我看vba帮助里说只能改一个坐标值，但我写了程序怎么能一次改好多坐标值啊？不知道有没有问题

Sub LWPolyLineCoors()

  On Error Resume Next

  ThisDrawing.SelectionSets("SS1").Delete

  Dim sSet As AcadSelectionSet
  Dim objLWPolyLine As AcadLWPolyline
  Dim FilterType(0) As Integer
  Dim FilterData(0) As Variant
 
  FilterType(0) = 0
  FilterData(0) = "LWPolyLine"

  Set sSet = ThisDrawing.SelectionSets.Add("SS1")
 
  sSet.SelectOnScreen FilterType, FilterData
 
  Dim oldCoors As Variant
  Dim newCoors As Variant
  Dim i As Integer
  For Each objLWPolyLine In sSet
    oldCoors = objLWPolyLine.Coordinates
    For i = 0 To UBound(oldCoors) Step 2
        MsgBox "原多义线坐标X=" & oldCoors(i) & "  Y=" & oldCoors(i + 1)
    Next i
   
    ReDim Preserve oldCoors(7)
   
    oldCoors(0) = 0
    oldCoors(1) = 0
    oldCoors(2) = 1
    oldCoors(3) = 1
    oldCoors(4) = 2
    oldCoors(5) = 2
    oldCoors(6) = 1
    oldCoors(7) = 0
   
    objLWPolyLine.Coordinates = oldCoors
   
  Next objLWPolyLine
 
  ThisDrawing.Regen True
 
  sSet.Delete
 
End Sub

mccad

帮助中已经注明，不能改变顶点数，只能改各点的坐标值

CAD学习开发

帮助中说“设置多段线的坐标时，如果用户提供了少于对象当前拥有的坐标数时，多段线将被缩短。任何用于被删除了的顶点上的拟合点也将被删除。如果用户提供了多于对象当前拥有的坐标数时，增加的顶点将被追加到多段线上。”

这也就是说，如果通过提供多于或少于对象当前拥有的坐标数的方法可以实现顶点数的改变！

在上面所发的源码里已经得到验证是可行的。

如果数据中有拟合点可能会有问题!请问mccad我的理解对否？

CAD学习开发

怎么没人理会呢？？高手给点建议

mccad

不好意思，帮助中有自相矛盾的地方。

确实是可以同时修改多个顶点。