¿Cómo insertar bloques dwg en gráficos CAD usando programación VB.NET?

¿oscuro? ¿ppr? ¿Como? ¿Resultado del punto rápido? =?Editado por GetPoint("Seleccione el punto de inserción:")

¿Dim? punto? ¿Como? ¿Punto3d? =?ppr. Valor

Utilidad. WriteToEditor(pt.ToString())

¿Oscuro? ¿Bloque pid? ¿Como? ¿Nuevo? PIDBlock()

¿Personalizar la clase de bloque y guardar la ruta y el nombre del bloque?

pidBlock. ¿nombre? =?"Muestra"

pidBlock. ¿camino? =?BlockPath? y amplificador? " b_sample.dwg "

¿Usar? ¿BlkDb? ¿Como? ¿Nuevo? Base de datos (¿falso,? real)

¿Leyendo? ¿dibujar?

blkDb. ReadDwgFile(pidBlock.Path,?System.IO.FileShare.Read,?Really?Nothing)

blkDb. CloseInput(true)

¿Usar? ¿Bloqueo de documentos? ¿Como? ¿Bloqueo de documentos? =?Médico. LockDocument()

¿Haga esto primero para varios documentos o obtendrá un error fatal?

¿Usar? t? ¿Como? ¿comercio? =?Médico. administrador de transacciones . iniciar transacción()

¿Insertar? ¿él? ¿Como? ¿respuesta? ¿Nuevo? ¿blindaje?

¿Oscuro? ¿IDBTR? ¿Como? ¿Id. de objeto? =?Médico. Database.Insert(pidBlock.name,?blkDb,?false)

¿Crear? ¿respuesta? ¿árbitro? ¿A dónde ir? ¿eso? ¿blindaje?

¿Oscuro? ¿Por cierto? ¿Como? ¿Tabla de bloques? =?DirectCast(t.GetObject(doc.Database.BlockTableId,?OpenMode.ForRead),?BlockTable)

¿Dim? ¿btr? ¿Como? ¿BlockTableRecord? =?direct cast(t . GetObject(Bt(registro de tabla de bloques. Espacio modelo),? Modo abierto. ForWrite),? BlockTableRecord)

¿Usar? ¿Corajudo? ¿Como? ¿Nuevo? BlockReference(punto, idBTR)

btr. Apéndice Entidad(bref)

t.AddNewlyCreatedDBObject(bref, true)

¿Fin? ¿Dejar de usar

t.submit()

? ¿Dejar de usar

? ¿Dejar de usar

? Usar