|
||
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
18.03.2004, 11:05 | #1 | |
Нужен LISP для заливки отверстий
Москва
Регистрация: 20.01.2004
Сообщений: 154
|
||
Просмотров: 7722
|
|
||||
Архитектор Регистрация: 14.10.2003
Израиль
Сообщений: 365
|
Есть такая штука в ToolPack :
см. картинку. Не совсем то, но может подойти. А сам я в таких случаях черчу Solid по 4 точкам - очень удобно: легко копируется с места на место одним объектом и легко растягивается. Можно процесс его начертания автоматизировать. Надо потумкать. [ATTACH]1079599396.gif[/ATTACH]
__________________
С уважением, Влад Гринзайд. |
|||
|
||||
Архитектор Регистрация: 25.08.2003
Москва
Сообщений: 307
|
Если отверстия сделаны то отрезками, то полилиниями, может, лучше заливать их (кстати, Grinzaid совершенно прав, для этого лучше всего команда _solid) просто указанем двух диагональных точек?
(defun c:dyrka ( / ugol01 ugol02 ugol03 vn-ugol osn00) (while (setq ugol01 (getpoint "\nПервая точка диагонали: ")) (initget 1) (setq ugol02 (getpoint "\nВторая точка диагонали: ")) (setq ugol03 (list (car ugol01) (cadr ugol02))) (setq vn-ugol(polar ugol03 (- (angle ugol03 ugol02) 0.785398)(/ (distance ugol01 ugol02) 12.0))) (setq osn00 (getvar "osmode")) (command "_solid" ugol01 ugol03 vn-ugol ugol02 "") (setvar "osmode" osn00) );while (princ) );defun Подразумевается, что отверстия прямоугольные, со сторонами, параллельными осям XY, если они повернуты, перед использованием команды повернуть координаты вокруг оси Z на нужный угол. |
|||
|
||||
CAD Регистрация: 28.08.2003
Киев
Сообщений: 1,835
|
У меня в программе ПАРКС угол отверстия заливался. Но мои архитекторы показали мне ГОСТ 21.501-93, в котором отверстия (точнее проемы) не заливаются. См.прилагаемую картинку. Заставили переделать. Может они не правы? Дайте ссылку на правильный или другой ГОСТ, пжл.
[ATTACH]1079684123.gif[/ATTACH] |
|||
|
||||
Инженер по системам безопасности Регистрация: 23.11.2003
Рига
Сообщений: 1,099
|
Если действительно сильно нужно, то применяя совет Ярослава, могу потратить 30 минут и выдать функцию, которая сама будет создавать блок и при вставке масштабировать по сторонам прямоугольника. Угол с осью Х может быть любой. Но это если действительно надо не для 10 "дырок". Можно сделать и по щелчку, но т. к. там могут быть не только полилинии но и линии, проще указать две вершины.
|
|||
|
||||
Регистрация: 20.01.2004
Москва
Сообщений: 154
|
Ето нужно не для 10 и намного больше .
Если не сложно то потратьте 30 минут если не сложно... (у меня все время полилинии, было-бы совсем идеально если при выделении нескольких прямоугольников, у каждого заливался свой угол,и заливка относилась только к етому прямоугольнику Заранее вам благодарен.. |
|||
|
||||
Строительное проектирование Регистрация: 21.08.2003
Москва
Сообщений: 853
|
Цитата:
[ATTACH]1079705664.jpg[/ATTACH] |
|||
|
||||
Регистрация: 20.01.2004
Москва
Сообщений: 154
|
>>Fantomas
Я имел ввиду по другому: выделяешь все прямоугольники и он их заливает сразу все, но заливка относится только к своему прямоугольнику, хотя то что вы предлагаете тоже не плохо, но придется много раз тыкать по каждому, но ето уже мелочи по сравнению с тем как сейчас приходится извращатся..... |
|||
|
||||
Инженер по системам безопасности Регистрация: 23.11.2003
Рига
Сообщений: 1,099
|
Вроде все работает, но слишком серьезно не проверял. Выбираем объекты для "дыр" по одному, рамкой или секущей рамкой, жмем [Enter] и наслаждаемся результатом.
Угол с ХУ может быт любой. Геометрия тоже может быть не прямоугольной. При выборе можно допускать некоторую небрежность, поскольку функция отфильтровывает только замкнутые полилинии с 4-мя вершинами. Если что не так, пишите письма... Код:
|
|||
|
||||
CAD Регистрация: 28.08.2003
Киев
Сообщений: 1,835
|
IMHO
Команда должна не выполнять заливку или выделение угла (по вкусу) отверстия , а чертить тот самый прямоугольник а также производить образмеривание и маркировку и всё это в послойно и выполнять вышеназванное действие за один такт с минимумом вопросов и ответов. В ПАРКС это так и делается, см.картинку. [ATTACH]1079776154.gif[/ATTACH] |
|||
|
||||
Инженер по системам безопасности Регистрация: 23.11.2003
Рига
Сообщений: 1,099
|
Все это не проблемма. Без заливки, можно сделать вообще с ходу, т. к. создание замкнутой полилинии, которая потом заливается это промежуточная операция. Образмеривание в другом слое, это не сложно. Если чертить сначала сам прямоугольник, это еще проще.
Но наверное если все уже есть, не стоит изобретать велосипед, тем более в составе специализированного САПР. Там и набор стандартных слоев можно сделать и другие настройки. Человек попросил, я сделал как он просил. Я слаботочник и по этому не знаю этих ГОСТов. Хотя честно говоря, видел что вертикальные шахты, обозначаються чаще без заливки, именно так как вы говорите. А на старых бумажных чертежаж, как прислал Serz. Сижу сейчас читаю ISO и EN стандарты на английском, с 1 мая у нас действуют они. Перевели тут стандарт по пожарной автоматике зданий на латышский, оказался АБСОЛЮТНО нечитаемым. Латыши матюгаются. Лучше уж на английском читать буду... |
|||
|
||||
Регистрация: 20.01.2004
Москва
Сообщений: 154
|
>>Fantomas
Спасибо за помощь, очень помогает, но у меня есть один вопросик? Если отверстие сильно вытянутое вертикально то заливка не очень красиво получается, что мне в етом лиспе надо поменять чтобы изменить угол заливки отверстия, а то я в лиспе не разбираюсь..... |
|||