| Pregunta: | 15151 - AUTOCAD DESDE VISUAL BASIC |
| Autor: | Hernan Martinez Lamas |
| Lei en el foro de lawebdelprogramador sobre una referencia para manejar el autocad desde visual basic, yo estoy necesitando extraer los datos del rotulo de planos hechos con autocad, me sirve para esto???
Tendrian algun codigo de ejemplo para facilitarme?? O decirme donde puedo encontrar informacion sobre esta referencia? Muchas Gracias | |
| Respuesta: | Frank Deivid Bolivar Acevedo |
| Tal vez este código le puede ayudar, desde una macro en Acad.
Crear un formulario con un botón cmdOK y pegar este código: Option Explicit Dim AcadDoc As Object Dim objBloque As Object Dim PtoBase As Variant Dim varAtributos As Variant Dim i As Integer Private Sub UserForm_Initialize() Set AcadDoc = GetObject(, "Autocad.Application").ActiveDocument End Sub Private Sub cmdOk_Click() Me.Hide AcadDoc.Utility.GetEntity objBloque, PtoBase, "Seleccione bloque con atributos:" varAtributos = objBloque.GetAttributes For i = LBound(varAtributos) To UBound(varAtributos) MsgBox "Tag: " & varAtributos(i).TagString & vbNewLine & _ "Texto: " & varAtributos(i).textString Next i End Sub | |
| Respuesta: | Marito |
| Tengo un ocx para mandarte o
http://download.com.com/3001-2408-1400022.html Salu2. Mario. Espero te sirva. | |