mmax
размещено: 31 Августа 2006
обновлено: 24 Декабря 2006
Визуально рисует деталь типа «фланец», равномерно располагает окружности по окружности или дуге
головная функция (flanec-draw строка строка)
Аргументы как для функции vl-registry-write, а точнее для нее и есть
1 аргумент раздел реестра
2 аргумент параметр
В реестре хранится максимальное значение количества окружностей
Если указанные пользователем ветви реестра отсутствуют, то будут созданы со значением 50, если присутствуют то используются имеющиеся. Далее значение может быть отредактировано и сохранено из программы. По завершении работы программы значения реестра не удаляются и используются при повторном вызове. Рекомендуется "HKEY_CURRENT_USER\"
При отрисовке по сектору:
Ввести значение угла с клавиатуры или получить указанием точек
Угол высчитывается от первой до второй стороны по направлению указанном в переменной ANGDIR. Первая окружность будет лежать на одной линии с первой стороной угла, согласно радиуса расположения, последняя соответственно на второй стороне угла.
Работа в АВТОКАД ниже 2006 не гарантируется, в связи с использованием динамического ввода, а точнее его отключения. Если раньше достаточно было сделать CMDECHO=0, то сейчас надо еще и DYNPROMPT=0. И в предыдущих версиях функция SETVAR обязательно выдаст ошибку.
31.08.2006 программа переработана. Исправлены некоторые неудобства с вводом угла сектора.
Это простая программа для рисования произвольного набора окружностей по окружности с произвольными размерами + осевые направленные к центру фланца. Никаких стандартов не предусмотрено. Очень хорошо подходит для векторизации(обрисовки), для этого впринципе и делалась.
Для тех у кого плохо с загрузкой и запуском:
Создаете текстовый файл с расширением .lsp и пишете в нем такой текст
(defun c:flanec ()
(flanec-circle-draw-visual-samocad "HKEY_CURRENT_USER\\SOFTWARE\\MaksCAD Soft\\SamoCAD\\AppDraw\\FlanecSamoCAD" "kolvovalue")
(princ)
)
Помещаете этот файл и файл скачанный отсюда в директорию установки Автокада. И в командной строке пишете:
(load "*ваш созданный файл.lsp")
(load "скачанный отсюда файл.vlx")
теперь у вас есть команда FLANEC
0.01 МБ
СКАЧАТЬ
Комментарии
Авторизоваться
Пока только вопрос, заложена отрисовка стандартных фланцев, по какому стандарту, и для каких давлений. Или рисуются произвольные фланцы с произвольным числом отверстий. А то у меня уже есть база для фланцев по DIN, PN, и ГОСТ. Не хотелось бы повторяться.