Lisp to conver Mleader arrow angle to zero

[atawk]

Do you have a lisp that convert the Mleader arrow's "angle" to 180 degree?

[komondormrex]

check update in message #14

[s05103_jr]

Sir, your function is great.

Unluckily, most of my drawings require to work in custom UCS.

I try to get it works with trans function.

(trans pt from to [disp])

However, I always get an error message.

error: bad argument type: 2D/3D point: (172.197 -33.8445 0.0 163.987 -13.5696 0.0)

Can you help?

[Sea-Haven]

Thats 2 points, (172.197 -33.8445 0.0) (163.987 -13.5696 0.0) did you use VL-get-coordinates ? If so need to make back into a single XYZ point, car cadr caddr.

[s05103_jr]

No, I don't think I have.

[Sea-Haven]

You should post code that is definitely 2 points. 

[komondormrex]

that is the list of coordinates of two points. if you want to apply trans  to  first point you need to extract that point coordinates from the list like

(trans (list (car '(172.197 -33.8445 0.0 163.987 -13.5696 0.0)) (cadr '(172.197 -33.8445 0.0 163.987 -13.5696 0.0))) ...)