[tujn08]

Привет!
Помогите найти/написать функцию:
1) есть полилинии
2) есть дин.блоки
3) есть 2Д точки: начало и конец на полилинии (между точками могут быть несколько вершин). Эти точки могу являться как началом и концом полилинии, так и просто точки на линии

надо найти все блоки у которых точка вставки блока находится на участке п.3

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

Ну и в чем собственно вопрос? Получить точку вставки дин.блока, найти ближайшую к нему на полилинии, сверить расстояние с 0 (возможно, с некоторой точностью).

[Nike]

Опять шлейф с пожарными датчиками?

----- добавлено через ~2 мин. -----
http://forum.dwg.ru/showthread.php?t=82243

[tujn08]

Сообщение от Кулик Алексей aka kpblc точку вставки дин.блока, найти ближайшую к нему на полилинии,

Не подходит.
Вспомним задачу про короткий "путь между станциями метро", где станции это блоки, "метро"(если так можно выразиться- рельсы) - это полилинии.
Функцию по нахождению пути по максимально трем полилиниям написал. Одна полилиния может пересекать несколько блоков (переход высоты с отметки на отметку- например арка через догору). Нужно найти только те блоки которые попадают в определенный отрезок (в большинстве случаев это не вершины линии).

Сообщение от Nike Опять шлейф с пожарными датчиками?

Почти - кабельный журнал под несколько разделов сразу см.выше ответ.

----- добавлено через 45 сек. -----
Блоки с переходом высоты тут не размещал еще

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

tujn08, ну йопырысыты! Ты просил алгоритм (поскольку ни кода не предоставил с указанием места "на котором споткнулся", ни языка не обозначил) - я тебе его дал. Этого что, мало?

----- добавлено через 53 сек. -----

Сообщение от tujn08 Вспомним задачу про короткий "путь между станциями метро"

Вспоминать не собираюсь. У тебя была поставлена конкретная задача:

Сообщение от tujn08 надо найти все блоки у которых точка вставки блока находится на участке п.3

Остальное - лишнее.

[tujn08]

Сообщение от Кулик Алексей aka kpblc Остальное - лишнее.

Не понял предложение. Что лишнее?

Сообщение от Кулик Алексей aka kpblc Получить точку вставки дин.блока, найти ближайшую к нему на полилинии, сверить расстояние с 0 (возможно, с некоторой точностью).

1) найти ближайшую линию - легко согласен
2) блок должен находиться между двумя точками (найденными заранее), но при этом быть на линии (п.1)- как это реализовать?

PS
блок могут пересекать сразу несколько линий (на "перекрестке"). Не суть Влияет- просто для информации

----- добавлено через ~13 мин. -----
Щас припоминаю, что есть функция поиска к ближайшей точке (вершине), но надо будет создавать дополнительные вершины на линии- так?

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

Поехали с самого начала... На каком языке пишешь? Под AutoCAD или клон-кад?

[Сергей812]

Сообщение от tujn08 2) блок должен находиться между двумя точками (найденными заранее), но при этом быть на линии (п.1)- как это реализовать?

уравнение прямой, проходящей через две точки? Ну еще, естественно, с учетом погрешности.

[roaa]

Сообщение от tujn08 3) есть 2Д точки: начало и конец на полилинии (между точками могут быть несколько вершин). Эти точки могу являться как началом и концом полилинии, так и просто точки на линии

как вариант
запомнить как есть, обрезать полилинии в этих точках, на полученной полилинии найти блоки, вернуть все как было...

[tujn08]

Сообщение от Сергей812 уравнение прямой, проходящей через две точки?

Добрался до работы - из файл думаю будет понятно.

log- промежуточная информация для понимания и отладки
cable_magazine - длина между блоков.
На пути от блока до блока могут быть другие блоки, от которых и надо получить дополнительное расстояние.
Просто уравнение прямой не подойдет т.к. трасса может быть проложена "змейкой".

[RNB]

Сообщение от tujn08 Не подходит. Вспомним задачу про короткий "путь между станциями метро", где станции это блоки, "метро"(если так можно выразиться- рельсы) - это полилинии. Функцию по нахождению пути по максимально трем полилиниям написал. Одна полилиния может пересекать несколько блоков (переход высоты с отметки на отметку- например арка через догору). Нужно найти только те блоки которые попадают в определенный отрезок (в большинстве случаев это не вершины линии).

Offtop: "Ты втираешь мне какую-то дичь" (с)

Точка вставки блока есть, координаты точек, между которыми искать, есть. Какие, (простите) нахрен, несколько линий? Какие перепады высоты? Ощущение, что изобретается велосипед, но при этом разговор идет о влиянии массонов на устойчивость Эйфелевой башни.

[tujn08]

Сообщение от RNB Точка вставки блока есть, координаты точек, между которыми искать, есть.

Вот точки 1 и 2. надо найти блоки между ними на линии.
Я пояснял всю ситуацию до этого.

----- добавлено через ~36 мин. -----

Натолкнуло на мысль:
Если расстояние от Конца линии до Первой точки меньше чем расстояние от конца до проверяемой точки
И
Если расстояние от Начала линии до Ввторой точки меньше чем расстояние от конца до проверяемой точки
То проверяемая точка лежит между Первой и Второй точками.
Предварительно проверить какая точка из двух лежит ближе к началу линии.

----- добавлено через 32 сек. -----
всем спасибо!

[Сергей812]

Ну я вообще бы искал пересечение полилинии с блоком.. потому что промахнулся пользователь, плюхнул блок рядом с полилинией. Визуально для него блок на полилинии, а реально алгоритм на определении нахождения точки вставки блока на сегменте полилинии будет этот блок пропускать.. или наоборот - при большой дельте захватывать и соседние блоки. А пересечение - в инете примеров более чем. А уж когда нашел полилинию - найти, к каким ближайшим смежным двум ее вершинам ближе всего вставка блока - задача тривиальная. Если это вообще нужно.

[tujn08]

Я тоже хотел найти точки пересечения блока с линией, но выдаются минимум 3 точки- включая атрибутов которых не видно + габариты блока. Тот же блок может пересекать и другую линии. Это не то,что нужно.
Вот я искал точку вставки блока с концом линии с точностью - вполне гуд. А щас начал ломать голову как найти на участке это пересечение ))).

Сообщение от Сергей812 Ну я вообще бы искал пересечение полилинии с блоком

----- добавлено через ~5 мин. -----
к примеру:
(79.7366 217.659 -1.0e-008
134.718 217.659 -1.0e-008
134.718 217.659 1.0e-008
79.7366 217.659 1.0e-008)

не вижу нужной: (104.84 217.65 0.0)

[Сергей812]

