| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
14.12.2015, 10:26 | #1 | |
Описать перекрестие прямоугольником
ПГС
Санкт-Петербург
Регистрация: 11.05.2011
Сообщений: 131
|
||
Просмотров: 3349
|
|
||||
КЖ; C# Регистрация: 03.11.2005
Санкт-Петербург
Сообщений: 2,588
|
Поиск исполнителей, тут: http://forum.dwg.ru/forumdisplay.php?f=33
|
|||
|
||||
начинающий инженер-гидротехник Регистрация: 18.04.2010
Санкт-Петербург
Сообщений: 893
|
|
|||
|
||||
ПГС Регистрация: 11.05.2011
Санкт-Петербург
Сообщений: 131
|
оо, похоже то что нужно! http://www.lee-mac.com/boundingbox.html
Только лисп у меня не запускается: Command: _boundingbox Unknown command "BOUNDINGBOX". Press F1 for help. (у меня автокад 2013 х64 ENG) Ставил по инструкции VVA. Код вот этот с сайта, если что: ;; Bounding Box - Lee Mac ;; Returns the point list describing the rectangular frame bounding the supplied object. ;; obj - [vla] VLA-Object (defun LM:boundingbox ( obj / a b lst ) (if (and (vlax-method-applicable-p obj 'getboundingbox) (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-getboundingbox (list obj 'a 'b)))) (setq lst (mapcar 'vlax-safearray->list (list a b))) ) (mapcar '(lambda ( a ) (mapcar '(lambda ( b ) ((eval b) lst)) a)) '( (caar cadar) (caadr cadar) (caadr cadadr) (caar cadadr) ) ) ) ) Лисп, который я пытаюсь у себя запустить - прикладываю. Может потому не запускается, что у VVA "defun С:" а в этом коде "(defun LM:boundingbox ( obj / a b lst )" и надо что-то дополнительно изменить?
__________________
Я не волшебник, я только учусь :read: |
|||
|
||||
начинающий инженер-гидротехник Регистрация: 18.04.2010
Санкт-Петербург
Сообщений: 893
|
zz212243, вы скопировали только часть нужного вам кода.
Функция LM:boundingbox возвращает только список точек, по которым может быть построен ограничивающий прямоугольник. На той же странице есть код (см. Example Calling Function), который по этим точкам и построит прямоугольник. Чтобы всё заработало нужно поместить код с той страницы в один файл lsp. Запускать по команде test. Код:
|
|||
|
||||
ПГС Регистрация: 11.05.2011
Санкт-Петербург
Сообщений: 131
|
Спасибо kacugu, всё получилось!!!
Единственное, из трёх предложенных ссылок: "от Lee Mac: 1. http://www.lee-mac.com/boundingboxreactor.html 2. http://www.lee-mac.com/boundingbox.html 3. http://www.lee-mac.com/minboundingbox.html" вторая - описывает прямоугольник только вокруг ОДНОГО объекта (в т.ч. блока) первая - (команда "bbrn") - описывает прямоугольник вокруг одного или НЕСКОЛЬКИХ объектов - именно это я искал! (третью не тестировал)
__________________
Я не волшебник, я только учусь :read: |
|||
|
Опции темы | Поиск в этой теме |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите, пожалуйста, грамотно описать конструктивные особенности здания | seee | Прочее. Архитектура и строительство | 1 | 04.05.2015 08:00 |
Как описать назначение торгового комплекса со свободной планировкой? | polaleksa | Архитектура | 2 | 07.12.2012 14:04 |
Подскажите как описать о обосновать решение по определению пожарных рисков на подстанции. | FRAER | Прочее. Отраслевые разделы | 38 | 19.09.2012 12:38 |
как описать двуступенчетую колонну в Лире | Тигран88 | Лира / Лира-САПР | 1 | 05.09.2012 12:34 |
Помогите описать кривую | Shketkol | Прочее. Программное обеспечение | 2 | 14.05.2011 14:31 |