Список штриховок , а лучше диалог их выбора.

[BearDyugin]

Ни как не могу найти как их достать?
В табличных данных их нет :-(
Поиском в тырнете нашёл только старую тему http://www.caduser.ru/forum/index.php?PAGE_NAME=read&FID=23&TID=21476 но там все дружно поулыбались и ни чего не ответили.

Суть в чём, нужно как-то дать пользователю выбрать нужную ему штриховку. Опять же замечал, что на чужих(присланных) файлах, в списке штриховок есть пользовательские, но по факту описания их нет, и воспользоваться ими нельзя, чтоб такие сразу  отсечь.

[Александр Ривилис]

В зависимости от состояния переменной MEASUREMENT (https://knowledge.autodesk.com/support/autocad/learn-explore/caas/CloudHelp/cloudhelp/2016/ENU/AutoCAD-Core/files/GUID-1D074C55-0B63-482E-8A37-A52AC0C7C8FE-htm.html) для поиска штриховок используются файлы acad.pat или acadiso.pat (при MEASUREMENT = 1)
В любом случае готового решения для AutoLISP/VisualLisp нет - разве что запускать команду HATCH, а потом анализировать значение системной переменной HPNAME (https://knowledge.autodesk.com/support/autocad/learn-explore/caas/CloudHelp/cloudhelp/2016/ENU/AutoCAD-Core/files/GUID-C562EB1D-239D-4AFC-BC77-48F174834EE5-htm.html)

[Александр Ривилис]

Сразу добавлю, что документированного способа нет и в ObjectARX/.NET API. Есть пример недокументированного использования в .NET API: http://through-the-interface.typepad.com/through_the_interface/2007/03/showing_autocad.html

[BearDyugin]

разве что запускать команду HATCH

решил пойти по этому пути, мне даже показалось так удобнее вызвать диалог штриховки, ведь кроме имени, там ещё много всяких свойств, таких как масштаб, угол и прочие. Но не тут то было 
из командно строки всё хорошо, можно открыть диалог зайдя в seTtings

Command: HATCH
Pick internal point or [Select objects/seTtings]: _t

а вот из AutoLISP нет, там немного другие параметры

Command: _vlide HATCH
Enter a pattern name or [?/Solid/User defined/Gradient] <AR-BRSTD>:

как будто мы вызвали -HATCH и зашли в Properties

Command: -HATCH
Current hatch pattern:  AR-BRSTD
Specify internal point or [Properties/Select objects/draW boundary/remove Boundaries/Advanced/DRaw order/Origin/ANnotative/hatch COlor/LAyer/Transparency]: _p
Enter a pattern name or [?/Solid/User defined/Gradient] <AR-BRSTD>:

[Александр Ривилис]

Обрати внимание:

Command: (command "HATCH")
HATCH
Enter a pattern name or [?/Solid/User defined/Gradient] <ANGLE>: nil
Enter a pattern name or [?/Solid/User defined/Gradient] <ANGLE>: *Cancel*

Command: (initdia)(command "HATCH")
HATCH
Pick internal point or [Select objects/Undo/seTtings]: nil
Pick internal point or [Select objects/Undo/seTtings]: *Cancel*