Сообщение от tujn08 Я тоже хотел найти точки пересечения блока с линией, но выдаются минимум 3 точки- включая атрибутов которых не видно + габариты блока. Тот же блок может пересекать и другую линии. Это не то,что нужно. Вот я искал точку вставки блока с концом линии с точностью - вполне гуд. А щас начал ломать голову как найти на участке это пересечение ))).

Хотите сделать полностью автоматическую систему? - тогда должна быть проведена нормализация (стандартизация) имен слоев и т.д. Настраиваться связи - каким кабелям в каких слоях данный блок может подсоединяться - для возможности фильтрации. А пересечение блоков с полилинией-чтобы только найти данную полилинию, а потом DistanceTO(Точка вставки блока) для поиска ближайших вершин полилинии.

----- добавлено через ~7 мин. -----
p.s. Давно отказался от попыток сделать полностью автоматическую систему - так как овчина не стоит выделки, имхо.

[tujn08]

Сообщение от Сергей812 (стандартизация) имен слоев и т.д

Это и делаю ))
1) стандартизация
2) автматизация
3) увеличение качества и объемов.

Сообщение от Сергей812 А пересечение блоков с полилинией-чтобы только найти данную полилинию,

надо другой метод я считаю. Блок громоздкий и следовательно будет пересекать несколько линий- усложнит хоть и не намного.
Надо проверить принадлежит ли точка этой линии - дальше по алгоритму как писал выше.

[Сергей812]

Сообщение от tujn08 надо другой метод я считаю. Блок громоздкий и следовательно будет пересекать несколько линий- усложнит хоть и не намного. Надо проверить принадлежит ли точка этой линии - дальше по алгоритму как писал выше.

Пробуйте. Вы сейчас по сути пытаетесь теоретически предугадать все возможные "шишки" и "подводные камни", на которых спотыкались целые команды разработчиков вертикальных решений/программ для автоматизации проектирования) только опытным путем на реальных задачах выясняются все плюсы и минусы.

[tujn08]

Значит сделаю просто:
1) проверка на пересечение блокИ-линия
2) проверю все точки пересекающих блоков на нахождение их между нужными точками
Условия:
1) точка вставки должна быть почти на линии ( используем радиус от концов участка, погрешность уже становиться большой, если точка не по центру участка линии). Попасть в центр нужного участка - маленькая вероятность, что радует.
2) блок не должен пересекать другие линии - уже проблемотично т.к. габариты блока довольно большие. (делить блок на два разных блока?! - не серьезно...)
Мда... надо подумать еще варианты

[Сергей812]

Сообщение от tujn08 Попасть в центр нужного участка - маленькая вероятность, что радует.

и не надейтесь.. все возможные варианты надо рассматривать)

[roaa]

Сообщение от tujn08 1) есть полилинии 2) есть дин.блоки 3) есть 2Д точки: начало и конец на полилинии (между точками могут быть несколько вершин). Эти точки могу являться как началом и концом полилинии, так и просто точки на линии

Накидал на скорую руку. Останется найти блоки на этой полилинии, а этого на форуме найти можно много...

