0 Members and 1 Guest are viewing this topic.
(defun c:bear2txt (/ p1 p11 p2 p21 p3 p31 d1 fname) (setq p1 (getpoint "\nPick Base Referene point: ")) (setq p11 (getstring "\nEnter Label Base Referene point: ")) (setq p2 (getpoint p1 "\nPick Second point: ")) (setq p21 (getstring "\nEnter Label of Second point: ")) (setq fname (getfiled "Save Text File As:" (getvar 'dwgprefix) "TXT" 1) ) (setq fil (open fname "w")) (If (< (car p1) (car p2)) (progn (setq tmp p1) (setq p1 p2) (setq p2 tmp)) ) (setq cnt 1) (setq pn p1) (while (not (equal pn nil)) (if (setq pn (getpoint (strcat "\nPick point " (itoa cnt) " : "))) (progn (setq pnl (getstring (strcat "\nEnter Label of point " (itoa cnt) " : ") ) ) (setq ang (/ (* (- (angle p1 p2) (angle p1 pn)) 200) pi)) (write-line (strcat (itoa cnt) "," pnl "," (rtos ang 2 2) "," (rtos (distance p1 pn) 2 2) ) fil ) (setq cnt (1+ cnt)) ) ) ) (alert (strcat (itoa (- cnt 1)) " points written in file " fname) ) (close fil) (princ))
(defun c:bear2txt (/ p1 p11 p2 p21 p3 p31 d1 fname) (setq p1 (getpoint "\nPick Base Referene point: ")) (setq p11 (getstring "\nEnter Label Base Referene point: ")) (setq p2 (getpoint p1 "\nPick Second point: ")) (setq p21 (getstring "\nEnter Label of Second point: ")) (setq fname (getfiled "Save Text File As:" (getvar 'dwgprefix) "TXT" 1) ) (setq fil (open fname "w")) (If (< (car p1) (car p2)) (progn (setq tmp p1) (setq p1 p2) (setq p2 tmp)) ) (setq cnt 1) (setq pn p1) (while (not (equal pn nil)) (if (setq pn (getpoint (strcat "\nPick point " (itoa cnt) " : "))) (progn (setq pnl (getstring (strcat "\nEnter Label of point " (itoa cnt) " : ") ) ) (setq ang (/ (* (- (angle p1 p2) (angle p1 pn)) 200) pi)) (if (< ang 0) (setq ang (+ ang 400)) ) (write-line (strcat (itoa cnt) "," pnl "," (rtos ang 2 2) "g," (rtos (distance p1 pn) 2 2) ) fil ) (setq cnt (1+ cnt)) ) ) ) (alert (strcat (itoa (- cnt 1)) " points written in file " fname) ) (close fil) (princ))
but i have an error with the angle