| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
16.11.2009, 15:12 | #1 | |
Объект описанный прямоугольником
Регистрация: 25.06.2009
Сообщений: 147
|
||
Просмотров: 4967
|
|
||||
Регистрация: 29.10.2004
СПб
Сообщений: 16,327
|
команда _list для твёрдого тела.
для области- тоже самое. преобразуй замкнутые контуры в области, объедини их в одну и дай команду _list _list 1 found 3DSOLID Layer: "0" Space: Model space Handle = 484 History = None Show History = No Solid type = Extrusion Extrusion height: 100.0000 Taper angle: 0.000 Bounding Box: Lower Bound X = 88.1767 , Y = 137.3792 , Z = 0.0000 Upper Bound X = 133.0443 , Y = 182.2469 , Z = 100.0000 Последний раз редактировалось Хмурый, 16.11.2009 в 15:49. |
|||
|
||||
Регистрация: 25.06.2009
Сообщений: 147
|
Цитата:
Если такие тела в регион то получится: REGION Layer: "01 BASIC" Space: Model space Handle = c7bb7 Area: 506340.6 Perimeter: 2522.5 Bounding Box: Lower Bound X = 14899.7 , Y = 3121.2 , Z = 0.0 Upper Bound X = 15702.6 , Y = 3924.1 , Z = 0.0 REGION Layer: "01 BASIC" Space: Model space Handle = c7bb6 Area: 2207418.1 Perimeter: 6321.5 Bounding Box: Lower Bound X = 15129.9 , Y = 2678.0 , Z = 0.0 Upper Bound X = 17501.5 , Y = 4510.3 , Z = 0.0 CIRCLE Layer: "02 DIM (1х08-10)" Space: Model space Handle = c7bb5 center point, X= 15301.1 Y= 3522.7 Z= 0.0 .... А теперь как извлеч именно те кординаты што нада через код... Bounding Box: Lower Bound X = 14899.7 , Y = 3121.2 , Z = 0.0 Bounding Box: Upper Bound X = 17501.5 , Y = 4510.3 , Z = 0.0 нарисовать прямоугольник по ним и удалить регион... Последний раз редактировалось Positron, 16.11.2009 в 18:01. |
|||
|
||||
Регистрация: 06.02.2009
Сообщений: 775
|
Для областей и тел подойдет и _massprop. В выдаче комманды будет
Area: 2490.6315 Perimeter: 366.1152 Bounding box: X: 130.1098 -- 211.1247 Y: 151.7388 -- 202.2644 Centroid: X: 166.6043 Y: 178.3951 Moments of inertia: X: 79776646.7362 ....... |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,790
|
Насколько я помню, то ли на этом форуме, то ли на caduser.ru выкладывались решения по обнаружению границ нескольких объектов... Если честно - искать лениво, а рисовать свое решение - долго.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Регистрация: 25.06.2009
Сообщений: 147
|
Спасибо, то што надо
... А возможно ещо добавить сюда игнорирование: -Мтекста -размеров -таблиц во вложении пример Последний раз редактировалось Positron, 17.11.2009 в 11:24. Причина: Добавил вложения |
|||
|
||||
Cтрочку:
(mapcar 'vlax-ename->vla-object (sstolist (ssget))))) Замени на: (mapcar 'vlax-ename->vla-object (vl-remove-if '(lambda (a) (wcmatch (cdr (assoc 0 (entget a))) "MTEXT,DIMENSION,*TABLE")) (sstolist (ssget)))))) |
||||
|
||||
Регистрация: 25.06.2009
Сообщений: 147
|
|
|||
|
Опции темы | Поиск в этой теме |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Объединение дуг, линий в единый объект, Как объединить? | Vladimir.P | AutoCAD | 41 | 25.01.2015 08:03 |
Объект убегает вниз | XYZ | AutoCAD | 24 | 12.11.2013 08:55 |
Линейный объект "Тепловые сети" Противопожарные мероприятия" | Route | Инженерные сети | 8 | 14.03.2012 13:03 |
Главспец на один объект по трудовому договору - возможно ли? | Jull | Профессии и трудовые отношения | 7 | 24.08.2007 08:09 |
Как удалить объект Autodesk Building Systems из файла? | hook | AutoCAD | 1 | 22.08.2007 02:06 |