Денис Флюстиков
размещено: 13 Декабря 2005
обновлено: 11 Февраля 2007
Функции программы:
1.Работает со всеми типами размеров.
2.Вызов редактора двойным кликом (с ACAD2002).
3.Простановка верхнего, нижнего, симметричного и допусков в зависимости от указанного поля допуска (1-18 квалитет) размера (0-3150 мм).
4.Вставка знаков диаметра, резьбы, радиуса, градуса, квадрата и значка для справок.
5.Набор текста под размерной линией, в рамке, на полке.
6.Определение и изменение масштаба размера.
7.Изменение точности отображения размера.
8.В зависимости от свойства размера, выбор значения размера из баз:
"ГОСТ 6636" (нормальные линейные размеры);
"ГОСТ 8908" (нормальные углы);
"ГОСТ 8724" (диаметры и шаги метрической резьбы);
9.Варианты текстов предшествующих размерной надписи («отв.», «фаска», «радиус», «канавка», и др.), окончание вставляемых слов зависит от заданного кол-ва элементов.
10.Варианты текстов следующих за размерной надписью («х45°», «max», «min», «-6H», «-6g» и др.).
11.Заключение размерного текста в скобки трех видов.
12.Управление стрелками (изменение типа, отключение или простановка по ГОСТ 2.307 п.2.48 (Размеры от общей базы)).
13.Копирование текста и свойств редактируемого размера на другие размеры ([Esc]-отмена последнего выбора).
14.Возможность подключения панели с иконкой "DimDen" и кнопками изменения масштабного коэффициента размеров находящихся в выбранной области.
15.Справка по выбору посадок.
16.Нанесение размеров с возможностью выхода в диалог "DimDen".
0.1 МБ
СКАЧАТЬ
Комментарии
Авторизоваться
Есть предложение доработать программу так, чтобы можно было копировать свойства одного размера и распространить их на другие размеры. (Аналог команде: копировать свойства объекта)
(хм, а сюда я хотел вставить фотку....., тогда посмотри ГОСТ 2.307-68 стр.17, п. 3.2)
В предыдущих версиях твоей программки я уходил от этого добавляя следующее:
Имелось:
"\H.55x; \S" toler1 "^" toler2 ";\H1.5x;"))))
Стало (добавил [\A1;]):
"\A1;\H.55x; \S" toler1 "^" toler2 ";\H1.5x;"))))
Теперь же в новой версии от 27.11.2004 такой «номер» не проходит :0). Поскольку я не силен в Лиспе, может тебе удастся подправить этот момент.
(strcat (nth n_skb skb) edit1 text edit3 edit4)) на:
(strcat "\A1;" (nth n_skb skb) edit1 text edit3 edit4))
и через две строчки: (if (= text "<>")(setq text ""))
на: (if (= text "\A1;<>")(setq text ""))
перезагрузи Acad, или загрузи приложение вновь.
У себя в программе это учту, хотя сам использую размерный стиль с выравниванием допуска по середине (DIMTOLJ=1).
Спасибо, Виталий, что обратил на это внимание, но если проблема все-таки в другом, вышли, пожалуйста, картинку мне на fd-@mail.ru.
Хотелось бы чтобы по возможности текст до, после и допуски при открытии свойств размера располагался в соответствующих полях, а не в "Text override".