Код:

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

 
(defun _poly_copy ( poly pt1 pt2 / plcopy pozp)
;;; Функция копирования полилинии от точки до точки
;;; Аргументы:
;;;   poly - vla-object или ent name полилинии
;;;   pt1, pt2 - точки
;;; Вызов:
;;; (_poly_copy (car (entsel))(getpoint "\n1:")(getpoint "\n2:"))
;;; Возвращает vla созданной полилинии

(defun LM:ListsUnion ( l / x u )
;;---------------------=={ Lists Union }==--------------------;;
;;                                                            ;;
;;  Returns a list expressing the union of a set of lists     ;;
;;------------------------------------------------------------;;
;;  Author: Lee Mac, Copyright © 2011 - www.lee-mac.com       ;;
;;------------------------------------------------------------;;
;;  Arguments:                                                ;;
;;  l - a list of lists for which to return the union         ;;
;;------------------------------------------------------------;;
;;  Returns:  A list of distinct items in the set of lists    ;;
;;------------------------------------------------------------;;
;|
_$ (LM:ListsUnion '((1 2 3 4 5) (1 3 5 7 9) (2 4 6 8)))
(1 2 3 4 5 7 9 6 8)
|;
  (setq l (apply 'append l))
  (while (setq x (car l)) (setq u (cons x u) l (vl-remove x l)))
  (reverse u)
)

(defun _sensor_row_num ( n0 nx )
;;; функция раскладки числа на ряд чисел
;;;   nx - число конечное
;;;   n0 - число начальное
;;; Вызов: (_sensor_row_num 1 5)
;;; Возврат (1 2 3 4 5)
  (cond 
    ((and (= (type n0) 'INT)(= (type nx) 'INT))
     (setq res nil)
     (if (> nx n0)
       (repeat (1+ (- nx n0))(setq res (cons nx res)  nx (1- nx)))
       (repeat (1+ (- n0 nx))(setq res (cons nx res)  nx (1+ nx)))
     )
     res
    )
  )
)

  (cond
        ((eq (type poly) 'ENAME)
         (_poly_copy (vlax-ename->vla-object poly) pt1 pt2)
        )
        ((not pt1)
         (setq pt1 (vlax-curve-getStartPoint poly))
         (_poly_copy poly pt1 pt2)
        )
        ((not pt2)
         (setq pt2 (vlax-curve-getEndPoint poly))
         (_poly_copy poly pt1 pt2)
        )
        ((> (vlax-curve-getDistAtPoint poly pt1)(vlax-curve-getDistAtPoint poly pt2))
         (_poly_copy poly pt2 pt1)
        )
        ((and
           (setq plcopy (vla-copy poly))
           (setq temp (vlax-safearray->list (vlax-variant-value (vla-get-Coordinates plcopy))))
         )
         (setq pozp 
                    (LM:ListsUnion 
                      (mapcar '(lambda (x)(list (setq xt (* x 2))(1+ xt)))
                        (_sensor_row_num 
                          (atoi (rtos (vlax-curve-getParamAtPoint plcopy pt1)))
                          (1+ (atoi (rtos (vlax-curve-getParamAtPoint plcopy pt2))))
                        )
                      )
                    )
               
         )
         (setq tempp nil)
         (mapcar '(lambda (poz)(setq tempp (cons (nth poz temp) tempp))) pozp)
         (setq tempp (reverse tempp)
               tempp (subst (car pt1)(nth 0 tempp) tempp)
               tempp (subst (cadr pt1)(nth 1 tempp) tempp)
               tempp (reverse (subst (car pt2)(nth 1 (reverse tempp))(reverse tempp)))
               tempp (reverse (subst (cadr pt2)(nth 0 (reverse tempp))(reverse tempp)))
         )
         (vla-put-coordinates plcopy 
           (vlax-make-variant 
             (vlax-safearray-fill
	             (vlax-make-safearray vlax-vbDouble (cons 0 (1- (length tempp)))) 
	             tempp
	           )
	         )
	       )
	       plcopy
        )
        (t nil)
  )
)

[tujn08]

Код:

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

 (progn
(vl-load-com)
(setq obj1 (vlax-ename->vla-object (car (entsel "выбрать линию"))))
(setq a (cdr (assoc '10 (entget (car (entsel "выбрать блок"))))))
(setq a_1 (list (nth 0 a) (nth 1 a) (+ 10(nth 2 a)) ))
(vlax-curve-getClosestPointToProjection obj1 a a_1) ; пересечение в 3д
)

Как насчет этого - подозреваю, что радоваться преждевременно??? )))

----- добавлено через ~43 мин. -----
и проверка на:
Если расстояние от Конца линии до Первой точки меньше чем расстояние от конца до проверяемой точки
И
Если расстояние от Начала линии до Ввторой точки меньше чем расстояние от конца до проверяемой точки
То проверяемая точка лежит между Первой и Второй точками.

----- добавлено через ~44 мин. -----
задача в определении точки вставки блока на проверяемой линии. Блок может пересекать несколько линий, но точка будет только на одной (не считая перекрестков).

----- добавлено через ~45 мин. -----

Сообщение от roaa Накидал на скорую руку.

почитаю завтра- времени не хватило разобраться.

[kp+]

Сообщение от tujn08 Я тоже хотел найти точки пересечения блока с линией, но выдаются минимум 3 точки- включая атрибутов которых не видно + габариты блока

Как вариант: в составе блока должна быть одна характерная полилиния на особом слое, например, внешняя рамка, пересечение с которой должно быть однозначно истолковано как то, что блок находится на полилинии, изображающей кабель.
Примерный алгоритм:
1) найти все блоки, которые могут пересекаться с полилинией, например с помощью BSELPOLY
2) для каждого блока уточнить пересечение с характерной рамкой:
- сделать копию блока (vla-copy);
- запомнить последний примитив чертежа (entlast);
- подорвать копию (vla-explode);
- среди полученных "обломков" выделить ту самую характерную рамку (перебор с помощью entnext от ранее запомненной метки последнего примитива до текущего entlast по условиям "полилиния" и "спецслой");
- проверить ее пересечения с "кабельной" полилинией - если есть, значит блок на кабеле, оставить в списке блоков по п.1, если нет - удалить из этого списка;
- убрать мусор (от ранее запомненной метки последнего примитива до текущего entlast)


Как-то так Предлагаемые в п. 2 действия вообще-то относятся к низкому штилю программирования, гуру наверняка могут предложить вариант прямого доступа к подпримитивам блока.

[tujn08]

Сообщение от kp+ гуру наверняка могут предложить вариант прямого доступа к подпримитивам блока.

Взрывать блоки не вариант- так сказать БД чертежа (как я ее называю) "переполняется"(как я понимаю по нумерации примитивов), что приводит к ошибкам этого файла. Спасает только своевременное копирование нужного в новый созданный файл.
Если кто сталкивался буду рад вразумительным объяснениям ))
А про доступ в примитивам блока это надо глянуть функции Lee Mac

[Сергей812]

ну пока остановился на вложенном внутри основного блока УГО спец-блоке - маленьком квадрате без атрибутов с точкой вставки в центре. В блоке перебираю примитивы, нахожу вхождение этого блока, затем дело техники - найти ближайшие вершины полилинии, опустить перпендикуляр, найти точку на сегменте полилинии. Чистая геометрия - и пофиг на полилинии блок или рядом где то) Почему вложенный блок-квадрат - так как не всегда геометрический центр УГО совпадает с желаемым центром разбития полилинии, а этот вспомогательный блок где нужно ставишь.

[zamtmn]

В качестве рекламы

[kp+]

Сообщение от tujn08 Взрывать блоки не вариант- так сказать БД чертежа (как я ее называю) "переполняется"(как я понимаю по нумерации примитивов), что приводит к ошибкам этого файла. Спасает только своевременное копирование нужного в новый созданный файл. Если кто сталкивался буду рад вразумительным объяснениям ))

Связка explodeallproxy, removeallproxy, очистка списка аннот. масштабов, Audit с исправлением ошибок дает хорошие результаты. Сотни раз обсуждалось. А чтобы вызвать "переполнение БД чертежа", если чертеж 2D - не представляю, что надо изобразить. Не иначе, как карту мира в масштабе 1:100 в одном файле.

Сообщение от Сергей812 найти ближайшие вершины полилинии, опустить перпендикуляр, найти точку на сегменте полилинии. Чистая геометрия - и пофиг на полилинии блок или рядом где то)

Кажется, эта чистая геометрия в полном объеме реализована в грязной стандартной функции vlax-curve-getclosestpointto. Или о ней и идет речь?

[Сергей812]

прикольно) Только лишняя операция - выравнивание выносок. В NetApi/Arx есть JIG классы - выноску можно сформировать и ставить на место визуально сразу. Не знаю, как в лиспе с этим дела обстоят.

----- добавлено через ~8 мин. -----

Сообщение от kp+ Кажется, эта чистая геометрия в полном объеме реализована в грязной стандартной функции vlax-curve-getclosestpointto. Или о ней и идет речь?

На NetApi пишу. Да и по промежуточным коэффициентам заодно определяется - находиться ли объект на полилинии, рядом с нею и на каком расстоянии, либо за пределами полилинии.

Сообщение от kp+ А чтобы вызвать "переполнение БД чертежа", если чертеж 2D - не представляю, что надо изобразить. Не иначе, как карту мира в масштабе 1:100 в одном файле.

ну в 2012 хэндл был типа long - т.е. 2 миллиарда всего, если со знаком. Если постоянно убивать/создавать примитивы - то каждому новому из БД чертежа следующий свободный номер присваивается.

[roaa]

Действительно....пошло изобретение велосипеда...

[tujn08]

Сообщение от zamtmn В качестве рекламы

Примерно так планирую, только выноски автоматически расставлять. Плюс еще схемы внешних проводок(расключение) и все остальное автоматически отрисовывать.

[zamtmn]

Зачем? на форуме есть несколько вариантов - гораздо полдезнее развивать уже существующее чем велосипедить

[tujn08]

Сообщение от kp+ Не иначе, как карту мира в масштабе 1:100 в одном файле.

