reverse polyline direction

I have found a few lisp utilities to reverse the direction of a polyline,
but they don't work very well. Does anyone know of a routine that actually
works well?

 

nevermind... I found a good one... PLREV.LSP from Mr. Turvill's site.
Thanks

 

Hi Mark

Visit my homepage -> Free Stuff and search for 'VxRevPline'...

Cheers

 

Thanks Juerg, I'll be sure to check it out.

 

Welcome...¦-)

Cheers

 

Hi Juerg-

VxRevPline does not work for me... yet.

I added this for a shortcut in my acad.lsp...

(defun c:rvp ()
(vxrevpline (car (entsel)))
)

Followed by your entire code...

(defun VxRevPline (Obj / BlgLst PntLst SegCnt TmpLst Ubound)
(setq TmpLst (vlax-get Obj 'Coordinates))
etc...

I also tried
(defun c:rvp ()
(vxrevpline (entsel))
)

....and if I run
(VxRevPline)
I'm told an argument is required, yet I want to pick the pline directly.

What must I do?
-doug

 

Hi Doug

Read the header of my Free Stuff page... all functions on this page
require objects not entities as argument(s).
Therefore you've to use:
(VxRevPline (vlax-ename->vla-object (car (entsel))))

Cheers

 

Thank you!

 

by the way....
Your website's "Free Stuff" page displays with an extra character "=" before each
heading, forcing an extra line. This makes the description lines mis-align.
-doug