[kleo]

Есть участок дороги, известно, где проходят линии вдоль обочин. Мне необходимо начертить линию точно между этими двумя полилиниями. Пробовал использовать offset, но не получил требуемой точности. У кого-нибудь есть идеи?

см. рисунок

[skif58]

команда MPL (Средняя полилиния из Pltools)
http://dwg.ru/dnl/607

[kleo]

Спасибо!
Отличное приложение- Единственная проблема - текст в командной строке на русском языке. Я изпользую версию на английском, поэтому все отображается как иеголифы. И еще. Когда генерируешь среднюю линию между двумя длинными полилиниями, то лучше разбивать эти линии на более короткие - повышается точность. Если у кого есть другие идеи - пишите.

[Nike]

От Lee Mac (http://www.cadtutor.net/forum/showth...093#post271093)

Код:

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

 (defun c:cPoly (/ ent1 ent2 i j mPt len pt p1 ptlst grlst grlin)
  (vl-load-com)

  (if (and (setq ent1 (car (entsel "\nSelect First Polyline: ")))
           (wcmatch (cdr (assoc 0 (entget ent1))) "*POLYLINE"))
    (if (and (setq ent2 (car (entsel "\nSelect Second Polyline: ")))
             (wcmatch (cdr (assoc 0 (entget ent2))) "*POLYLINE"))
      (progn
        (setq i -1 len (/ (vla-get-Length
                            (vlax-ename->vla-object ent1)) 100.) grlin '( ))
        (while (and (grread 't)
                    (setq pt (vlax-curve-getPointatDist ent1 (* (setq i (1+ i)) len))))
          (redraw)
          (setq p1 (vlax-curve-getClosestPointto ent2 pt t)
                ptlst (cons
                        (setq mPt
                          (polar pt (angle pt p1) (/ (distance pt p1) 2.))) ptlst) j -1 grlst nil)
          (repeat 500
            (setq grlst
              (cons
                (polar mPt (* (setq j (1+ j)) (/ pi 250.)) (distance mPt p1)) grlst)))
          (setq grlin (append grlin (list (if grlin (last grlin) mPt) mPt)))
          (grvecs (append '(3) grlst (cdr grlst) (list (car grlst))))
          (grvecs (append '(1) grlin)))
        (redraw)
        (setq ptlst (apply 'append
                      (mapcar
                        (function
                          (lambda (x)
                            (list (car x) (cadr x)))) ptlst)))
        (vla-AddLightWeightPolyline
          (vla-get-ModelSpace
            (vla-get-ActiveDocument
              (vlax-get-acad-object)))
          (vlax-make-variant
            (vlax-safearray-fill
              (vlax-make-safearray
                vlax-VBDouble (cons 0 (1- (length ptlst)))) ptlst))))))

  (princ))