В моем опыте достаточно: прокси-графика, копирование ген.плана(порядка 5 раз), изменение генплана несколько раз, взрыв прокси без своевременной чистки.
Ооо... кстати щас такая проблема- может кто сталкивался:
файл порядка 25-30Мб в нем всего лишь один блок из-за которого все тормозит и он не удаляется- файл виснет.
Вроде предлагается пересохранить из 15 в 13 версию.

[Сергей812]

ну человек хочет переплюнуть тот же электрикал - пускай пробует) Наверно, многие, кто начинал заниматься автоматизацией - пребывали в фантазийной эйфории насчет открывающихся возможностей.. а лишь потом со временем приходит понимание - что есть лишь узкий круг задач, где реально сделать лучше именно под себя...

----- добавлено через ~2 мин. -----
13..16 акад-одна версия файла.. до этого была тройка 10..12

[tujn08]

Сообщение от Сергей812 ну человек хочет переплюнуть тот же электрикал - пускай пробует)

"плеваться" ни куда не хочу ). Назовем это переход с кульмана на САПР. Электрикал у нас никто не осилил разобраться и настроить под себя тем более. Еплан куда более подходит под наши задачи, но с англ. инструкцией сложно разобраться. Оказалось проще самим что-то этакое создать. В добавок лицензии приобретать не нужно.
Вот небольшая история: купили ModelStudio ЛЭП (ну и всю линейку вдобавок). Требуется всего-лишь провис проводов по профилю юзать. Как выяснилось- в есть ограничения поскольку программист не электрик и тонкостей не знает. Когда эти ограничения уберут? А так сами можем- разве нет. Чет я разгорячился ) ....

Сообщение от Сергей812 узкий круг задач, где реально сделать лучше именно под себя...

И тут в точку - все под себя. Ни одна САПР наши потребности не удовлетворяет: ни в экспликация, кабельном журнале, спецификации, схемах, БД оборудования производителей, документообороте и т.п..

----- добавлено через ~3 мин. -----

Сообщение от Сергей812 13..16 акад-одна версия файла.. до этого была тройка 10..12

Сергей, вопрос.. возможно знаешь. Даунгрейд с 16 до 14 возможен при условии, что лицензия? (ModelStudio работает только на до 14версии включительно и тут с тех поддержкой возникают дилемы по этому поводу)

[Сергей812]

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

----- добавлено через ~2 мин. -----

Сообщение от tujn08 Сергей, вопрос.. возможно знаешь. Даунгрейд с 16 до 14 возможен при условии, что лицензия? (ModelStudio работает только на до 14версии включительно и тут с тех поддержкой возникают дилемы по этому поводу)

Насколько я слышал от нашего админа, что с 16 версии можно было до 13 даунгрейд сделать.. но это лучше уточнять у представителей аутодеска всетаки

[zamtmn]

>>Назовем это переход с кульмана на САПР.
С подходом Поиск блоков пересекающих полилинию это будет не сапр, даже не велосипед-кульман а самокат какойнить.

>>Ни одна САПР наши потребности не удовлетворяет: ни в экспликация, кабельном журнале, спецификации, схемах, БД оборудования производителей, документообороте и т.п..
Сомневаюсь. Скорее наоборот - лень разбираться, да еще и документация к ним какаято нетакая))

[Сергей812]

кстати, тот же электрикал программируется аналогично голому автокаду, т.е. можете реализовать вывод информации в любом нужном виде, если не устраивают базовые возможности..

[tujn08]

Сообщение от Сергей812 узкий сегмент рынка проектирования с большой типизацией.

ага

Сообщение от Сергей812 и при этом замахиваетесь на автоматическую расстановку выносок,

скажу больше - для сметчиков "Красную кнопку" тоже запланировал. И компоновщик документации для заказчика

Сообщение от Сергей812 а еще это все затевать на лиспе, насколько понимаю..

как распинаю C# переключись на него. Пока есть вот это:Пакетная печать- опять же под наши требования. И я знаю, что есть 5(известных мне) похожих программ...

----- добавлено через ~1 мин. -----

Сообщение от zamtmn а самокат какойнить

[Сергей812]

Сообщение от tujn08 как распинаю C# переключись на него

Его не пинать надо, а изучать и писать на нем) Когда увидите, что многие задачи по обработки информации в С# решаются буквально в несколько строк.. ощутите прелесть того XML-комментирования своего кода.. не говори уже о возможностях построения диалогов.. лисп хорош для небольших задач, имхо.. да и раньше просто альтернативы для него не было..

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

Offtop: Лисп хорош не только для небольших задач. Сделать на нем можно очень много - и при этом не зависеть от версии ACAD

[roaa]

Offtop: Походу, велосипед купили...

[Сергей812]

Offtop: Пускай попробуют люди, понабивают шишек, приобретут какой то опыт. Сейчас это стало модный тренд - автоматизация, в нее ринулись кому не лень. Кто-то из опытных людей, давно занимающийся всеми эти вопросами, дал достаточно точное определение всем этим системам автоматизации - что это лишь рычаг. В сильной фирме с налаженными процессами автоматизация даст положительный эффект, в слабых фирмах с никчемным менеджментом - раскачает "лодку" так, что она может начать зачерпывать воду и будет еще хуже.

[skkkk]

Offtop: Прошу прощения за отсталый ответ

Сообщение от Сергей812 В NetApi/Arx есть JIG классы - выноску можно сформировать и ставить на место визуально сразу. Не знаю, как в лиспе с этим дела обстоят.

Если я правильно понял о чем речь, то в лиспе я в свое время (лет 5 назад), начав программно создавать выноски, воевал с тем, чтобы созданная мультивыноска (строки и точка стрелки задавались программно) адекватно отображалась при запросе точки вставки полки. Визуализировалась, иначе говоря. При стандартном подходе он выдавал мне только резиновую нить, и я решил формировать блок, состоящий из текста в том же шрифте, чтобы видеть размеры самой выноски, и вставлял этот блок визуализируя его под курсором, резиновую нить при этом воспроизвести так и не удалось. Хотел даже как-нибудь программно "схватиться" за ручку только что отрисованной мультивыноски. Оно и понятно было сразу, что тут получится только через отрисовку временных примитивов (grvecs) по координатам из взорванных до линий текстов. На такое я не пошел, и оставил без резиновой нити. Привыкли, конечно, однако ее часто не хватает на загруженных чертежах. Это одна из немногих (кажется, трех) задач, которую не удалось решить на лиспе (без костылей и шаманских танцев, с ними думаю, можно) в моей хоть и не слишком долгой практике.

Сообщение от tujn08 Примерно так планирую, только выноски автоматически расставлять. Плюс еще схемы внешних проводок(расключение) и все остальное автоматически отрисовывать

