vb写r14程序的一个问题

longcs

请教各位，我用VB写R14的程序，现设gxx为一多义线，系统不承认gxx.delete，是否不支持此方法还是另有原因？

而且，用ZOOMALL也不承认，在vba FOR R2000下很好的在VB下就不行了

efan2000

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

longcs

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

longcs

怎么没有人帮忙呀

mccad

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

china-hz

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

longcs

版主，原代码如下：
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本身的问题吗？

mccad

你可以将这样试试
Dim objRegion As AcadEntity
Dim ojbPline as AcadEntity
set objRegion=polygon(0)
Set objPline=jzx(0)
objRegion.Delete
objPline.Delete

longcs

在vb r14环境下不能定义变量为AcadEntity
只能是object
好像也不行一样

zxj_76

R14下有很多命令不支持，如ZOOM ALL，另外从R14.01才开始支持前期绑定（AcadEntity），R14仅支持后期绑定（Object），不过在2000以后就不用考虑这些问题了，现在做程序我认为不用考虑R14的情况，用的人已经不多了。