vb写r14程序的一个问题
本帖最后由 作者 于 2003-11-1 15:28:39 编辑请教各位，我用VB写R14的程序，现设gxx为一多义线，系统不承认gxx.delete，是否不支持此方法还是另有原因？
而且，用ZOOMALL也不承认，在vba FOR R2000下很好的在VB下就不行了 应该是另有原因吧，检查一下它所在层的设置，有没有被锁定、冻结等情况。 不是的，是刚生产的多义线 怎么没有人帮忙呀 有些程序不是你贴上一句出问题的语句大家就可以帮你找到原因。
有些原因是多方面的，如果你的程序是不能公开的，给我们来信吧，我们看过后再给答复。 这是不是R14本身的问题呢，我也不知道。我以前用R14时，选择集中选择如线、圆、弧等，但用delete都不能删除。所以后来干脆用不用R14了，要气死人的呢！ 版主，原代码如下：
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本身的问题吗？ 你可以将这样试试
Dim objRegion As AcadEntity
Dim ojbPline as AcadEntity
set objRegion=polygon(0)
Set objPline=jzx(0)
objRegion.Delete
objPline.Delete 在vb r14环境下不能定义变量为AcadEntity
只能是object
好像也不行一样 R14下有很多命令不支持，如ZOOM ALL，另外从R14.01才开始支持前期绑定（AcadEntity），R14仅支持后期绑定（Object），不过在2000以后就不用考虑这些问题了，现在做程序我认为不用考虑R14的情况，用的人已经不多了。
页:
[1]
2