Сколько ни пытался, не смог придумать алгоритм, по которому можно заставить машину автоматически расставлять выноски так, как мне надо. Предпочитаю полку ставить самостоятельно. Интересно было бы посмотреть на видео, как это будет...

[tujn08]

Сообщение от skkkk расставлять выноски так, как мне надо

Уточню, что выноска будет блок, а не типовая выноска как возможно Вы поняли.

[skkkk]

Думаю, это дела не меняет, - блок или мультилидер - как программно, без запросов точек у пользователя, поставить все выноски (допустим, штук 25) на чертеж? Они ведь должны находится по возможности на "самых пустых" местах чертежа, при этом, не пересекаясь друг с другом, не перекрывая друг друга и другие объекты, а если это невозможно, то перекрывать так, чтоб не нарушить читаемости чертежа. Выносок бывает очень много на чертеже, и я даже не решился начать продумывать алгоритм, который мало того, чтобы их наполнил, так еще и расставил. Вместо этого у нас идет автоматическая трассировка по оси трубопровода, стрелки выносок поочередно дают указания на характерные точки трассы, а пользователь вручную ставит на место выноски, иногда после этого еще слегка подправляя их положение вручную. При этом на насыщенных чертежах без определенных навыков будет очень нелегко. А если еще и программа их беспорядочно расставит.....вообще капец. Хотя в каждом деле своя специфика... если выноска будет всегда одного размера и стоять должна по определенным правилам, например, справа сверху от стрелки, то ничего сложного тут нет.

[tujn08]

Сообщение от skkkk если выноска будет всегда одного размера и стоять должна по определенным правилам, например, справа сверху от стрелки, то ничего сложного тут нет.

Примерно так и будет. Взять габарит чертежа (прямоугольник или квадрат) - расставлять выноски за пределами этого габарита на определенно отступе (вспомним конструкторские чертежи). Ширина выносок статичная, а высота динамическая (от количества маркировок). У меня есть список линий (причем координаты на линиях) между блоками/приборами/зданиями - на эти линии и расставлять выноски. Маркировка формируется из названия блока (у нас) или можно правила придумать
Наложение на чертеж уже избежали получается. Пересечение линий выносок и в какую сторону выноску выкинуть- проверка координат относительно центра габарита (с возможным учетом заполненности каждой из 4х сторон) и только.

Учитывая вышеизложенное мной (т.е. информация выноски будет на пустом месте стоять). Для себя я понимаю ("самых пустых") , Надо с учетом масштаба запрограммировать правило: между приборами выноска обязательна- она стоит по середине участка или со смещением если есть повороты трассы (в зависимости от длины участка их дублировать несколько раз). Сложность не в алгоритме, а в его программировании на мой взгляд.

[zamtmn]

ИМХО. Автоматическая расстановка выносок неоправдает себя. Правильно это можно сделать только на самых простых чертежах, если чертеж насыщеный - забудь про "автоматику", ручками и вперед, благо размещать выноски если их содержимое считаетсяф автоматом можно и в полуобморочном состоянии)) Ставку нужно делать на редактируемость выноски и на повторное использование уже расставленых выносок после редактирования чертежа. Т.е. программа должна позволять не только быстро изготовить новый чертежик, но и внести изменения в старый.

Еще на правах рекламы)) :

Было 4 кабеля W1..W4, к ним добавилось еще 4 - G1..G4. Всё пересчиталось и обновилось

[Сергей812]

Сообщение от tujn08 Примерно так и будет. Взять габарит чертежа (прямоугольник или квадрат) - расставлять выноски за пределами этого габарита на определенно отступе (вспомним конструкторские чертежи). Ширина выносок статичная, а высота динамическая (от количества маркировок). У меня есть список линий (причем координаты на линиях) между блоками/приборами/зданиями - на эти линии и расставлять выноски. Маркировка формируется из названия блока (у нас) или можно правила придумать Наложение на чертеж уже избежали получается. Пересечение линий выносок и в какую сторону выноску выкинуть- проверка координат относительно центра габарита (с возможным учетом заполненности каждой из 4х сторон) и только. Учитывая вышеизложенное мной (т.е. информация выноски будет на пустом месте стоять). Для себя я понимаю ("самых пустых") , Надо с учетом масштаба запрограммировать правило: между приборами выноска обязательна- она стоит по середине участка или со смещением если есть повороты трассы (в зависимости от длины участка их дублировать несколько раз). Сложность не в алгоритме, а в его программировании на мой взгляд.

Сколько человек будет работать с этой программой - больше вас в единственном числе? И все они будут подстраиваться под необходимый стиль работы программы, а не программа "самоадаптироваться" под возможности под реальные данные?

Сообщение от skkkk Если я правильно понял о чем речь, то в лиспе я в свое время (лет 5 назад), начав программно создавать выноски, воевал с тем, чтобы созданная мультивыноска (строки и точка стрелки задавались программно) адекватно отображалась при запросе точки вставки полки. Визуализировалась, иначе говоря. При стандартном подходе он выдавал мне только резиновую нить, и я решил формировать блок, состоящий из текста в том же шрифте, чтобы видеть размеры самой выноски, и вставлял этот блок визуализируя его под курсором, резиновую нить при этом воспроизвести так и не удалось. Хотел даже как-нибудь программно "схватиться" за ручку только что отрисованной мультивыноски. Оно и понятно было сразу, что тут получится только через отрисовку временных примитивов (grvecs) по координатам из взорванных до линий текстов. На такое я не пошел, и оставил без резиновой нити. Привыкли, конечно, однако ее часто не хватает на загруженных чертежах. Это одна из немногих (кажется, трех) задач, которую не удалось решить на лиспе (без костылей и шаманских танцев, с ними думаю, можно) в моей хоть и не слишком долгой практике.

ну по сути JIG класс - это временная графика + методы отслеживания действий пользователя, инкапсулированное в одном несложном классе - производном от общего класса JIG. Т.е. в саму БД чертежа объект из JIG заноситься один раз, после всех необходимых манипуляций с ним со стороны пользователя.

[tujn08]

Сообщение от zamtmn Было 4 кабеля W1..W4, к ним добавилось еще 4 - G1..G4. Всё пересчиталось и обновилось

