¡Urgente! Me gustaría preguntar si quiero crear un bloque en CAD VBA y el objeto es el contenido del conjunto de selección. ¿Qué declaración debo usar? (¡Un ejemplo también estaría bien!)

Sub Ejemplo_AddMInsertBlock()

Dim círculoObj como AcadCircle

Dim centerPoint(0 a 2) como doble, InsertPoint(0 a 2) como doble

Atenuar radio como doble

Atenuar nuevoMBlock como AcadMInsertBlock

Atenuar nuevoBlock como AcadBlock

Establecer nuevoBloque = ThisDrawing.Blocks.Add(centerPoint, "CBlock ")

Establecer círculoObj = ThisDrawing.Blocks("CBlock").AddCircle(centerPoint, radio)

Establecer newMBlock = ThisDrawing.ModelSpace.AddMInsertBlock(InsertPoint, "CBlock", 1 , 1, 1, 1, 2, 2, 1, 1)

Para conocer el método en la ayuda de CAD, cambie Set círculoObj = ThisDrawing.Blocks("CBlock").AddCircle(centerPoint, radio) al suyo Una selección de objetos de entidad es suficiente