vb写r14程序的一个问题

longcs · 发表于 2003-11-1 12:28:00

请教各位，我用VB写R14的程序，现设gxx为一多义线，系统不承认gxx.delete，是否不支持此方法还是另有原因？
而且，用ZOOMALL也不承认，在vba FOR R2000下很好的在VB下就不行了

efan2000 · 发表于 2003-11-1 13:48:00

应该是另有原因吧，检查一下它所在层的设置，有没有被锁定、冻结等情况。

longcs · 发表于 2003-11-1 15:27:00

不是的，是刚生产的多义线

longcs · 发表于 2003-11-2 23:14:00

怎么没有人帮忙呀

mccad · 发表于 2003-11-3 07:07:00

有些程序不是你贴上一句出问题的语句大家就可以帮你找到原因。
有些原因是多方面的，如果你的程序是不能公开的，给我们来信吧，我们看过后再给答复。

china-hz · 发表于 2003-11-3 08:56:00

这是不是R14本身的问题呢，我也不知道。我以前用R14时，选择集中选择如线、圆、弧等，但用delete都不能删除。所以后来干脆用不用R14了，要气死人的呢！

longcs · 发表于 2003-11-4 21:43:00

版主，原代码如下：
Private Sub calcenpoint(ByRef coord1() As Double)'其参数为一多边形顶点坐标数组
Dim polygon As Variant
Dim jzx(0) As Object
Dim cen As Variant
Set jzx(0) = moSpace.AddLightWeightPolyline(coord1)  '通过多边形数组增加多义线
polygon = moSpace.AddRegion(jzx)                         '通过多义线增加面域
cen = polygon(0).Centroid                                     '求面域的质心
cenp(0) = cen(0): cenp(1) = cen(1)
jzx(0).Layer = "0"
polygon(0).Layer = "0"
polygon(0).Delete                                                 '删除多义线
jzx(0).Delete                                                       '删除面域
End Sub
程序最后两句polygon(0).Delete 和jzx(0).Delete不能运行，提示为该对象不支持次属性或方法
请问，是r14本身的问题吗？