[Zaghim]

Друзья, помогите. Есть такой код

Код:

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

(defun spoint ()
  
  (setq b (cons 10 (inter bp1 ug dpoi)))
  (setq w (nth 1 b))
  (if (/= w nil)
    (setq a (cdr b))
    (setq a nil)
  )  

)


(defun inter (bp1 ug dpoi / ss)
  (If (setq
    ss (ssget "_F" (list bp1 (polar bp1 ug dpoi)))
      )
    (cadr (cadddr (car (ssnamex ss))))
  )
)

В нем происходит следующее: есть lwpolyline с ненулевым значением elevation, либо здполилиния с заданной координатой z (не ноль). Тыкаем две точки в любом месте и этот кусок находит координату пересечения наших точек в нуле с первой встречной линией не важно в нуле она или не в нуле. Все круто, но нужно что бы она всегда находила только точки не в нуле, а нулевые как бы не замечала. Т.е. попалась на пути 3д полилиния с высотой 100, я получаю координату пересечения линии и моего отрезка, а если попался какой-нибудь текст или что угодно с высотой ноль либо вообще без высоты, то я пропускаю этот объект и смотрю дальше, пока не встречу 3дполилинию или лвполилинию. Помогите плиз.

[TararykovDG]

Zaghim, вместо строки
(ssget "_F" (list bp1 (polar bp1 ug dpoi)))
напиши так
(ssget "_F" (list bp1 (polar bp1 ug dpoi)) (list (cons -4 "<OR") (cons -4 "<AND") (cons 0 "POLYLINE") (cons 70 8) (cons -4 "AND>") (cons -4 "<AND") (cons 0 "LWPOLYLINE") (cons -4 ">") (cons 38 0) (cons -4 "AND>") (cons -4 "OR>")))

[Zaghim]

Спасибо, но к сожалению как-то не корректно работает.

[TararykovDG]

Zaghim, а что возвращает
(setq ss (ssget "_F" (list bp1 (polar bp1 ug dpoi)) (list (cons -4 "<OR") (cons -4 "<AND") (cons 0 "POLYLINE") (cons 70 8) (cons -4 "AND>") (cons -4 "<AND") (cons 0 "LWPOLYLINE") (cons -4 ">") (cons 38 0) (cons -4 "AND>") (cons -4 "OR>"))))
(ssnamex ss)

видимо (ssget...) возвращает пустой набор, значит нет ни одного примитива удовлетоворяющего фильтру записанному в ssget.

Нужно разбираться:
(list
(cons -4 "<OR") - начало логического или
(cons -4 "<AND") - начало логического и
(cons 0 "POLYLINE") - выбрать примитивы типа "POLYLINE"
(cons 70 8) - тип "POLYLINE" 3d полилиния
(cons -4 "AND>") - конец логического и
(cons -4 "<AND") - начало логического и
(cons 0 "LWPOLYLINE") - выбрать примитивы типа "LWPOLYLINE"
(cons -4 ">") (cons 38 0) - выбрать LWPOLYLINE у которго уровень больше 0 (нуля)
(cons -4 "AND>") - конец логического и
(cons -4 "OR>") - конец логического или
)

[Zaghim]

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

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

[TararykovDG]

