[onix]

Здравствуйте!
Есть координаты диагонально противоположных углов прямоугольника '(76270.2 21472.9 1400.0) '(74270.2 19472.9 1400.0).
Есть набор объектов, где дамп одного объекта

Код:

[Выделить все]

 
(
    (-1 . <Имя объекта: 7ffffb142e0>)
    (0 . "MAGIELECTRICALDEVICE")
    (330 . <Имя объекта: 7ffffb039f0>)
    (5 . "25E2E")
    (100 . "AcDbEntity")
    (67 . 0)
    (410 . "Model")
    (8 . "ПР_ЭС_САО_1_СВЕТ_")
    (62 . 1)
    (100 . "MAGIELECTRICALENTITY")
    (70 . 801)
    (71 . 0)
    (72 . 4)
    (40 . 1.0)
    (41 . 1.0)
    (73 . 0)
    (74 . 0)
    (75 . 0)
    (76 . 0)
    (70 . 2)
    (70 . 2001)
    (70 . 1)
    (70 . 2002)
    (70 . -3)
    (70 . 15)
    (70 . 2001)
    (70 . 1002)
    (70 . 1011)
    (280 . 0)
    (70 . 6046)
    (300 . "3SnYMQ1hj9VeBw0M4TNwxB")
    (70 . 2015)
    (70 . 1)
    (70 . 3001)
    (90 . 1)
    (70 . 3002)
    (90 . 4)
    (70 . 3003)
    (90 . 110)
    (70 . 3004)
    (90 . 45)
    (70 . 4001)
    (40 . 1276.0)
    (70 . 4002)
    (40 . 158.0)
    (70 . 4003)
    (40 . 113.0)
    (70 . 6005)
    (300 . "Рђ2.4.1-11")
    (70 . 6006)
    (300 . "ЩАО-2.4.1")
    (70 . 11002)
    (330 . <Имя объекта: 7ffffb1c610>)
    (70 . 1006)
    (280 . 1)
    (100 . "MAGIELECTRICALSYMBOL")
    (10 33146.9 10320.2 2400.0)
    (210 1.0 0.0 0.0)
    (211 0.0 0.0 1.0)
    (340 . <Имя объекта: 7ffffb03910>)
    (340 . <Имя объекта: 7ffffb13ee0>)
    (70 . 256)
    (71 . 0)
    (72 . 2)
    (212 1.0 0.0 0.0)
    (73 . 0)
    (40 . 0.0)
    (340 . <Имя объекта: 0>)
    (340 . <Имя объекта: 7ffffb13ef0>)
    (340 . <Имя объекта: 7ffffb13f10>)
    (340 . <Имя объекта: 0>)
    (74 . 0)
    (70 . 0)
    (70 . 0)
    (70 . 0)
  )

Как не используя ssget на LISP узнать какие объекты из набора пересекает данный прямоугольник?

[kp+]

Сообщение от onix Как не используя ssget на LISP узнать какие объекты из набора пересекает данный прямоугольник?

"прогнать" по набору функцию vla-intersectwith, одним из аргументов указать "данный прямоугольник". Много раз обсуждалось. Правда, в данном случае трудно сказать, как она отработает на специфическом объекте MagiCAD'a. Пробуйте.Offtop:
PS
Кстати, а почему такое условие - не использовать ssget? Из-за того, что неизвестно, будет ли "данный прямоугольник" в "данный момент" хорошо виден на экране?

[onix]

Сообщение от kp+ "прогнать" по набору функцию vla-intersectwith, одним из аргументов указать "данный прямоугольник". Много раз обсуждалось. Правда, в данном случае трудно сказать, как она отработает на специфическом объекте MagiCAD'a. Пробуйте.Offtop: PS Кстати, а почему такое условие - не использовать ssget? Из-за того, что неизвестно, будет ли "данный прямоугольник" в "данный момент" хорошо виден на экране?

да из-за этого приходится перед (ssget "_C" '(76270.2 21472.9 1400.0) '(74270.2 19472.9 1400.0)) дополнительно зумировать (command "_zoom" "_w" '(76270.2 21472.9 1400.0) '(74270.2 19472.9 1400.0)), объектов много и время выполнения программы около 3 минут и более)))

вот хочу альтернативу найти)

Сейчас попробовал (setq int (vla-IntersectWith (vlax-ename->vla-object (car (entsel "\nFirst : "))) (vlax-ename->vla-object (car (entsel "\nSecond : "))) acExtendNone))
первым выбираю прямоугольник , вторым объект магикад , выдаёт Ошибка Automation. Пока не реализовано

[kp+]

Сообщение от onix первым выбираю прямоугольник , вторым объект магикад , выдаёт Ошибка Automation. Пока не реализовано

MagiCAD или Enabler для него установлен?

[onix]

Сообщение от kp+ MagiCAD или Enabler для него установлен?

magicad установлен
а можно как-то объект magicad по контуру полилинией обвести на лиспе???

[kp+]

Прямого ответа не знаю, и MagiCAD'a у меня нет, как и Enabler'a. Выложите пример DWG, попробую посмотреть.

[stas_org]

ЛИСП не знаю, но уверен что ответ можно получить тут.

[onix]

Сообщение от stas_org ЛИСП не знаю, но уверен что ответ можно получить тут.

Спасибо за ссылку, но к сожалению маджикадовские объекты не обводит)

[kp+]

Кажется, примера DWG с магическим прямоугольником не будет
Если не подтянутся гуру Магикада, говорить больше не о чем.

[onix]

Сообщение от kp+ Кажется, примера DWG с магическим прямоугольником не будет Если не подтянутся гуру Магикада, говорить больше не о чем.

Нельзя файлы скидывать)

[kp+]

Сообщение от onix Нельзя файлы скидывать)

Я же не предлагаю рабочий файл в полном объеме скинуть. Только пример с тем самым прямоугольником и парочкой других объектов, которые он должен пересекать. И не обязательно делать это с рабочего компа, можно с домашнего. Ну Вы поняли...

[Александр Ривилис]

Точно нужно пересечение этого объекта с прямоугольником или достаточно пересечения BoundingBox этого объекта и прямоугольника?

[onix]

Сообщение от Александр Ривилис Точно нужно пересечение этого объекта с прямоугольником или достаточно пересечения BoundingBox этого объекта и прямоугольника?

BoundingBox для данного объекта не работает)
и BoundingBox для круглого объекта - это квадрат, а это не совсем то)

[Александр Ривилис]

Это максимум из того, что можно получить не имея исходники MagiCAD.

[Sleekka]

Сначала купят, а потом думают, обращайтесь в Progman OY за SDK и API.

[Александр Ривилис]

Кстати может быть полезна эта документация: https://www.dropbox.com/s/zkobivwiue...ace_201311.pdf

[onix]

Сообщение от Александр Ривилис Кстати может быть полезна эта документация: https://www.dropbox.com/s/zkobivwiue...ace_201311.pdf

Спасибо, это уже есть, но версия маджикада выше, некоторые свойства поменялись похоже)

----- добавлено через -----

Сообщение от Sleekka Сначала купят, а потом думают, обращайтесь в Progman OY за SDK и API.

Спасибо за совет, чуть позже запрос направлю на получение COM для маджикада