У меня речь о почти полной автоматизации т.е. у меня не только выноски (назову это "попутным продуктом"). Основной - кабельный журнал, спецификация и схемы.
Да будет классно, если поменяв выноску поменяется все и везде - до этого еще пилить и пилить.
У меня в первую очередь идет оформление всех планов (хоть и вразрез всех правил проектирования), а потом обработкой программой. Нужно что-то изменить- меняй план и вновь отработка программы.Простой вариант -это все удалить программно и заново нарисовать (т.к. приборов может стать больше и листы надо сдвигать и менять размеры). Ну или вставить рядом для сравнения и сохранения релиза(версий) чертежа.
Про изменение отображение выносок думал и еще подумаю, что смогу сделать - сделаю. Двигать так и так можно вручную будет.
Информацию для размышления кидаете- не спорю. В нашем случае протыкивать все блоки у нас не вариант (в случае видеонаблюдения с 200 камерами и несколькими кабелями под каждую, где не парная прокладка).
У каждого свои задачи и условия.

Вот уже сделал: см. вложения
Помогло vlax-curve-getClosestPointTo и пару условий.
Спасибо всем за поддержку и советы!!!

[Сергей812]

Сообщение от tujn08 В нашем случае протыкивать все блоки у нас не вариант (в случае видеонаблюдения с 200 камерами и несколькими кабелями под каждую, где не парная прокладка).

при грамотной реализации "протыкивания" эти 200 камер прощелкаете за несколько минут)

----- добавлено через ~2 мин. -----
но вместо этого вы потратите кучу времени на автоматическую расстановку выносок)

[tujn08]

Сообщение от Сергей812 прощелкаете за несколько минут)

у меня вся информация в блоках храниться - меняем там инфо и прощелкивать не надо. Ну если брать внезапное смещение номеров камер + изменение кабеля + добавление камер и других приборов.
У меня программа на коленке написана - доработать до красоты и удобства потом можно. Щас большие объемы появились + старые замечания - вручную куда дольше чем написать программу и спать дома, а не на работе.

[Сергей812]

Сообщение от tujn08 у меня вся информация в блоках храниться - меняем там инфо и прощелкивать не надо. Ну если брать внезапное смещение номеров камер + изменение кабеля + добавление камер и других приборов.

Ну в первых вариантах программы было так же, в гиперссылках к блокам и полилиниям. Уже больше сотни проектов народ на ней сделал в офисе, и даже с "протыкиванием" получается быстрее, чем врукопашную. Но сейчас, смотря на все это дело через пару лет - понимаю, что нужно было разносить, как советовали умные люди: в блоках и полилиниях лишь идентификаторы, во внешней БД - вся информация, при необходимости доработаются алгоритмы обработки информации в самой программе, не влезая в чертежи.

Сообщение от tujn08 У меня программа на коленке написана - доработать до красоты и удобства потом можно

не будет ни времени, ни желания - 100%. Какое "ядро"/принцип работы заложите сейчас в программу - так она и будет дальше жить, обрастая вспомогательным функционалом и костылями. Такие вещи надо продумывать на начальном этапе.

[zamtmn]

>>В нашем случае протыкивать все блоки у нас не вариант (в случае видеонаблюдения с 200 камерами и несколькими кабелями под каждую, где не парная прокладка).
"Автоматическая" расстановка выносок - абсолютно не проблема - у меня не реализована за ненадобностью. после любой "автоматической" расстоновки всеравно потребуется ручное редактирование, т.к. выноска налезет на какиенибудь другие примитивы и потребуется вмешательство - красиво делать cpu научить трудно, с этим пока только голова справится.

>> Нужно что-то изменить- меняй план и вновь отработка программы.Простой вариант -это все удалить программно и заново нарисовать
Плавали знаем... такой вариант прокатит если результат работы программы уходит кудато отдельно - незнаю, таблицы какиенибудь или другие чертежи. Если программа дорабатывает исходный чертеж, рано или поздно встает выбор - поправить быстренько "наколенке" без автоматики или сделать по уму и снова заново всё это подвигать-подгонять. Как правило будет выбран первый вариант))

>>Основной - кабельный журнал, спецификация и схемы.
кж и с по факту какраз гораздо проще реализовать чем такую "рутину"

>>У меня речь о почти полной автоматизации
А я толкаю речь про то что автоматизация это хорошо, но она должна быть "прозрачной" и внесение крошечных изменений не должно приравниваться к переделке всего заново


Научите как тут можно автоматом расставить выноски - буду рад

[tujn08]

Сообщение от zamtmn Научите как тут можно автоматом расставить выноски - буду рад

Эту задачу тоже планирую захватить )))
Пока на ум приходит- в отдельном слое отрисовывать прямоугольником все помещения (если план "левый"). Как ни крути должна быть экспликация помещений с цифрами- проставить цифры (или уже иметь цифры от "строителей") и прямоугольники можно автоматом отрисовывать. Если план по уму нарисован (не картинка)- все проще становиться. По нормативам расставлять приборы в помещениях(можно сделать на выбор)- опять же получиться, что автоматом. По правилам последовательности приборов- связи между блоками можно "автоматом" получить. Дальше уже на выбор- или позволить программе автоматически стенку по которой трассу прокладывать, или рисовать/выбирать самим.
В тему скажу: камеры на плане расставлять буду почти автоматически - достаточно обозначить периметр + внутрении трассы. Заранее конечно стоит выбрать тип камер(там прописаны возможные кабеля), а от типа кабеля и камер расстояние между ними известно. Угол обзора камер тоже выбрать автоматически.
Просто ради спортивного интереса:
Как учитываешь высоты приборов и трассы? на плане их не видно

Сообщение от Сергей812 в блоках и полилиниях лишь идентификаторы, во внешней БД - вся информация,

так изначально и запланировал, НО в связи с необходимостью иметь какую ни какую автоматизацию сейчас - делаю без БД. У нас БД представляет табличную информацию обследования- из нее все, что можно, будет взято )). Останется расставлять блоки с выбором нужной "строки" из БД.

----- добавлено через -----
В общем "наполеоновские планы" у меня.

[tujn08]

Вот еще тест провел. Вроде все работает как мне надо. Буду испытывать на "реальном проекте"
Надо еще вычет второго катета сделать и прибавить высоту приборов.

[zamtmn]

>>Как учитываешь высоты приборов и трассы? на плане их не видно
Несколько вариантов
1 - трехмерная трасса и расстановка приборов на соответствующих высотах
2 - для 2Д есть возможность подкючить в трассу "муляжное" устройство "стояка" которое добавит для всех кабелей проходящих через него необходимую длину. Также для каждого устройства можно задать значение которое оно добавит к длине всех подключеных кабелей (по идее фича задумывалась как запас кабеля на разделку при подключении, но можно использовать и как этуляцию разности высот)
3 - тоже для 2Д. в случае если кабель начинается на одном плане, заканчивается на другом - к его длине автоматом добавляется разница высотных отметок "стояков" или "разрывов" (специальные блоки "заканчивающие" кабель на одном плане и "начинающие" на другом). сама высотная отметка стояков и разрывов задается им в их свойствах

