[sashaooo]

Доброго времени суток! Не получается "Соединить" (_JOIN) две полилинии лежащие на одной прямой. Если эти полилинии "Расчленить" (_explode) до отрезков(Z=0 у всех точек),то они соединяются. Хотя в справке указано что
"объектов для присоединения:Выберите линии, полилинии, 3D-полилинии, дуги, эллиптические дуги, спирали или сплайны."
Ни совсем удобно разбивать полилинии на отрезки..Также пробовал "Обратить" полилинии,т.е менять местами верщины полилинии.
Быть может у кого нибудь есть лисп позволяющий соединять полилинии лежащие на одной прямой. присвою псевдоним затем этому лиспу)

[Ingpro]

Попробуйте этот лисп. Отрезки и полилинии должны быть без разрывов...

[sashaooo]

хорошо,спасибо. все же надо доработать под себя)

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

Убежден, что чудес не бывает, и для решения нужен как минимум образец. И сильно подозреваю, что предварительный _.flatten проблему решит не сильно напрягаясь

[sashaooo]

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

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

На опции команды _.pedit внимательно смотри.

[sashaooo]

какая опция?замкнуть?опять таки же надо выбирать.. быстрее _explode и _join..
быстрее выше выложеный лисп переделать,точнее разобраться с Fuzz distance не понятно как она работает.. при отличных от 0 значениях соединяет,но не понятно как..

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

Сообщение от Ingpro Попробуйте этот лисп. Отрезки и полилинии должны быть без разрывов...

И откуда ж вы такое вытаскиваете? )) Ща, второй глаз вытечет, попробую показать другой вариант...

----- добавлено через ~33 мин. -----
Без проверок и тестирования, ибо лень:

Код:

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

 (defun c:jf (/ adoc sysvars selset dist) 
  (if 
    (and 
      (= 
        (type 
          (setq selset (vl-catch-all-apply 
                         (function 
                           (lambda () 
                             (ssget '((0 . "LINE,*POLYLINE,ARC")))
                           )
                         )
                       )
          )
        )
        'pickset
      )
      (= 
        (type 
          (setq dist (vl-catch-all-apply 
                       (function 
                         (lambda () 
                           (cond 
                             ((getdist "\mFuzz dist <0> :"))
                             (t 0.0)
                           )
                         )
                       )
                     )
          )
        )
        'real
      )
    )
    (progn 
      (vla-StartUndoMark (setq adoc (vla-get-ActiveDocument (vlax-get-acad-object))))
      (setq sysvars (vl-remove 
                      nil
                      (mapcar 
                        (function 
                          (lambda (x / temp) 
                            (if (setq temp (getvar (car x))) 
                              (progn 
                                (setvar (car x) (cdr x))
                                (cons (car x) temp)
                              )
                            )
                          )
                        )
                        '(("cmdecho" . 0)
                          ("menueco" . 0)
                          ("nomutt" . 1)
                          ("peditaccept" . 0)
                         )
                      )
                    )
      )
      
      (vl-cmdf "_.pedit" "_m" selset "" "_j" dist "")
      
      (foreach item sysvars 
        (setvar (car item) (cdr item))
      )

      (vla-EndUndoMark adoc)
      (princ)
    )
  )
)

[sashaooo]

mFuzz dist <0>:
(пробовал разные,ну и нуль оставлял)
какое значение вводить?
первый вариант хоть работал)