[VBA] 如何使用匿名块

czj

定义图块匿名块 Set BlockObj = acadDoc.Application.ActiveDocument.Blocks.Add(insertionPnt, "*U"
) '插入匿名块图块出错 Dim blockrefobj As AcadBlockReference
Set blockrefobj = ThisDrawing.ModelSpace.InsertBlock(insertPt, "*U", 1#, 1#, 1#, 0)

mccad

匿名块指的是名称由系统内部分配的块。“*U”不是块名，而是为了让所定义的块成为匿名块所使用的名称。