Los programas CAD necesitan tener definidos Layers (capas) y LineTypes (tipos de linea). Ambas cosas pueden ser consideradas Entidades y guardadas como una clase cualquiera, pero para una rapida consulta implementaremos Colecciones. Entonces el flujo de la informacion sera:

Load ' Cargo una plantilla para empezar a dibujar

For Each entidad

if entidad= Layer then agregar a la Coleccion colLayer[objEntidad, "layer name"]

if entidad = Linetype then agregar a la Coleccion colLinetypes[objEntidad, "line name"]

Next


Para editar los layers, se abre la Form que hizo Tincho, se lee la colección, y al salir se guardan los cambios en las entidades referenciadas por la colección.

Al ser entidades, quedan automáticamente incorporadas al archivo en Load/Save sin necesidad de tocar el código de estas herramientas.

Para los Linetype u otras cosas que vayan surgiendo es igual