[tujn08]

Сообщение от zamtmn Несколько вариантов

Я к тому, что ты их учитываешь все же, но на плане не показываешь?
Замечания не присылали по этому поводу?
Я работаю с 2Д и в каждый прибор вписываю высоты (они могут быть разные). Программе не важно на какой высоте на самом деле трасса же- ее принимаю за 0.000

----- добавлено через ~11 мин. -----

В выносках мы прописываем на какой высоте прибор или трасса.

[zamtmn]

>>Я к тому, что ты их учитываешь все же, но на плане не показываешь?
Случаи бывают разные

>>Замечания не присылали по этому поводу?
Думаешь эти +-метры когото кроме тебя интересуют?))

Вообще имхо лисп для таких задач не особо подходит - блоки+полилинии для устройств и трасс не сильно годятся, лучше отдельные примитивы. Также надо много всякой информации хранить в примитивах - на ум сразу лезет xdata - придется делать средства для массовой обработки этих xdata. и желательно не запросами в комстроке, а с удобным гуем

[kp+]

Сообщение от zamtmn Думаешь эти +-метры когото кроме тебя интересуют?))

Когда подрядчику недоплачивают или у него недостает времени, он отключает голову и начинает придираться к каждой запятой в проекте.

Сообщение от zamtmn Также надо много всякой информации хранить в примитивах - на ум сразу лезет xdata - придется делать средства для массовой обработки этих xdata. и желательно не запросами в комстроке, а с удобным гуем

В Acad Electrical другой вариант - почти вся необходимая инфа хранится в атрибутах блоков, и в каждом блоке их ...ва куча. Большинство скрыты.
Зато можно редактировать станд. средствами

[Сергей812]

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

А если объект с госфинансированием - то и со счетной палатой можно познакомиться, если запасы дикие на кабели заложены для отбивки монтажа)

[zamtmn]

kp+
>>и начинает придираться к каждой запятой в проекте.
Согласен, придраться можно хоть к чему.
По атрибутам - наиболее удобный вариант, хотя минусов тоже хватает. но это только для блоков,

Сергей812
Видимо я считаю хорошо, неразу проблем не имел))

[tujn08]

Сообщение от zamtmn Думаешь эти +-метры когото кроме тебя интересуют?))

Обязательно... к примеру КИП приборы на НПЗ - на установке высотой 30м - явно будет недобор.

Сообщение от zamtmn По атрибутам - наиболее удобный вариант, хотя минусов тоже хватает.

Согласен...

Что-то ушли от темы ))) Хотя я решил задачу уже. Еще раз спасибо всем!

[Дима_]

Сообщение от skkkk Если я правильно понял о чем речь, то в лиспе я в свое время (лет 5 назад), начав программно создавать выноски, воевал с тем, чтобы созданная мультивыноска (строки и точка стрелки задавались программно) адекватно отображалась при запросе точки вставки полки. Визуализировалась, иначе говоря. При стандартном подходе он выдавал мне только резиновую нить, и я решил формировать блок, состоящий из текста в том же шрифте, чтобы видеть размеры самой выноски, и вставлял этот блок визуализируя его под курсором, резиновую нить при этом воспроизвести так и не удалось.

Примерно в то-же время я делал подобное и на лиспе - больше, чтоб показать как, а вообще это конечно решается джигом. Кстати, при условии установленных Экспрессов, появляються и соотв. лисп. функции для "визуального" перемещения - по моему в той, же теме я об этом писал.

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

Как вариант готового jig'а, используемого в lisp: http://www.caduser.ru/forum/index.ph...171&MID=112412

[skkkk]

Сообщение от tujn08 Что-то ушли от темы )))

Вы, правы, прошу прощения, это я виноват.
zamtmn, Сергей812, Дима_, Александр Ривилис и все, кому интересен вопрос, предлагаю продолжить в более подходящей теме: Как визуализировать создаваемый объект?.

Уважаемая администрация, я извиняюсь за нарушение правил, сам не понял, что на меня нашло, о чем думал, но как-то отвело меня от темы разговора. И довольно нехило. Однако тема нужная, и не хотелось бы терять данную информацию. Как прикажете поступить? Если решите перенести в ту тему, то я вставил там все цитаты со ссылками сюда на посты, относящимися к той теме - может, удобней будет вам их отсюда тогда изъять? Готов понести посильный труд для устранения своей ошибки. Например, удалить потом свое то сообщение с цитатами. Но может быть, их лучше так уже и оставить в цитатах, а тут по возможности либо заоффтопить каждому свое, либо их поудалять, но там есть сообщения, в которых затрагиваются обе темы, я вроде как профильтровал.
Ей-Богу, не нарочно...

[АлексЮстасу]

Сообщение от tujn08 Поиск блоков пересекающих полилинию

Может быть пригодилось бы уже готовое из http://forum.dwg.ru/showthread.php?t=105238:
- PSI_SEL_ON_LINE - выбрать элементы на линиях с учетом указанного допуска. У блоков и текстов учитываются только точки вставки. Выбираются элементы относительно линии в зоне, шириной в допуск в каждую сторону.
- PSI_SEL_ON_LINE_3D - выбрать элементы на линиях с учетом 3D с учетом указанного допуска. У блоков и текстов учитываются только точки вставки. Выбираются элементы относительно линии в зоне, шириной в допуск в каждую сторону и в высоту.
- PSI_SEL_INTERSECT - выбрать элементы, пересекающие линии. У блоков и текстов учитываются габариты.
- PSI_SEL_INTERSECT_3D - выбрать элементы, пересекающие линии с учетом 3D. У блоков и текстов учитываются габариты.

Да! Еще команда FS из Express ищет блоки на линиях. (Иногда не находит).

[tujn08]

Подскажите пожалуйста функцию поиска в указанной/выделенной области.
Нашел метод Select.
Требуется:
По двум точкам раскидать по наборам из нужных слоев все линии и блоки

----- добавлено через ~12 мин. -----
Нужно сделать вот это из выделенной области:
(setq nab_E (ssget "_X" (list (cons 8 "Pr_Equipment") (cons 0 "INSERT")))) ;создали набор из Boxes и AK_device
(setq nab_O (ssget "_X" (list (cons 8 "Pr_Obj") (cons 0 "INSERT")))) ;создали набор из Object
(setq nab_T (ssget "_X" (list (cons 8 "Pr_Track") (cons 0 "LWPOLYLINE")))) ;создали набор трасс
(setq nab_U (ssget "_X" (list (cons 8 "Pr_UGO_with_to") (cons 0 "INSERT")))) ;создали набор смены высоты

[skkkk]

