tema Re: Ayuda con rutina lisp en AutoCAD - Todos los productos - Foro en Español

Ayuda con rutina lisp

Anonymous — Thu, 03 Oct 2019 19:42:10 GMT

hola quisiera saber si alguien me puede ayudar con algún lisp que haga la siguiente rutina

detallo por que me es difícil redactar

Tengo un archivo csv con 3 columnas y 16 filas

columna 1 "tag" columna 2 "cod" y columna 3 "descripción"
hay alguna manera que autocad reconozca un texto dentro del dibujo con el mismo texto dentro de la columna 1 fila 1 y lo coloque en una tabla con su cod y su descripción pero si no lo encuentra salte a la siguiente linea y siga buscando fila por fila?

gracias por la ayuda

Re: Ayuda con rutina lisp

j_cordero — Thu, 03 Oct 2019 23:10:32 GMT

SI ES POSIBLE, PERO TE RECOMIENDO HACERLO EN VBA .

PUEDES SUBIR LOS ACHIVOS PARA AYUDARTE (EXCEL Y CAD)

Re: Ayuda con rutina lisp

Anonymous — Fri, 04 Oct 2019 03:32:05 GMT

aca subo los archivos...

https://www.dropbox.com/sh/mg74lsrc9osiysz/AAAUKLMuh7gaV5rgKgF4LKKOa?dl=0

Re: Ayuda con rutina lisp

j_cordero — Fri, 04 Oct 2019 07:12:57 GMT

Hola estuve revisando tus documentos y va ser complicado hacer una automatización de forma sencilla ya que tu dibujos no están preparados para extraer la información y compararla con la lista de excel, he intentado y veo que se necesita un poco de tiempo para analizar y generar todas las condiciones necesarias para que puedan compararse dos cadenas y aunque las genere solo va aplicar para este dibujo te recomiendo que replantes tu idea.

El problema radica en los mtext (multitextos) en ellos existen formatos en las cadenas y en algunos casos explotándolos se soluciona pero rompe las cadenas en otros ni explotándolos ya que se pasan con los contenidos que ellos tienen.

Te recomiendo hacer una guía para el que generar esta documentación en CAD en donde quizás se me ocurre poner en un layer los tag en otro los códigos ... etc. Y que sean textos ya que es mas sencillo procesarlos y ahora si hacer la automatización.

Te pongo el código este es útil cuando quieres pasar los textos y mtext.

Public Sub macro()

'    Activamos autocad
    Dim AcadApp As AcadApplication
    Set AcadApp = GetObject(, "AutoCAD.Application")
'    Obtenemos el documento actvo
    Dim ThisDrawing As AcadDocument
    Set ThisDrawing = AcadApp.ActiveDocument
'    Creamos una seleccion
    Dim ssetObj As AcadSelectionSet
    Set ssetObj = ThisDrawing.SelectionSets.Add("Seleccisssosnsss")
    ssetObj.SelectOnScreen
    Dim clase As String
    
    Dim objSS As AcadEntity
    Dim matrix() As Variant
    Dim txtcad As AcadText
    Dim mtxtcad As AcadMText

    Dim i As Long
    i = 1
    
'    Guardamos Objetos
    For Each objSS In ssetObj
        clase = objSS.ObjectName
        Select Case clase
            Case "AcDbText"
                Set txtcad = ThisDrawing.HandleToObject(objSS.Handle)
                ReDim Preserve matrix(1 To i)
                matrix(i) = txtcad.TextString
                i = i + 1
                
            Case "AcDbMText"
                Set mtxtcad = ThisDrawing.HandleToObject(objSS.Handle)
                cadena = mtxtcad.TextString
                ReDim Preserve matrix(1 To i)
                matrix(i) = mtxtcad.TextString
                i = i + 1
        End Select
    Next
    
    ssetObj.Delete
    
'    Guardamos datos en excel
    Application.ActiveSheet.Name = "Datos"
    Range("A1").Activate
    
    For k = 1 To UBound(matrix)
        ActiveCell.Value = "'" & matrix(k)
        ActiveCell.Offset(1, 0).Activate
    Next
    
    


End Sub

Te pongo un video que estaba haciendo:

Saludos

Re: Ayuda con rutina lisp

Anonymous — Fri, 04 Oct 2019 12:31:40 GMT

Gracias estimado voy a seguir investigando...

El problema radica en los mtext (multitextos) en ellos existen formatos en las cadenas y en algunos casos explotándolos se soluciona pero rompe las cadenas en otros ni explotándolos ya que se pasan con los contenidos que ellos tienen.

creo que eso se soluciona con burst ? o me equivoco?