Автоматическое дописывание слов

Создание плиток

Пусть необходимо добавить к программе следующий фрагмент кода:

ObjectCreationStyle (strcase (cdr (assoc 3 BoundaryData)))

(if (equal ObjectCreationStyle "COMMAND")

(progn

(setq firstCenterPt(polar rowCenterPt (Degrees->Radians 45) distanceOnPath))

(gp:Create_activeX_Circle)

)

Сейчас можно не тратить время на изучение содержимого этого кода. Он используется только в качестве примера, иллюстрируя способы обращения с длинными именами переменных и функций.

VLISP может автоматически дописывать длинные слова по их начальным буквам.

Для использования функции дописывания слов в Visual LISP

Переместите курсор в конец файла gpdraw.lsp и введите следующий код:

ObjectCreationStyle (strcase (cdr (assoc 3 BoundaryData)))

(if (equal Ob

Нажмите CTRL + ПРОБЕЛ.

VLISP находит ближайшее соответствие для двух введенных последними букв и автоматически дописывает слово, позволяя не тратить время на ввод оставшихся 17 букв.

Допишите строку до конца:

(if (equal ObjectCreationStyle "COMMAND")

Добавьте следующие строки:

(progn

(setq firstCenterPt(p

Нажмите CTRL + ПРОБЕЛ.

VLISP подставляет самое последнее слово, начинающееся на «p», которым в данном случае оказывается progn. Однако нам нужно слово polar. Если продолжать нажимать CTRL + ПРОБЕЛ, VLISP начнет циклически перебирать все подходящие слова, использованные в коде. И, в конце концов, будет найдено слово polar.

Удалите только что введенный код. Он был нужен только в качестве примера.

Функция дописывания слов доступна также и через меню VLISP «Поиск».

Содержание раздела