Topic: Mass Reverse Lines to Most Readable

[cgeorg13]

Hello all,

Is there a way to be able to run the reverse command on a large selection set but only have it reverse the lines that are unreadable?
I'm wondering if it could be like Torient (text orient) in how it has an option to just reverse all text/mtext/leaders/etc. to the most readable direction and feel like this could be implemented to work on lines and polylines.

[mkweaver]

This will work for lines.  Anything else will take a bit more work.

Code: [Select]

(defun c:FixLineOrientation (/ ss1 SwapEndPoints)
  (defun SwapEndPoints (ent / elist p0 p1 ang)
    (setq
      elist (entget ent)
      p0    (cdr (assoc 10 elist))
      p1    (cdr (assoc 11 elist))
      ang   (angle p0 p1)
    )
    (if (and
  (> ang (/ pi 2))
  (< ang (* (/ pi 2) 3))
)
      (progn
(setq
  elist (subst (cons 10 p1) (assoc 10 elist) elist)
  elist (subst (cons 11 p0) (assoc 11 elist) elist)
)
(entmod elist)
      )
    )
  )
  (if
    (and (setq ss1 (ssget '((0 . "LINE"))))
(< 0 (sslength ss1))
    )

     (mapcar
       (function
(lambda (ent)
   (SwapEndPoints ent)
)
       )
       (vl-remove-if
'null
(vl-remove-if-not
   (function (lambda (e) (= 'ENAME (type e))))
   (apply 'append (ssnamex ss1))
)
       )
     )
  )
  (princ)
) ;end c:FixLineOrientation