[ВоваН]

Предыстория:

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

Требуемый результат:

Расчетная схема для передачи в расчетную программу.
Требования к расчетной схеме: В одном узле все линии должны заканчиваться в одной точке.


Проблема:

1. Не все линии в узле заканчиваются в одной точке. Бывает так: приходят в узел 6 линий из них пять линий приходят в точку с координатами X=1, Y=1, Z=1, а шестая в точку X=1.001, Y=1.001, Z=1.001. Визуально это не видно, но для расчетной схемы не подойдет.

2. Нарисовал линию №1, а когда начал рисовать линию №2, привязался к середине линии №1, но линию №1 в этой точке не разбил. В итоге линия №2 приходит в то место, где узла нет.

Проверять приходится больше 1000 узлов.

Примеры узлов во вложении.


Что нужно:

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

[Do$]

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

[ВоваН]

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

Я искал но не нашел, и вот по этому я задаю этот вопрос.

Если ВЫ найдете мне ответ на этот вопрос, я буду очень признателен.

[Do$]

Сообщение от ВоваН и вот по этому я задаю этот вопрос.

Вопроса я в первом посте не увидел, только требования. С требованиями - прямая дорога в раздел поиска исполнителей. http://forum.dwg.ru/forumdisplay.php?f=33

Сообщение от ВоваН Если ВЫ найдете мне ответ на этот вопрос, я буду очень признателен.

Совершенно нет желания.

[gomer]

ох ты ж сколько программистов тут... и хоть лишняя копейка в доме не помешает, присоединяюсь к Do$. Проход номер раз: ищем по фразе "Округление координат", проход номер 2 ищем по фразе "Разрыв в точках пересечений"

[ВоваН]

Сообщение от gomer ох ты ж сколько программистов тут... и хоть лишняя копейка в доме не помешает, присоединяюсь к Do$. Проход номер раз: ищем по фразе "Округление координат", проход номер 2 ищем по фразе "Разрыв в точках пересечений"

Я же писал: Узлы можно помечать как угодно, но! только не надо исправлять координаты.

Ребята, пожалуйста, не пишите не по теме. Не хотите помочь, никто вас не заставляет, зачем тратить драгоценное время на всякую чепуху?

[Олег (jr.)]

Попробуй

Код:

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

(defun C:demo(/ a compd ents i fuzz ln matched osm p records sset tp)
(command "_undo" "_BE")
(setq fuzz 0.0001);<< increase or decrease a fuzz
(setq osm (getvar 'osmode))
(if (and (setvar 'osmode 32)(setq p (getpoint "\nPick point in intersection: "))(setq sset (ssget (list (cons 0 "line")))))
  (progn
(setq ents (vl-remove-if 'listp (mapcar 'cadr (ssnamex sset))))
(setq records (mapcar '(lambda (ln)(list (cdr (assoc -1 ln)) (cdr (assoc 10 ln))(cdr (assoc 11 ln))))
  (mapcar 'entget ents)))

(setq compd (mapcar '(lambda (a)(or (> (distance (car a) p) fuzz )
				    (> (distance (cadr a) p)fuzz  )))
		    (mapcar'cdr records)))
(setq matched nil)
(setq i 0)
(while (and (setq tp (nth i compd))(eq tp T))
	(ssdel (nth i ents)sset)
  (setq compd (cdr compd))
(setq i (1+ i)))

(setq ents (vl-remove-if 'listp (mapcar 'cadr (ssnamex sset))))	
(foreach en ents
  (command "_chprop" en "" "_CO"  "_T" "255,0,0" ""))
)
  )
(alert "See result")
(command "_undo" "_END")
(setvar 'osmode osm)
(princ)
)

[ВоваН]

Попробовал, выделяет красным любые две или три линии, в независимости от сходимости в одной точке.
Короче - просто красит красным несколько линий из выделенных.

[480725]

М.б. надо найти все отрезки, координаты которых отличаются от целых чисел? Этого будет достаточно?

----- добавлено через ~10 мин. -----
Проблема еще актуальна?
В твоем примере все линии опираются на один узел, т.е. второй конец линии свободный. В реальной ситуации оба конца опираются на узлы, или есть исключения? Ситуация, показанная в примере 2 всегда ошибочная (оба конца отрезка опираются на узлы, но где-то внутри отрезка есть узел).