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

sharksun

以下是出现错误的代码的一部分: Public Sub Doc_ObjectModified(ByVal Obj As Object)
Dim intI As Integer Dim blockObj1 As AcadBlock, blockObj2 As AcadBlock
Dim BlockRefObj As AcadBlockReference
Dim insertionPnt(0 To 2) As Double
insertionPnt(0) = 0
insertionPnt(1) = 0
insertionPnt(2) = 0
Set blockObj1 = AcadApp.ActiveDocument.Blocks.Add(insertionPnt, "Block_LateralV1")
Set blockObj2 = AcadApp.ActiveDocument.Blocks.Add(insertionPnt, "Block_LateralV2")
。。。。。
。。。。。 提示：对象已经打开进行读取。 什么意思？ 应该如何改动？
多谢。

雪山飞狐_lzh

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

sharksun

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

sharksun

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


if typeof obj Is acasspline then


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


end if

雪山飞狐_lzh

没有完整的代码，没办法判断，：），有可能该过程中改变了触发事件的对象 可以看看这里：
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=29620