[ViVictor]

Я хотел было создать хоткей для быстрого создания штриховки. По началу было все просто, вводим саму команду, затем паттерн, масштаб и угол наклона: -hatch;ANSI31;0,5;0
Но как быть дальше? Мне предлагают либо выбрать объекты, либо нарисовать полилинию. Бред какой-то! Мне нужна возможность указать точку внутри области (аналог кнопки Pick Points в окне интерфейса создания штриховки). Как быть?

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

Download, В.Свет "Язык макрокоманд"

[ViVictor]

Спасибо за книгу, но судя по беглому просмотру там нет того, что мне надо. Я ее конечно как-нибудь почитаю, так как там довольно много интересного, и, может быть, все же пойму как мне сделать то, что я хочу.
Но вот прямо сейчас может у кого-то есть идеи как мне выбрать пункт Pick Points вместо указания границы штриховки?

----- добавлено через ~28 мин. -----
Все-таки нашел на каком-то английском форуме решение. Надо было использовать -bhatch
Итого, если кого интересует, мой хоткей выглядит вот так: -layer;set;Штриховка;;-bhatch;Properties;ANSI31;0.5;0;
Теперь попробую с помощью лиспа или вба сделать так, чтобы потом возвращался предыдущий активный слой.

[Jonas]

Я сделал такую вот команду. Быстро прощелкиваю нужные области и если нужно двойной клик и ред.штрих. Получается быстрей.

(defun c:bshtr ( / *error* ) (defun *error* (msg) (princ)) (setvar 'cmdecho 0) (setq cl (getvar "clayer")) (command "_-layer" "С" "штриховки" "Ц" "45" "" "") (setvar 'HPBOUNDRETAIN 0) (setvar 'HPANNOTATIVE 1) (setvar 'HPLAYER "штриховки") (setvar 'HPNAME "ANSI31") (setvar 'HPSCALE 1.5) (command "-кштрих" "А" "Н" pause "" ) (setvar 'cmdecho 1) (setvar "clayer" cl) (princ))

Когда случается проблема с незамкнутыми областями вставляю заштрихованный многогранник и за ручки растягиваю по углам.

(defun c:vshtr ( / *error* a a1 p) (defun *error* (msg) (princ)) (setvar 'cmdecho 0) (setq cl (getvar "clayer")) (setvar "clayer" "штриховки") (setvar 'HPBOUNDRETAIN 1) (setvar 'HPANNOTATIVE 1) (setvar 'HPLAYER "штриховки") (setvar 'HPNAME "ANSI31") (setvar 'HPSCALE 1.0) (setvar 'cmdecho 0) (setq a (getint "\nВвдите число точек: ")) (setq a1 (getint "\nВведите примерный радиус области?: ")) (setq p(getpoint "\nУкажите точку вставки: ")) (command "_polygon" a p "" a1 ) (command "_-bhatch" "В" "_last" "" "") (setvar 'cmdecho 1) (setvar "clayer" cl) (princ))