Good day all.
I have only started with LISP programming 2 days ago, so I am very new to this.
I have the following situation:
I need the LISP to create a circle and extrude it to the users inputs, then create a helix around the same cylinder, then sweep a user defined shape(profile) along the helix.
once that is done, the helix needs to be subtracted from the cylinder.
I have the following code:
Code:
(defun c:circ ( / bp rad height height1 turns)
(setq bp (getpoint "pick basepoint:"))
(setq rad (getdist "\nenter radius:"))
(setq height (getdist "specify height:"))
(setq height1 (getdist "specify height:"))
(setq turns (getint "specify number of turns:"))
(command "_cylinder" bp rad height)
(setq cyl (entlast))
(command "_helix" bp rad rad height1 turns)
(setq hel (entlast))
)
The user must also be able to input the amount of turns on the helix.
Would appreciate all the help I can get.
Regads
Paul