CLARKLEE 发表于 2005-3-25 10:51:00

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

现在又遇到新的问题，在vb状态下，无法实现物体移动即object.move不能用，而且object.scaleentity也不能用，总提示无效属性


好像能用的东西很少，包括还有.addline之类的都不能用，是不是还需要加载其他东西才行


本来此帖我在上一个问题连续发表的，但是无人响应，我发现首贴，地响应速度最快


源码如下：


        ScaleFactor = oldblkwidth / newblkwidth<BR>                                                                                                                                                                               'Set obj1 = obj<BR>                                                                                                                                                                               'obj.ScaleEntity newrightpoint, ScaleFactor<BR>                                                                                                                                                                               obj.XScaleFactor = ScaleFactor<BR>                                                                                                                                                                               obj.YScaleFactor = ScaleFactor<BR>                                                                                                                                                                               obj.Update<BR>                                                                                                                                                                               'dwg.ActiveDocument.SendCommand "_move" &amp; vbCr &amp; obj &amp; vbCr &amp; newrightpoint &amp; vbCr &amp; oldrightpoint &amp; vbCr<BR>                                                                                                                                                                               'obj.BasePoint = newrightpoint<BR>                                                                                                                                                                               'obj.Delete<BR>                                                                                                                                                                               <BR>                                                                                                                                                                               'dwgfile.ModelSpace.InsertBlock oldrightpoint, newblk, ScaleFactor, ScaleFactor, ScaleFactor<BR>                                                                                                                                                                               <BR>                                                                                                                                                                               'dwg.ActiveDocument.SendCommand "_scale" &amp; vbCr &amp; obj &amp; vbCr &amp; ScaleFactor &amp; vbCr<BR>                                                                                                                                                                                       '第五步，移动新块到旧块的原位置<BR>                                                                                                                                                                                       dwg.Visible = True<BR>                                                                                                                                                                                        <FONT color=#f73809> obj.Move newrightpoint, oldrightpoint</FONT><BR>                                                                                                                                                                                       <B>运行到此出错！！！！！！！</B><BR>                                                                                                                                                                                       dwg.Update<BR>                                                                                                                                                                                       dwg.Visible = False<BR>                                                                                                                                                                                       'dwg.ZoomAll<BR>                                                                                                                                                                                       


再次请斑竹帮忙呀？！！ <BR>谢谢

王咣生 发表于 2005-3-25 21:30:00

reply

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

CLARKLEE 发表于 2005-3-26 16:09:00

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


dim newrightpoint(0 to 2) as Variant
页: [1]
查看完整版本: 在vb状态下，无法实现物体移动即object.move不能用