Need help making a triangle lisp and have no idea.

[lukasz.sosnowski391019]

I need to write an AutoLISP program which asks user to select a point and then draws an equilateral
triangle by the length 3 from that point. Any ideas?

[Richard McDonald]

I am probably missing something but you could use the poly command and set the number of sides to 3.

Probably worth asking a mod to move this to the lisp area for better answers.

Regards

[Wanderer]

I've moved this post to the lisp forum, thanks.

I'd also suggest checking out some of the available LISP tutorials in the Autodesk University Course archives... http://forums.augi.com/forumdisplay....nd-Programming

[Tharwat]

Simple code ..

(defun c:Test (/ p1 p2 p3)
  (if (setq p1 (getpoint "\n Specify the base point :"))
    (progn
      (setq p2 (polar p1 0. 3.)
            p3 (polar p2 (* (/ pi 3.) 2.) 3.)
      )
      (command "_.pline" "_non" p1 "_non" p2 "_non" p3 "c")
    )
  )
  (princ)
)

[alanjt]

Is the POLYGON command not good enough?

[Ed Jobe]

In addition to the comments from others, I had this old lisp laying around. It does a little more than what you're asking.

[BlackBox]

I am probably missing something but you could use the [polygon] command and set the number of sides to 3.

Is the POLYGON command not good enough?

This.

Simple code ..

(defun c:Test (/ p1 p2 p3)
  (if (setq p1 (getpoint "\n Specify the base point :"))
    (progn
      (setq p2 (polar p1 0. 3.)
            p3 (polar p2 (* (/ pi 3.) 2.) 3.)
      )
      (command "_.pline" "_non" p1 "_non" p2 "_non" p3 "c")
    )
  )
  (princ)
)

... Simpler code :

(defun c:FOO ()
  (command "._polygon" "3" "edge" pause pause)
  (princ)
)