[Baldares]

Привет.

Вот эта задачка может стать для меня основой для освоения Лиспа.
Потомучто на VBA до dxf кодов добираться все равно через него. А еще и гемор по пути схватишь.

Прошу накидать пример. Пожалуйста. А я еге изучу )))

Цель. Выделить выноски по образцу выдбранной.

Я представляю себе такие действия:
1. Получить верхнюю стороку текущей выбранной выноски. Т.е. предпологается что перед стартом команды - выделена выноска (по которой и нужно будет выделить все выноски на чертеже в model_space, с таким же текстом).
2. Перебрать модель и занести в набор все выноски с таким же текстом.
3. Подсветить набор.

Вот что у меня есть пока. - Был бред, удалил.

Готовый лисп см. #51

[DEM]

Baldares
Отлично, получилось теперь можно работать программно с объектами СПДС-ки
А то с выносками у мну не получалось.

[Baldares]

DEM, во-первых нужно чтоб кто-нить посмотрел с высока на эту конструкцию, и доработал.
Во-вторях точка вставки - это точка начала полки. А хотелось бы поймать начало выноски.
Так а чего в пятом СПДС нового, а?

[DEM]

Кстати это немного решает твою задачу Baldares
Если работать с новым чертежем можно сделать новый объект аналогичный узловой выноске, и работть уже с ним, а не со стандартным объектом, у нового объекта будет уже точка вствки.

[Baldares]

DEM, у нас уже есть сотни чертежей и вкаждом стоит по 1500 узловых выносок. Мне нужно в каждую выноску вставить блок.
Щас пробую через ObjectARX достать точку у выноски Мож кто поможет?

[DEM]

Baldares
Да особенно нового не нашел ни чего.
А вот с точкой вставки ты не прав, смотри, ты же можешь вставлять объект как блок а потом разбивать его, точка вставки будет та которую ты укажешь у блока, а потом можно уже по работать со вставленым объектом и определить точку начала выноски.
А вообще надо попробовать сделать в СПДС свой объект подобный узловой выноске и с ним работать.

[DEM]

Могу тебе предложить следующее
1е сделать дубль чертежа
2е удалить все объекты кроме узловых выносок
3е разбить все узловые выноски
4е определить центры узловых вносок с помощью обработки окружностей, там алгоритм какой нибудь придумать
5е сохранить точуи вставки в список и работь уже с ним, в другом файле с узловыми выносками

В общем какой то такой алгоритм
Раз уж напрямую не получается
Если чаго получится с ARX отпишись

[Baldares]

Сообщение от DEM 3е разбить все узловые выноски 4е определить центры узловых вносок с помощью обработки окружностей, там алгоритм какой нибудь придумать

О, Щас поковыряюсь.
На кадюзере создал тему в обжектархе, может помогут. Мне самому слабо.

[DEM]

Baldares
А х-ли голь на выдумку хитра, нас в двери не пускають так мы через форточку залезем.

[Baldares]

Удалил. Извиняюсь, ерунду сморозил.

[DEM]

Baldares
Ты это по осторожнее туть, модераторы знаешь какие злые.
Даже у мну нету индульгенции..

[Baldares]

Дело дрянь.
Самый авторитетный авторитет из всех которых я знаю, сказал НЕЛЬЗЯ! Вот тут и что нужно обращаться к разработчикам СПДС.
На солько я знаю Яков один из них.
DEM, у тебя есть выходы на него?
Или ему можно нагло в личку написать?

[DEM]

Baldares
Он ща в Москве(хотя в СКАЙПЕ онлайн, наверное забыл комп на работе выключить), приедеть по спрошаю, но мы с ним когда общались, по этому поводу он сказал, что Лиспом эту особо с объектами СПДС не по работашь. Хотя вот смотрю с маркерами и объектами собственой разработки работать можно.
Попробуй сдедать как я предложил, взорвав объекты СПДС, и по работав с окружностями решить проблему.
Как вариант могу предложить еще следующее, сделать свой объект СПДС а потом когда обработаешь свои узловые выноски поменять их на свои объекты.
В общем пока перед тобой задача номер 1 это обработать окружности и определить центры, если хочешь Я тебе потом могу помочь с с объектом имитируещим узловую выноску.

[Baldares]

DEM, думаю у всех профи глаза на лоб полезут от способа из #66. Буду пока работать над ним.
И напишу писмо в CSoft, авось отозвуться.

Насчет создания нового объекта типа узловой выноски. В реальном применении ее к уже готовым чертежам я сомневаюсь. Говорю, уже все блок-скции отточены, и менять в каждом чертеже по 1500 штуки выноски на новый объект желающих я не найду, а новые чертежы создаются копи-пастом.
Для освоения всех возможностей СПДС, умение создовать собственные объекты не помешало бы. Я пока не умею. Будет возможность покажи. Сам попробую конешно.

Пойду про кризис почитаю.

[DEM]

А кстати попробовал разбить узловую выноску, там получается замкнутая полилиния текст и отрезки в итоге, что вообще упрощает работу с данными объектами. Определить центр замкнутой полилинии тебе не составит труда, можешь даже определить наименование выноски, и ассоциировать ее с определенной точкой вставки.

[Baldares]

Сообщение от DEM А кстати попробовал разбить узловую выноску, там получается замкнутая полилиния текст и отрезки в итоге, что вообще упрощает работу с данными объектами. Определить центр замкнутой полилинии тебе не составит труда, можешь даже определить наименование выноски, и ассоциировать ее с определенной точкой вставки.

Все так.
Вот только как бы программно разбить все СПДСовские оьъекты.

Код:

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

ThisDrawing.SendCommand "spexplodeall" & vbCr

Выскакивает окошко для подтверждения, блин.

[DEM]

Обыкновенным _explode

[Baldares]

не DEM, ты не понял, ПРОГРАММНО. Из лиспа или VBA.
Объект выноски не поддерживает метода Explode.

[Кулик Алексей aka kpblc]

А раз объект не поддерживает, то кроме _.explode ничего и не получится.

[DEM]

Погоди ну вот смотри, сдеалй дубль чертежа удали программно все объекты кроме узловых выносок СПДС все объекты.
Создаешь набор типа (ssget "_X" '((0 . "_spdsNoteKnot"))), а потом командно command "_.explode" разбить данный набор.

[Baldares]

Упс, да и правда.
Только выбрать их по (0 . "_spdsNoteKnot") не выйдет, ну это не важно. Или у тея получилсь.
Завтра продолжу.