[Pozia]

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

[gomer]

а разве механегз не рисует валы, шестерни, шпоночные соединения?

[getr]

Извиняюсь-совсем забыл что подгонял под свои довески..path_main у меня это "C:\\DOVESKI\\" прописывается в файле mnl а в mnu файле кнопка такая-ID_51 [_Button("Шпоночный паз", "ks_shpon.bmp", "ks_shpon.bmp")]^C^C^P(progn(if (= c:ks_shpo nil)(load (strcat path_main "LISP/Shpon/KS_Shpon"))));ks_shpo;
P.S.если сейчас найду, то прикреплю по новой исходник c CAD HELP by PG

прикрепил..файлы как есть только сделал одно небольшое изменение,о нем написал в readmy...

[E-degtyarev]

Pozia, Изобразил я наскоро программешку, лежит здесь: http://d-rilovo.by.ru или http://d_rilovo.chat.ru или http://d-rilovo.narod.ru, по образу и подобию проката,
выложенного там же. Список набивать не стал - лень и дел много других.
Сделай сам, если потребуется. С посадками не заморачивался. Если что-то нужно дополнить или переделать - пиши, не стесняйся.

[Pozia]

getr, то что нужно! но не совсем. не работает с русской версией автокада. можете ли подправить?
E-degtyarev спасибо за труд, но неудобно вашим пользоваться. гляньте что выложил getr, почти то что нужно, но посадок нет, но это терпимо

[E-degtyarev]

Вот поправил программу getr-a для русскоязычной версии, только все рисуется в одном слое.

[Pozia]

выскакивает ошибка: ошибка: неверный тип аргумента: stringp nil

[E-degtyarev]

Извини, я изменил "прописку" файлов программы. Теперь они должны лежать в любом доступном ACAD-у каталоге. В настройках укажи путь доступа к вспомогательным файлам.

[Лиспер]

Offtop: Вот оно, многофайловый вариант в полный рост Все дополнительные файлы (dcl, sl* и т.п.) по идее можно создавать динамически

[Pozia]

E-degtyarev указал путь сразу же. и ничего. ошибка что я указал. может еще что?

вы случайно еще файлы не переименовывали? может все выложите?

все. допер. переименовал файлы

[gomer]

Сообщение от Лиспер Вот оно, многофайловый вариант в полный рост Все дополнительные файлы (dcl, sl* и т.п.) по идее можно создавать динамически

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

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

Лично мне сейчас некогда искать, но были лиспы, позволяющие читать в строковый массив любые файлы. Хоть arx Но работать с такими лиспами надо весьма осторожно.
Соответственно любой нужный файл на локальной машине читается, загоняется в список, который в нужный момент записывается в соответствующий файл. Который и ищется там, где надо

[Pozia]

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

PS ну и если вдруг получится реализовать рисования на двух слоях, то отдельное спасибо )

[E-degtyarev]

Pozia.Все это легко исполнимо, но не сочти за труд выложи прототип, с которым ты работаешь или сообщи имена слоев, уже существующие в твоем прототипе, и на которых следует рисовать контур, и осевые.
Чтоб не плодить допонительные слои, совершенно тебе не нужные.

PS: Это упростит задачу, да и в твоих чертежах будет больше порядка.

PPS: Прилагаю вариант не отключающий привязки и с тупым вбиванием слоев.

[Pozia]

E-degtyarev, со слоями разобрался как на свои переделать. Подскажите еще как сделать чтоб тип осевой линии был - AM_ISO08W050x2?

[E-degtyarev]

Команда _layer , В окне выбери нужный слой, жмякни колоночку Тип Линиий Выбери из списка нужную линию. Если её нет в списке, нажми кнопочку загрузить и загрузи нужный тип линий, а затем выбери.

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

Вот и все. Удачи.

[Pozia]

Сообщение от E-degtyarev Команда _layer , В окне выбери нужный слой, жмякни колоночку Тип Линиий Выбери из списка нужную линию. Если её нет в списке, нажми кнопочку загрузить и загрузи нужный тип линий, а затем выбери.

ну это я знаю как

Сообщение от E-degtyarev Эту операцию следует проделать с прототипом, который используешь в работе и обязательно сохранить его.

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

[E-degtyarev]

Сообщение от Pozia Так в скрипте это невозможно сделать?

Очень даже возможно. Поелику здесь используются командные методы:
(vl-cmdf "_-linetype" "_l" ...........)- загружает нужный тип линии.
(vl-cmdf "_-layer" "_l" ..........)-устанавливает загруженный тип линии.
Прогони эти команды вручную для осмысления, а затем вставь в лиспушку.
А для красоты сначала нужно посмотреть с помощью (tblsearch .......) наличие загруженного типа линии и слоя.
Только я не считаю, что это шибко грамотно. Если в каждой лиспушке будут автоматом создаваться свои слои, у пользователя "крыша съедет" в конце концов.