[求助]请教一个“块”相关的问题
以下是出现错误的代码的一部分: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>多谢。 不能改变触发该事件的对象,你在什么操作下触发该事件的? 我在改变一个样条曲线时触发该事件,使之自动改变另一条与其有关联的样条曲线。不可以么?(曲线已经绘制好,并编了号) 以下进行判断计算绘制等工作。
if typeof obj Is acasspline then
..............
end if 没有完整的代码,没办法判断,:),有可能该过程中改变了触发事件的对象
可以看看这里:<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]