Sub Bmrkk() Dim startPoint As Point3d Dim point As Point3d, point2 As Point3d Dim lngTemp As Long Dim oMessage As CadInputMessage ' Enviar datos desde el teclado que puede ser una cadena de comando CadInputQueue.SendKeyin "LEVELMANAGER LEVEL RENAME LIST " CadInputQueue.SendKeyin "LEVEL SET NAME ""AREAS INICIALES"" ""mod-AREAS INICIALES""" ' Definir una variable asociada a un cuadro de diálogo SetCExpressionValue "lvlmangrGlobals.levelName", "mod-AREAS INICIALES", "LVLMANGR" CommandState.StartDefaultCommand End Sub

## Table of Contents

- [Usage](#usage)
- [API](#api)

## Usage