Dlanor I need your little more help! Its simple actually. I have edited the last code according to my needs but I dont know how to put If condition. I'm new to this programming
(defun c:rollp (/ fp p)
(setq fp (open (strcat (getvar "dwgprefix")(vl-filename-base (getvar "dwgname")) ".roll") "w"))
(setq nbs 0)
(setq gbs 6)
(while (setq p (getpoint(strcat "\nPick Roller S" (itoa (setq nbs (+ 1 nbs))) " position: ")))
(write-line (strcat "Roller S" (itoa (setq nbs (+ 0 nbs))) " X "(rtos (car p) 2) "\t" "Y "(rtos (cadr p) 2) "\t") fp)
)
(close fp)
(princ)
)
I want to pick exactly 12 points. So when my variable nbs == 12 I want the Pick points to stop.
One more thing I wanted to add,
if(nbs<6)
(write-line (strcat "Roller S" (itoa (setq nbs (+ 0 nbs))) " X "(rtos (car p) 2) "\t" "Y "(rtos (cadr p) 2) "\t") fp)
else
(write-line (strcat "Roller Tangents " (itoa (setq gbs (+ 0 gbs))) " X "(rtos (car p) 2) "\t" "Y "(rtos (cadr p) 2) "\t") fp)
(+ 0 nbs)
---------------------------------------------------------
What Exactly I want is
while(nbs>12)
{
int cnt=6;
if(nbs<6)
"Pick Roller S (nbs)";
writeline();
else
{" Pick Roller Tangent (cnt)";
writeline();
cnt++;
}
nbs++;
}
How to do this is Autolisp?