[Grinzaid]

Задача вот какая:
для вычерчивания развёрток керамики нужно начинать штриховку с определённого угла, и угол этот на каждой стене другой. Понятно, что нужно двигать UCS для каждой стены. Так вот, как бы эту последовательность действий объединить в одну команду, вначале запрашивающую новое начало координат (без поворота UCS), а потом вызывающую окошко BHATCH?

Второй вопрос:
хорошо бы видеть, где в данный момент находится начало координат, но его иконка очень громоздкая. Как бы изменить UCS icon на более компактный, не путающийся с линиями чертежа? Где и в каком формате прописан этот мастодонт?

[Torino]

Макрос подойдет?

_ucs;_o;\_bhatch;

А за размер значка отвечает команда _UCSICON с опцией _p

[Grinzaid]

В 2000 нет опции "p" в _UCSICON. Да и вид его мне не нравится. Можно ли свой значок внедрить?

А по первому вопросу я чёй-то стормозил - сам ведь могу лиспик написать. Обленился

[Grinzaid]

Вот ведь ерунда какая, BHATCH в текстовом режиме открывается. А как его окошком открыть? Рятуйте, граждане хорошие!!! :roll:

Код:

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

(defun c:BHH ()
(command "UCS" "m"  pause "")	
(command "BHATCH")	
)

[Андрей С.]

Вообще-то штриховка "начинается" от точки, которая хранится в переменной SNAPBASE и по умолчанию совпадает с началом координат (а может и не совпадать).
Я это к чему? К тому, что, в отличие от команды _UCS, переменную SNAPBASE можно менять в прозрачном режиме, не прерывая другую команду. Можно, к примеру сделать кнопку с макросом 'snapbase и задавать эту точку прямо "из-под" диалога штриховки. Правда, на время указания из-под диалога отключена привязка, но можно воспользоваться Shift+правая кнопка.

[Apelsinov]

Странное дело - ввожу в vlisp редакторе bhatch - становится синим - типа функция. Пробую без аргументов (bhatch) - аналог (vl-cmdf "bhatch") :shock:

>Grinzaid
А вот как:

Код:

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

(initdia 1)
(command "BHATCH")

[Grinzaid]

Код:

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

(initdia 1) 
(command "BHATCH")

работает отлично! Спасибо!