[Pozia]

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

[E-degtyarev]

И мне кажись нужна такая "навеска". Напишу сам, только поясни подробнее, что требуется. Желательно с картинками.

[Pozia]

рад такому отзыву ). В общем суть такова. Данную навеску я видел в живую. Но она защищена и просто так перенести на любой автокад не получится. Но она очень удобная. Я сегодня ближе к вечеру выложу скрины ее и подробно распишу как она работает.

[E-degtyarev]

Сообщение от Pozia Но она защищена и просто так перенести на любой автокад не получится.

А может все-таки получится? Выложи заодно и навеску, глянуть хот-ца.

[Pozia]

E-degtyarev, Shp - сам скрипт для шпонки. Lic - набор файлов, путь к которым должен быть прописан первым в списке, чтобы работало. Команда - ^C^C^P(if (not avs_shpon) (load "avs_shpon")) avs_shpon

Скрина пока сделать не могу, это работает только на старых акадах типа 2007 и только eng. У меня сейчас 2011. К нему и нужно сделать или переделать эту шпонку.
Суть такая. При запуске есть место куда ввести нужный диаметр. И можно выбрать вид который необходимо нарисовать - сечение шпонки на валу, в отверстии, без шпонки или с ней, или вид сверху с указанием длины по госту или вручную. что то типа того. и указаны при этом нужные посадки.

[getr]

есть еще вот такой довесок..работает по 2008-й асаd ( выше не проверял)

[Лиспер]

Pozia, как-то желание даже распаковывать архив пропало, как только увидел внутри acaddoc.fas...
getr, работать код не будет. path_main не инициализируется. В коде напрямую прописаны каталоги, которых не существует. readme написан некорректно.

[Pozia]

а что это такое, acaddoc.fas ?

[Лиспер]

Один из файлов, находящихся в архиве Lic.rar. Первое средство для распространения вирусов под AutoCAD.

[Pozia]

да успокойтесь. вирусов нет факт. Проверено временем и антивирусами кучи рабочих компов.

[Лиспер]

Спасибо, береженого Бог бережет

[Pozia]

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

[Лиспер]

По крайней мере сам я двери вирусам не открываю. Был бы не fas, а lsp - еще б подумал. А так - нет, увольте

[gomer]

Сообщение от Лиспер о крайней мере сам я двери вирусам не открываю. Был бы не fas, а lsp - еще б подумал. А так - нет, увольте

а Mechanics - это вообще кубло вирусное...

[Лиспер]

А при чем тут MechaniCS? gomer, ты меня не путай, я и сам успешно запутываюсь Каженный день по многу раз

[gomer]

Сообщение от Лиспер А при чем тут MechaniCS?

Ты видел его код? я нет? А знаешь чего на сях можно понаписать

[TararykovDG]

Лиспер, не в укор Тебе, а просто для поддержания темы. Если следовать Твоей логики касательно fas, то и arx и dll и много еще чего все под запрет?

[Лиспер]

Не надо, не надо. acad*.lsp на компе должен быть один под каждую версию AutoCAD. acad*.fas на машине подлежит немедленному и безжалостному уничтожению. Точка

[TararykovDG]

Сообщение от Лиспер Не надо, не надо. acad*.lsp на компе должен быть один под каждую версию AutoCAD. acad*.fas на машине подлежит немедленному и безжалостному уничтожению. Точка

Т. е. притензии не к fas как таковому, а именно acad*.fas? С этим пожалуй можно согласиться

[Лиспер]

Именно. Хотя это уже и оффтоп чистой воды...

[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 .......) наличие загруженного типа линии и слоя.
Только я не считаю, что это шибко грамотно. Если в каждой лиспушке будут автоматом создаваться свои слои, у пользователя "крыша съедет" в конце концов.