sharksun 发表于 2004-11-29 16:15:00

[求助]请教一个“块”相关的问题

以下是出现错误的代码的一部分:


Public Sub Doc_ObjectModified(ByVal Obj As Object)<BR>               Dim intI As Integer


               Dim blockObj1 As AcadBlock, blockObj2 As AcadBlock<BR>               Dim BlockRefObj As AcadBlockReference<BR>               Dim insertionPnt(0 To 2) As Double<BR>               insertionPnt(0) = 0<BR>               insertionPnt(1) = 0<BR>               insertionPnt(2) = 0<BR><FONT style="BACKGROUND-COLOR: #f70968">               Set blockObj1 = AcadApp.ActiveDocument.Blocks.Add(insertionPnt, "Block_LateralV1")</FONT><BR>               Set blockObj2 = AcadApp.ActiveDocument.Blocks.Add(insertionPnt, "Block_LateralV2")<BR>。。。。。<BR>。。。。。


提示:对象已经打开进行读取。 什么意思? 应该如何改动?<BR>多谢。

雪山飞狐_lzh 发表于 2004-11-29 16:19:00

不能改变触发该事件的对象,你在什么操作下触发该事件的?

sharksun 发表于 2004-11-29 16:29:00

我在改变一个样条曲线时触发该事件,使之自动改变另一条与其有关联的样条曲线。不可以么?(曲线已经绘制好,并编了号)

sharksun 发表于 2004-11-29 16:31:00

以下进行判断计算绘制等工作。


if typeof obj Is acasspline then


..............


end if

雪山飞狐_lzh 发表于 2004-11-29 19:33:00

没有完整的代码,没办法判断,:),有可能该过程中改变了触发事件的对象


可以看看这里:<BR><A href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=29620" target="_blank" >http://bbs.mjtd.com/forum.php?mod=viewthread&tid=29620</A>
页: [1]
查看完整版本: [求助]请教一个“块”相关的问题