Visual LISP, AutoLISP and General Customization
cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 

Lisp to create a Polyline with arcs always with second point

2 REPLIES 2
SOLVED
Reply
Message 1 of 3
gustavobernardi
715 Views, 2 Replies

Lisp to create a Polyline with arcs always with second point

Hi guys, a want to create a lisp to make electrical circuits using PLINES with arcs and specify the second point of each arc. Sequence: PLINE FIRST POINT (using a PAUSE) ARC (while SECOND POINT click a second point cilck a end point end of while) I tried the following: (defun c:PLARC() (command "._pline" pause "Arc" (while ("S" pause pause))) ) Not works... Thanks.
Tags (1)
2 REPLIES 2
Message 2 of 3

Minimally tested:

 

(defun c:PLARC (/ pt)

  (command "._pline" pause "_arc")

  (while (setq pt (getpoint "\nSecond point [or <exit>]: "))

    (command "_s" pt pause)

  ); while

  (command ""); ends it with Enter/space

  (princ)

); defun

Kent Cooper, AIA
Message 3 of 3

Work. Thanks.

Can't find what you're looking for? Ask the community or share your knowledge.

Post to forums  

Autodesk Design & Make Report

”Boost