[求助]：AcadLWPolyline重赋顶点数组的疑问

gogogo168 · 发表于 2005-10-21 10:31:29

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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"...的提示,,,请问是什么问题?????

lzljy · 发表于 2005-10-21 23:12:17

Sub sss()
Dim linlwPline As AcadLWPolyline
Dim myentity As AcadObject
Dim pp As Variant
ThisDrawing.Utility.GetEntity myentity, pp, "lll"
Set linlwPline = myentity
''myEntity是选定的轻量多段线
Dim lwplPoint(0 To 3) As Double
lwplPoint(0) = 0
lwplPoint(1) = 0
lwplPoint(2) = 1
lwplPoint(3) = 1

'''lwplPoint数组已赋值
linlwPline.Coordinates = lwplPoint

End Sub

该程序在我的机子上运行没有问题。你的问题可能是cad不稳定造成的。

mountains3 · 发表于 2005-10-22 10:45:28

我在2004下试了，程序没有问题

gogogo168 · 发表于 2005-10-26 20:04:19

多谢,,可能就是cad的问题

chman · 发表于 2005-10-28 19:05:35

线分3D线和2D线
不同的线，选择的参数不一样的
至少
一个是x,y
一个是x,y,z

账号		自动登录	找回密码
密码			立即注册

[求助]：AcadLWPolyline重赋顶点数组的疑问

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子