Your code, as you may already know, will not complete nor even load.
First, the function
setq needs to be completed before you move into using the
command function.
Code:
(setq Pt1 (getpoint "\n enter the first point")
A (getangle "\n enter the angle")
S (getdist "\n enter the distant between line")
N (getint "\n enter the number of line")
L (getdist "\n enter the length of each line")
pt2 (polar pt1 A L)
)
Now that the initial variables are assigned, you can move into creating your first line.
Code:
(command "line" Pt1 pt2 "")
In your next variable, the syntax of the
setq function is incorrect. You will need to start your function with an opening parenthesis "(".
You then start your
while function. The test for this function needs an additional space between the test symbol and the variables for the test.
You will also need to determine the side of the line to make the parallel lines. For this angle, it will need to be 90 degrees from the first angle "A", however, this angle will need to be converted from degrees to radians for later use.
Search these forums and work on your code. When you get stuck, let us know. We'll see what we can do to move you along.