Topic: Mtext Coding

[AWW]

What I have: User specified points

(setq p4  (getpoint "\nSelect top left corner: ")
(setq p5  (getcorner p1 "\nSelect bottom rigth corner: ")

What I'm shooting for: Points specified by mathematical equation.

(setq  p4 (polar (+ p3 4)
         p5 (polar (+ p4 20))))

I thought polar would do the trick. I must be missing something. Could it be the structure that I wrote it? Or a different function?
I have attached the full lisp. Note: I got some of this coding from the forums. Credit goes to those that posted it.

[CAB]

Polar need three arguments

Code: [Select]

(startPoint Angle Distance)

[AWW]

Thanks for the heads up on the polar.  Even after correcting that, I get this:

Select third point: ; error: bad function: (2019.86 2106.43 0.0)

From this, I know that the first part (leader) of my code is good. The second
part (mtext) seems to be the problem. So that narrowsit down to possibly
these two lines i believe:

(setq pt4  (polar ( pt3 0 4)
(setq pt5 (polar ( pt4 0 20))))

[T.Willey]

(setq pt4 (polar pt3 0. 4.))

[AWW]

(setq pt4 (polar pt3 0. 4.))
(setq pt5 (polar pt4 0. 20))

I get:
LISP command is not available.

For some reason, it doesn't seem to be recognizing the
commands I wrote.

[T.Willey]

You have an extra right parenthesis after the ' setq pt5 '.  Take that out, and the code runs.  Next you should think about localizing your variables.

[Lee Mac]

AWW,

If you aren't already, use a code editor program, like the Visual LISP Editor in ACAD, or maybe Notepad++, or Vim.

With the Visual LISP Editor (VLIDE), you can look up functions in the help and see how to use them.

Lee

[AWW]

Thanks for the tip. I shall check out vlide!  :kewl:

[DEVITG]

My first ABC LISP

      http://ronleigh.info/autolisp/index.htm




 

[Lee Mac]

Thanks for the tip. I shall check out vlide!  :kewl:

A few bits to get you going:

Visual LISP Editor:


http://www.afralisp.net/vl/vlisp.htm


http://www.afralisp.net/vl/vl-edit.htm


http://midpointcad.com/au/docs/lakose_The_Visual_LISP_Developers_Bible.pdf