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