在vb状态下，无法实现物体移动即object.move不能用

CLARKLEE

现在又遇到新的问题，在vb状态下，无法实现物体移动即object.move不能用，而且object.scaleentity也不能用，总提示无效属性 好像能用的东西很少，包括还有.addline之类的都不能用，是不是还需要加载其他东西才行 本来此帖我在上一个问题连续发表的，但是无人响应，我发现首贴，地响应速度最快 源码如下： ScaleFactor = oldblkwidth / newblkwidth
'Set obj1 = obj
'obj.ScaleEntity newrightpoint, ScaleFactor
obj.XScaleFactor = ScaleFactor
obj.YScaleFactor = ScaleFactor
obj.Update
'dwg.ActiveDocument.SendCommand "_move" & vbCr & obj & vbCr & newrightpoint & vbCr & oldrightpoint & vbCr
'obj.BasePoint = newrightpoint
'obj.Delete

'dwgfile.ModelSpace.InsertBlock oldrightpoint, newblk, ScaleFactor, ScaleFactor, ScaleFactor

'dwg.ActiveDocument.SendCommand "_scale" & vbCr & obj & vbCr & ScaleFactor & vbCr
'第五步，移动新块到旧块的原位置
dwg.Visible = True
obj.Move newrightpoint, oldrightpoint
运行到此出错！！！！！！！
dwg.Update
dwg.Visible = False
'dwg.ZoomAll
再次请斑竹帮忙呀？！！
谢谢

王咣生

你的代码不全,而且欠规范!
能贴出完整的程序吗?

CLARKLEE

谢谢斑竹的关心，上面的问题我已经解决了，原因是我定义点错误


dim newrightpoint(0 to 2) as Variant