I need help with writing a simple lisp function : can you help?

Joe Kleinschmidt

unread,

May 18, 1998, 3:00:00 AM5/18/98

to

I'm trying to come up with a function which will tell me the angle at one
point in a multi-segmented Pline (including arcs)

Can you think of a way to do this using Lisp?

please message me : )
jo...@acudatasystems.com

Vladimir Nesterovsky

unread,

May 19, 1998, 3:00:00 AM5/19/98

to Joe Kleinschmidt

I think it's all but simple.
I have the needed functions inside my
commercial application, so I can build a custom
utility for you (although it won't be free). :(

Inquire further via e-mail if you're interested.

--
Live long and prosper :)
Vlad
http://www.netvision.net.il/php/vnestr/

Tony Tanzillo

unread,

May 19, 1998, 3:00:00 AM5/19/98

to

You don't have to pay anyone to find out how to do
this in LISP. Just give me a better description of
what you mean by 'the angle at one point', and I'll
be happy to show you how to do it - for free.

Joe Kleinschmidt wrote:
>
> I'm trying to come up with a function which will tell me the angle at one
> point in a multi-segmented Pline (including arcs)
>
> Can you think of a way to do this using Lisp?
>
> please message me : )
> jo...@acudatasystems.com

--
/*********************************************************/
/* Tony Tanzillo Design Automation Consulting */
/* Programming & Customization for AutoCAD & Compatibles */
/* ----------------------------------------------------- */
/* Member of the OpenDWG Alliance */
/* Co-Author of Maximizing AutoCAD R13 and */
/* Maximizing AutoLISP for AutoCAD R13/R14 */
/* ----------------------------------------------------- */
/* tony.t...@worldnet.att.net */
/* http://ourworld.compuserve.com/homepages/tonyt */
/*********************************************************/

Terry Hickman

unread,

May 20, 1998, 3:00:00 AM5/20/98

to

Good going Tony!!!

Terry Hickman
Star Building Systems

Reini Urban

unread,

Jun 2, 1998, 3:00:00 AM6/2/98

to

have a look in my faq.
the angle of the n-th segment is calculated this way:

(setq segs (pline-segs polyline-entity)); => list of (bulge p1 p2)
(angle (nth n segs) (nth (1+ n) segs)) ; invalid for the last segment

if you have just a point and no segment get the index of the starting
vertex with a helper function from Owen Wengerd: findvrtx.arx
somewhere at http://www.manusoft.com or another copy at
http://xarch.tu-graz.ac.at/autocad/lsp_tools/findvrtx.zip
or solve it by yourself in lisp. quite easy once you've got the
segments.

Joe Kleinschmidt wrote:
>
> I'm trying to come up with a function which will tell me the angle at one
> point in a multi-segmented Pline (including arcs)
>
> Can you think of a way to do this using Lisp?
>
> please message me : )

--
Reini Urban http://xarch.tu-graz.ac.at/~rurban/
AutoLISP FAQ http://xarch.tu-graz.ac.at/autocad/
Please don't send technical questions directly to me, post them to
newsgroups.