[Ingpro]

Если в этом коде

Код:

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

 (defun c:пш (/ e r)
 (setq e (entlast))
 (command "_.rectang" "\\" "\\")
 (if (/= e (setq r (entlast)))
   (command "_.-hatch" "S" r "" "P" "SOLID" "")
 )
 (princ)
)

заменить SOLID на STEEL, например,

Код:

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

 (defun c:пш (/ e r)
 (setq e (entlast))
 (command "_.rectang" "\\" "\\")
 (if (/= e (setq r (entlast)))
   (command "_.-hatch" "S" r "" "P" "STEEL" "")
 )
 (princ)
)

всё-равно штрихует SOLID, подскажите, пожалуйста, что не так в коде.

[Сергей812]

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

[Ingpro]

Код:

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

 (defun c:пш1 (/ e r)
 (setq e (entlast))
 (command "_rectang" "\\" "\\")
 (if (/= e (setq r (entlast)))
   (command "_hatch" "S" r "" "P" "STEEL" "")
 )
 (princ)
)

Ничего не меняется, всё-равно штрихует SOLID

[Кулик Алексей aka kpblc]

А такой стиль вообще существует?

[Ingpro]

Сообщение от Кулик Алексей aka kpblc А такой стиль вообще существует?

Дык, вообще ни на какой другоЙ не меняется, иногда выскакивает ANGLE (когда меняешь SOLID на другой)

[Сергей812]

от того, что заменили консольную локализованную версию команды на просто локализованную - она вдруг нелокализованные параметры не станет воспринимать. Сначала руками добиваетесь работы команды в комстроке, потом уже в лисп переносите. Это если используете командные методы в лиспе, конечно.

[Ingpro]

Сообщение от Сергей812 нелокализованные

Читаю по ссылке:
"Поэтому лично я (Алексей) при неизбежности использования команд (бывает такое, бывает) делаю таким образом:
Имя команды - полностью на английском языке, перед именем устанавливается знак подчеркивания и точка (например, _.-purge)
Каждая опция команды предваряется знаком подчеркивания (например, _r). Точка не устанавливается - она будет только мешаться".
Алексей, так устанавливать точку или нет?

[Сергей812]

кроме лени, что мешает в комстроке акада попробовать варианты на пустом/ненужном файле?)

[Ingpro]

Код:

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

 (defun c:пш2 (/ e r)
 (setq e (entlast))
 (command "_rectang" "\\" "\\")
 (if (/= e (setq r (entlast)))
   (command "_.-hatch" "_S" r "" "_P" "_STEEL" "")
 )
 (princ)
)

Вот в этом варианте вроде работает, но слишком много вопросов в ком. строке, это как бы не надо, просто прямоугольник и заштриховался, как подправить?
Пишет в ком. строке:
"Укажите точку первого угла или [Фаска/Уровень/Сопряжение/Высота/Ширина]:
Укажите точку второго угла или [Площадь/Размеры/поВорот]:
Команда: _.-hatch
Текущий образец штриховки: _STEEL
Внутренняя точка или [Свойства/Выбрать объекты/пОстроить контур/удалить Контуры/Дополнительные/поРядок прорисовки/Исходная точка/Аннотативный/Цвет штриховки/сЛой/Прозрачность]:"

Код:

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

 (defun c:пш1 (/ e r)
 (setq e (entlast))
 (command "_rectang" "\\" "\\")
 (if (/= e (setq r (entlast)))
   (command "_.hatch" "_S" r "" "_P" "_STEEL" "")
 )
 (princ)
)

А в этом варианте сразу штрихует, но правда SOLID, и ещё пишет "Неизвестная команда "ПШ1"
Отличие двух кодов в "_.-hatch" и "_.hatch"

[Кулик Алексей aka kpblc]

Сто лет уже не создавал штриховки, тем более командными методами. Но попробуй примерно так:
(vl-cmdf "_.-hatch" "_s" r "" "_p" "STEEL")
Сработает или нет - не представляю.

[Ingpro]

Сообщение от Кулик Алексей aka kpblc (vl-cmdf "_.-hatch" "_s" r "" "_p" "STEEL")

Код:

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

 (vl-load-com)
(defun c:пш3 (/ e r)
 (setq e (entlast))
 (command "_rectang" "\\" "\\")
 (if (/= e (setq r (entlast)))
   (vl-cmdf "_.-hatch" "_s" r "" "_p" "STEEL")
 )
 (princ)
)

спрашивает масштаб, наклон, потом внутр. точку и ничего не происходит, только прямоугольник чертится...

[Сергей812]

вставляете пустые кавычки для имитации ввода по количеству запросов

Код:

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

 (vl-cmdf "_.-hatch" "_s" r "" "_p" "STEEL" "" "" "") 

и, кстати, штриховка может выглядеть как SOLID просто из-за неподходящего масштаба.

[Ingpro]

Сообщение от Сергей812 штриховка может выглядеть как SOLID просто из-за неподходящего масштаба

Нет в свойствах SOLID.
Сергей812, спасибо, код заработал, рисуется прямоугольник сразу со штриховкой STEEL:

Код:

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

  (vl-load-com)
(defun c:пш4 (/ e r)
 (setq e (entlast))
 (command "_rectang" "\\" "\\")
 (if (/= e (setq r (entlast)))
   (vl-cmdf "_.-hatch" "_s" r "" "_p" "STEEL" "" "" "") 
 )
 (princ)
)

Проверю ещё с другими стилями...
С ANSI136 не получилось, с ANGLE сработало, наверное, только со стандартными стилями можно.
А какую функцию выполняют "" "" "" после "STEEL"?

[Сергей812]

Сообщение от Ingpro А какую функцию выполняют "" "" "" после "STEEL"?

выше же написал

Сообщение от Сергей812 вставляете пустые кавычки для имитации ввода по количеству запросов

т.е. имитирует нажатия Enter за пользователя

[Ingpro]

Сообщение от Сергей812 имитирует нажатия Enter за пользователя

Теперь понятно, спасибо.