[rebus]

Команда apropos - небольшая оболочка над atoms-family, позволяет искать имена функций и констант по частичному совпадению с заданной строкой или по шаблону с подстановочными символами (подстановочные символы те же, что использует функция wcmatch).

Если заданная строка содержит символы подстановки (один из []#@.*?~,`-), производится поиск поиск по шаблону и с учетом регистра, в противном случае производится поиск указанной подстроки без учета регистра.

Код:

[Выделить все]

 ;;; -*- coding: cp1251-dos -*-

;;; Функция apropos
;;; Ищет имена символов в списке, выдаваемом
;;; функцией atoms-family.
;;; Если шаблон содержит символы подстановки,
;;; производит поиск с помощью функции wcmatch
;;; с учетом регистра, в противном случае
;;; ищет вхождение подстроки без учета регистра.
(defun apropos (pattern / i filter)
  ;; выбор фильтра
  (setq filter (if (wcmatch pattern "*[]#@.*?~[`,``-]*") ; если в шаблоне есть символы подстановки
                   (function (lambda (x) ; будем фильтровать с учетом регистра функцией wcmatch
                     (wcmatch (vl-symbol-name x)
                              pattern)))
                   (function (lambda (x) ; иначе будем искать вхождение подстроки без учета регистра
                     (vl-string-search (strcase pattern)
                                       (strcase (vl-symbol-name x)))))))
  ;; поиск в результате вызова (atoms-family 0)
  ;; можно использовать и (atoms-family 1), тогда не нужны (vl-symbol-name... и (strcase (vl-...
  ;; но этот вызов выдает список строк, преобразованных в верхний регистр
  ;; соответственно, теряется CamelCase имен символов
  (foreach i (vl-remove-if-not filter (atoms-family 0))
           (print i))
  (princ))

;;; Команда для вызова функции apropos
(defun c:apropos ()
  (apropos (getstring t)))

Код:

[Выделить все]

Команда: APROPOS single

vla-put-SingleDocumentMode
acGridLineStyleSingle
vlax-vbSingle
vla-get-SingleDocumentMode

Команда:

Код:

[Выделить все]

Команда: APROPOS vla-get-Ro*

vla-get-RowSpacing
vla-get-RoundDistance
vla-get-Rotation
vla-get-Rows

Команда:

Можно и просто функцией, кому как удобней:

Код:

[Выделить все]

Команда: (apropos "single")

vla-put-SingleDocumentMode
acGridLineStyleSingle
vlax-vbSingle
vla-get-SingleDocumentMode

Код:

[Выделить все]

Команда: (apropos "vla-get-Ro*")

vla-get-RowSpacing
vla-get-RoundDistance
vla-get-Rotation
vla-get-Rows