Сообщение от tujn08 Нужно сделать вот это из выделенной области

Убрать "_X" вообще - не то?

[tujn08]

Сообщение от skkkk Убрать "_X" вообще - не то?

Да увидел (до этого совсем забыл об этом).

Код:

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

 (progn
(princ "Выберите границу за пределами которой будут насставленны выноски.")(terpri)
	(setq point_1(getpoint "Первая точка: "))(terpri)
	(princ point_1)(terpri)
	(setq point_2 (getcorner point_1 "Вторая точка: "))(terpri)
	(princ point_2)(terpri)
	(setq point_0 (list (/ (+ (nth 0 point_1) (nth 0 point_2)) 2) (/ (+ (nth 1 point_1) (nth 1 point_2)) 2) (/ (+ (nth 2 point_1) (nth 2 point_2)) 2))  )
	(setq point_7 (list (nth 0 point_0) (nth 1 point_1) (nth 2 point_0))  )
	(setq point_8 (list (nth 0 point_2) (nth 1 point_0) (nth 2 point_0))  )
	(setq point_5 (list (nth 0 point_0) (nth 1 point_2) (nth 2 point_0))  )
	(setq point_6 (list (nth 0 point_1) (nth 1 point_0) (nth 2 point_0))  )
		;	|-----3-----1
		;	| (2) | (1) |
		;	4-----0-----6
		;	| (3) | (4) |
		;	2-----5-----|
	(setq
		nab_E1 nil
		nab_E2 nil
		nab_E3 nil
		nab_E4 nil
	)
	(setq nab_E1 (ssget "_W" point_1 point_0 (list (cons 8 "Pr_Equipment") (cons 0 "INSERT"))))  ; 1 четверть
	(setq nab_E2 (ssget "_W" point_3 point_4 (list (cons 8 "Pr_Equipment") (cons 0 "INSERT"))))  ; 2 четверть
	(setq nab_E3 (ssget "_W" point_0 point_2 (list (cons 8 "Pr_Equipment") (cons 0 "INSERT"))))  ; 3 четверть
	(setq nab_E4 (ssget "_W" point_6 point_5 (list (cons 8 "Pr_Equipment") (cons 0 "INSERT"))))  ; 4 четверть
	)

Щас такая проблема - не хотят создаваться наборы. Хотя бы nab_E3 создавался, а щас вообще ни один

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

А точки, по которым ты выбор делаешь, попадают в отображаемую на экране область или нет?

[tujn08]

Код:

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

 	(command "_rectang" point_1 point_0)
	(setq nab_E1 (ssget "_W" point_1 point_0 (list (cons 8 "Pr_Equipment") (cons 0 "INSERT"))))  ; 1 четверть
	(command "_rectang" point_3 point_4)
	(setq nab_E2 (ssget "_W" point_3 point_4 (list (cons 8 "Pr_Equipment") (cons 0 "INSERT"))))  ; 2 четверть
	(command "_rectang" point_0 point_2)
	(setq nab_E3 (ssget "_W" point_0 point_2 (list (cons 8 "Pr_Equipment") (cons 0 "INSERT"))))  ; 3 четверть
	(command "_rectang" point_6 point_5)
	(setq nab_E4 (ssget "_W" point_6 point_5 (list (cons 8 "Pr_Equipment") (cons 0 "INSERT"))))  ; 4 четверть

Да.
Заметил такое, что отклонился от нужной точки и все вроде как заработало- почему так случилось не знаю. Может потому, что эта точка была на блоке?

----- добавлено через ~3 мин. -----
еще бывало, что точка 0 скакала:
в 2 и 3 четверти была правильной
в 1 и 4 была выше правильной

----- добавлено через ~13 мин. -----
все я понял ))

Как переключать режим выбора того, что за пределами экрана? У меня не выбиралось, нужное- я приближал.

[skkkk]

Сообщение от tujn08 Как переключать режим выбора того, что за пределами экрана?

Насколько я знаю, такого режима не существует. Я выходил из данной ситуации так: получал точки рамки интерактивно с помощью getcorner, затем перед запуском ssget с аргументом "_C" (но то же справедливо и для "_F") зумировал чертеж, чтобы точки попадали на экран, а после создания набора возвращал вид обратно. Для пользователя это незаметно, если, конечно, чертеж не сотни мегабайт весит.

[tujn08]

Сообщение от skkkk Насколько я знаю, такого режима не существует

Режим есть- знаю точно. В 10 версии при работе дома и на работе - в этом была разница в настройках.

[zamtmn]

>>Обязательно... к примеру КИП приборы на НПЗ - на установке высотой 30м - явно будет недобор.
В таких случаях над бы показать разрезик - как трасса эти 30м проходит, а не просто "стоячек" на плане

>>Режим есть- знаю точно.
нет такого режима

[skkkk]

Сколько раз обсуждалось - за пределами экрана ни ssget, ни штатные приглашения выбора не выбирают объекты, захваченные рамкой, но не попавшие в видимую часть экрана.

[tujn08]

Сообщение от zamtmn над бы показать разрезик

Уточнение: какой разрез? Профильный - зачем? Лишняя информация- достаточно высоты прибора (зачем показывать колонну - для того что бы показать, что лоток вертикально поднимается). Случаи спирального подъема по колонне уверен не будут.
Для "информационной" красоты приемлем только горизонтальный разрез (поэтажность на колонне) - для того что бы показать где датчик расположен относительно другого оборудования. Опять же высота прибора будет указана все равно. А если приборы на разных этажах- показать на каких они высотах достаточно. Для подсчета длины достаточно- остальное дело красоты в чертежах.

Сугубо мое мнение - так как я сделал бы и уверен сделаю, если придется!

[tujn08]

Кто поможет разобраться с проблемой:

ssget
При максимальном "приближением" области расстановка блоков идет идеально. Т.е. координаты вычисляются правильно.
При даже небольшом "удалении" области (для наглядности еще "дальше" сделал) расстановка блоков идет черти как. Т.е. координаты плохо вычисляются.

Округления могут помочь?

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

А ты проверь - как они вычисляются. И не срабатывают ли "грабли номер раз"

[tonimikojanovka]

Подскажите пожалуйста, есть ли такая чудо лиспа, чтобы автокадовские выноски, которые беспорядочно нанесены выставлялись бы в рядочек или в хороводик и не пересекали бы друг друга линиями привязки и линиями полки и текстом на полке не пересекали бы объекты нарисованные в модели и искали бы ближайшее свободное местечко для расположение полки и текста на ней ? Может лень (скорость работы) уже дошла до этого.

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

И какое это имеет отношение ко всей теме?

[tonimikojanovka]

косвенное

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

Тогда в отдельную тему.