czj 发表于 2005-1-25 14:13:00

[VBA] 如何使用匿名块

定义图块匿名块


        Set BlockObj = acadDoc.Application.ActiveDocument.Blocks.Add(insertionPnt,       "*U"<BR>       )



'插入匿名块图块出错



                               Dim blockrefobj As AcadBlockReference<BR>                               Set blockrefobj = ThisDrawing.ModelSpace.InsertBlock(insertPt,


"*U", 1#, 1#, 1#, 0)



<BR>

mccad 发表于 2005-1-25 22:35:00

匿名块指的是名称由系统内部分配的块。“*U”不是块名，而是为了让所定义的块成为匿名块所使用的名称。
页: [1]
查看完整版本: [VBA] 如何使用匿名块