В общем-то я так и понял и именно из этих соображений и давал ответ. Так вот, строка кода (ssget "_F" (list bp1 (polar bp1 ug dpoi))) (подсказанная Вам Disney в другой теме) как Вы и сказали формирует набор из всех примитивов чертежа, пересекаемых линией задаваемой точками bp1 и (polar bp1 ug dpoi). Теперь сюда мы добавили фильтр (list (cons -4 "<OR") (cons -4 "<AND") (cons 0 "POLYLINE") (cons 70 8) (cons -4 "AND>") (cons -4 "<AND") (cons 0 "LWPOLYLINE") (cons -4 ">") (cons 38 0) (cons -4 "AND>") (cons -4 "OR>")) и получили строку (ssget "_F" (list bp1 (polar bp1 ug dpoi)) (list (cons -4 "<OR") (cons -4 "<AND") (cons 0 "POLYLINE") (cons 70 8) (cons -4 "AND>") (cons -4 "<AND") (cons 0 "LWPOLYLINE") (cons -4 ">") (cons 38 0) (cons -4 "AND>") (cons -4 "OR>"))). Т. е. формируем набор из всех примитивов чертежа, пересекаемых линией задаваемой точками bp1 и (polar bp1 ug dpoi) и удовлетворяющих фильтру, а именно наш примитив должен быть либо 3d полилинией, либо обычной ("LWPOLYLINE") полилинией лежащей на не нулевом уровне. Таким образом все остальные примитивы (даже пересекаемые заданной линией) не должны попасть в формируемый набор.
Zaghim, выложи файл чертежа, точки bp1 и (polar bp1 ug dpoi) зарисуй красными окружностями

[Zaghim]

Воткнул в код простановку точки, что бы можно было увидеть с чем она пересеклась...вроде текст пропускает...хм хм хм... значит косяк мой при обработке или еще где...буду разбираться. СПАСИБО!!!

Сейчас натыкал кучу текста между линий и прога начала косячить...ничего не понимаю(((

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

[TararykovDG]

Удачи! Да, вот еще я написал так (cons -4 ">") (cons 38 0) - это значит выбрать только те объекты уровень, которых больше нуля, а надо наверное все которые не равны нулю, тогда замени на это (cons -4 "<>") (cons 38 0)

[Zaghim]

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

Поправка... если это будет такая же лвполилиния или 3дполилиния с 0 высотой или просто линия, она ее пропускает!!!!!!!! А вот с текстом какой-то косяк(((((((

[TararykovDG]

Сообщение от Zaghim Хрень получается...выкладываю 2 картинки.

Да выложи dwg файл или что, там секретные материалы?

[Profan]

Поиск пересечения точки с 3дполилинией

Точка ни с чем пересекаться не может.

[Disney]

Zaghim, так тебе что нужно, найти одну ближайшую? или сразу все с не лежащими в нуле полилиниями, а по ним профиль построить?

[Zaghim]

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

[Disney]

Ладна... зайдём с другой стороны, какие конкретно данные тебе нужны для построения профиля?
Их можно сразу извлечь(вычеслить) ещё при нахождении ближайшей(или сразу всех пересекаемых полилиний не в 0), а не потом повторно выбирая полилинию в ранее найденной точки.

[Zaghim]

Я делаю так

Код:

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

(setq ob (ssget "_c" mp1a mp1b))
  (setq ob1 (entget (ssname ob 0)))
  (setq lob (cdr (assoc 0 ob1)))
  (if (equal lob "LWPOLYLINE")
    (setq prob1 (cdr (assoc 38 ob1)))
    (progn
       (setq ob1 (entget (entnext (cdr (car ob1)))))
       (setq prob1 (cdr (assoc 10 ob1)))
       (setq prob1 (nth 2 prob1))
    )
  )

Т.е. если лв полилиния, я беру значение elevation (она же высота), если 3д полилиния, то беру значение координаты Z!
Соответственно точки mp1a mp1b - это небольшие отступы в стороны от точки пересечения с высотной линией, что бы выбрать потом эту же линию... гимморно делаю, знаю...просто на более продвинутый код мозгов не хватает, приходится извращаться...

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

Почему-то начинаю подозревать, что код из http://www.cadtutor.net/forum/showth...ll=1#post56521 поможет.

[Zaghim]

Не могу скачать код, да и с английским плохо. Можно выложить тут и объяснить, что там делается?

[Disney]

Сообщение от Zaghim да и с английским плохо

Стыдно инженеру не знать англицкий.

Почитай ту тему на русском с первой страницы, правда там не совсем корректный перевод, но всё же лучше чем никак.

Ну и пока Алексей спит, выложу его код, тебе же явно не терпится

[Zaghim]

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