Hola Maku.
Yo creo que tu archivo ya cumple lo que quieres! Entiendo que querías una herencia... El primer cuadro lo coloreaste a mano y el segundo ha heredado eso, por lo que está esperando que lo colorees a mano también 😁
Fuera de bromas... Una opción sería que lo hagas con formato condicional y otra opción sería que lo hagas con macros, depende por cuál te inclines y si hay limitaciones en el entorno donde piensas ejecutarlo. Los archivos de macros tienen algunas limitaciones a nivel empresarial por las restricciones impuestas, por temas de seguridad, que impiden su ejecución. Ya nos comentas para poder ayudarte con algo
Por
DiegoPC, · publicado
Navegando por la red he encontrado un código para seleccionar objetos de autocad, es el siguiente:
Public AcadDoc As Object
Public AcadUtil As Object
Dim objLinea As AcadObject
Dim Punto As Variant
Sub MacroSeleccion()
Set AcadDoc = GetObject(, "Autocad.Application").ActiveDocument
Set AcadUtil = GetObject(, "Autocad.Application").ActiveDocument.Utility
AcadDoc.Utility.GetEntity objLinea, Punto, "Selecione objeto: "
End Sub
Sin embargo, al ejecutarse en autocad sólo me pone que designe los objetos. No me los selecciona automáticamente.
He encontrado otro código similar, pero no me funciona. Creo que es más adecuado que el otro: es el siguiente:
Dim SS As AcadSelectionSet
Set SS = ThisDrawing.SelectionSets.Add("Prueba")
Call SS.SelectOnScreen
SS.Delete
Dim Entidad as AcadEntity
Set Entidad = SS(0)
el problema creo que está en ThisDrawing.SelectionSets.Add("Prueba")
Si alguien puede echar una mano. Lo único que deseo es seleccionar las líneas del espacio modelo de autocad para copiarlas.