(defun c:test (/ p x y)
(while
(setq p (getpoint "\nPick Point: "))
(setq fileName "C:\\Users\\Developer\\Desktop\\cir.txt")
(progn (setq filename (open filename "w"))
(write-line (strcat (rtos (car p) 2) "\t" (rtos (cadr p) 2) "\t") fileName)
;;;(write-line (strcat (rtos (car pt2) 2) "\t" (rtos (cadr pt2) 2) "\t" (rtos (caddr pt2) 2)) fileName)
(close fileName)
)
(princ)
)
)
(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)
)
(defun c:rollp (/ fp p)
(setq fp (open (strcat (getvar "dwgprefix")(vl-filename-base (getvar "dwgname")) ".rta") "w"))
(setq nbs 0)
(while (< nbs 6)
(setq p (getpoint(strcat "\nPick Roller S" (itoa (setq nbs (+ 1 nbs))) " position: ")))
(write-line (strcat "Roller Position S" (itoa (setq nbs (+ 0 nbs))) " X "(rtos (car p) 2) "\t" "Y "(rtos (cadr p) 2) "\t") fp)
)
(write-line (strcat "\n") fp)
(setq nbs 0)
(while (< nbs 6)
(setq p (getpoint(strcat "\nPick Roller S" (itoa (setq nbs (+ 1 nbs))) " tangent position: ")))
(write-line (strcat "Roller Tangent S" (itoa (setq nbs (+ 0 nbs))) " X "(rtos (car p) 2) "\t" "Y "(rtos (cadr p) 2) "\t") fp)
)
(close fp)
(princ)
)