关于图形插入的问题

zgyxn · 发表于 2005-9-1 15:27:00

On Error Resume Next
Set blkRefObj = ThisDrawing.ModelSpace.InsertBlock(blkIns, FileName, 1, 1, 1#, 0#)
？？？？
2006中出现错误，可以继续，担不给我插入图纸，Err.Number = -2145386422
好像2002中不怕，请高手指点。（vba编写)

alin · 发表于 2005-9-2 11:20:00

Paste more code please

zgyxn · 发表于 2005-9-2 12:34:00

用insert 插入时，出现以下问题
command:i INSERT
Duplicate definition of block AR3_INFO  ignored.
Duplicate definition of block _DIMX  ignored.
Duplicate definition of block _ArchTick  ignored.
Duplicate definition of block AVE_RENDER  ignored.
Duplicate definition of block AVE_GLOBAL  ignored.
Duplicate definition of block RM_SDB  ignored.
Duplicate definition of block 1  ignored.
Duplicate definition of block 21  ignored.
Duplicate definition of block 23  ignored.
Specify insertion point or
[Basepoint/Scale/X/Y/Z/Rotate/PScale/PX/PY/PZ/PRotate]:
Regenerating model.
在2005以下版本中，用Set blkRefObj = ThisDrawing.ModelSpace.InsertBlock(blkIns, FileName, 1, 1, 1#, 0#)可以自动怱略，在2006中就出现了那个代码。
附文件，请用drawing3插入drawing2,可以看到问题存在

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载