AcadLWPolyline重赋顶点数组的疑问

gogogo168

Dim linlwPline As AcadLWPolyline
Set linlwPline = myEntity
''myEntity是选定的轻量多段线
Dim lwplPoint(0 to 3) As Double
'''lwplPoint数组已赋值
linlwPline.Coordinates = lwplPoint

但是,重赋顶点坐标时出现"致命错误:Unhandled Access Violation Reading 0x0004 Exception at 6468dfd6h"...的提示,,,请问是什么问题?????

shijibao01

顶

wyj7485

先删除选定的轻量多段线,重赋顶点坐标后再生成多段线.

tnt1095

你先计算出该点在顶点中处于什么位置，再插入顶点命令

Object.AddVertex j, newVertex1
Object.Update

j 就是你算出来的该是第多少个顶点啊1

zhang007

Sub Example_AddLightWeightPolyline()
    ' This example creates a lightweight polyline in model space.
   
    Dim plineObj As AcadLWPolyline
    Dim points(0 To 9) As Double
   
    ' Define the 2D polyline points
    points(0) = 1: points(1) = 1
    points(2) = 1: points(3) = 2
    points(4) = 2: points(5) = 2
    points(6) = 3: points(7) = 2
    points(8) = 4: points(9) = 4
    Dim coord As Variant
    ' Create a lightweight Polyline object in model space
    Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    ZoomAll
    Dim point(0 To 13) As Double
    point(0) = 1: point(1) = 1: point(2) = 0
    point(3) = 1: point(4) = 2: point(5) = 0
    point(6) = 2: point(7) = 2: point(8) = 0
    point(9) = 3: point(10) = 2: point(11) = 0
    point(12) = 4: point(13) = 4 

    coord = point

    plineObj.Coordinates = point 'coord
    plineObj.Coordinates = coord
    '以上两种方法均可行
    plineObj.Update
End Sub

我正有这方面的应用，所以多看了几眼，

我用帮助中的例子测试，没什么问题。

gogogo168

多谢各位的回答!方法我与zhang007的一样,但确实出现了"致命错误:Unhandled Access Violation Reading 0x0004 Exception at 6468dfd6h",这样的错误提示!!我现在不得已把原来的线删了,重新画了一根,但要重新赋图层/颜色/线宽........我依然对为什么出现这样的错误没有答案!!!!也有人告诉我可能是autoCAD自己的问题

liub1979

好像是有这个毛病

增加节点可以 减少时老出现这种错误

不是"致命错误:"就是线留下了个长尾巴

呵呵 重新画一根吧