Dimension All Angles At Bends In Polyline

[Anonymous]

Hello All,

I'm looking to see if anyone has a lisp routine that will automatically "DimAngular" all vertices along a Polyline. I have a project with several very long polylines and hundereds of angles I need to take out. 

Thank you for any feedback. 

[hak_vz]

You should upload a sample drawing or a screenshot . It makes it easy to "connect the dots".

[Kent1Cooper]

Have you done a Search of this Forum?  I think something like this has come up before [but I'll let you experiment with what terms to Search for].

[Anonymous]

Thank you for response Kent1Cooper.
I went through all the posts and I could find a routine that would give a list of all angles, but not one that would label them in the model space. If I missed it, my apologies but I did didn't see one specific to labeling each one.

[doaiena]

(strcat "GOOGLE " "DIM" "POLY" "ANGLES") 

[hak_vz · Accepted solution]

Here is @marko_ribar  solution at augi forum.

https://forums.augi.com/showthread.php?168619-Automatically-dimension-all-sides-and-angles-of-select... 

It works on closed polylines and creates automatic dimensions .

If you need it to work on open polylines then in code  make change in

  (setq sel (ssget (list '(0 . "LWPOLYLINE") '(-4 . "&=") '(70 . 1) '(-4 . "<not") '(-4 . "<>") '(42 . 0.0) '(-4 . "not>"))))

[Anonymous]

Thank you all for the feedback. Worked perfectly @marko_ribar.