agior

για να αλλάξεις σε 3 τα δεκαδικά που θα γράφονται οι συντεταγμένες,

ανοίγεις το Korkth.lsp με το Notepad και εντοπίζεις το τμήμα *FILL-UP COORDS TAG* και το αντικαθιστάς (ως και τη γραμμή με τους αστερίσκους ******** ) με το ακόλουθο κείμενο

;;***********FILL-UP COORDS TAG******************

(setq i 0)

(setq xreg 0

yreg 0

)

(setq alfa 193)

(while (car(nth i pllst))

(if (= i 17)

(setq alfa 194)

)

(command "text" "j" "c"

(list

(+ (car pt) (* 0.725 scl))

(- (+ (cadr pt) (* (+ n 1) (* 0.45 scl))) (+ (* 0.35 scl) (* i (* 0.45 scl))))

)

ht 100 (if (< i 24)

(strcat prfx "%%" (itoa (+ i alfa)) sufx)

(strcat prfx "%%217" (itoa (- i 23)) sufx)

)

);endtext

(command "text" "j" "r"

(list

(+ (car pt) (- (* xlin scl) (* 0.1 scl)))

(- (+ (cadr pt) (* (+ n 1) (* 0.45 scl))) (+ (* 0.35 scl) (* i (* 0.45 scl))))

)

ht 100 (rtos (car(nth i pllst)) 2 3)

);endtext

(command "text" "j" "r"

(list

(+ (car pt) (- (* ylin scl) (* 0.1 scl)))

(- (+ (cadr pt) (* (+ n 1) (* 0.45 scl))) (+ (* 0.35 scl) (* i (* 0.45 scl))))

)

ht 100 (rtos (cadr(nth i pllst)) 2 3)

);endtext

(command "text" "j" "r"

(list

(+ (car pt) (- (* dlin scl) (* 0.1 scl)))

(- (+ (cadr pt) (* (+ n 1) (* 0.45 scl))) (+ (* 0.35 scl) (* i (* 0.45 scl))))

)

ht 100 (if (= i 0)

(progn

(setq na (strcat prfx "%%" (itoa (+ i alfa)) sufx)

xa (car(nth i pllst))

ya (cadr(nth i pllst))

)

(strcat "-" "-")

);endprogn

(rtos

(expt (+ (expt (- (car(nth i pllst)) xreg) 2)

(expt (- (cadr(nth i pllst)) yreg) 2)

)

0.5)

2 2)

);endif

);endtext

(setq xreg(car(nth i pllst))

yreg(cadr(nth i pllst))

)

(setq i (+ i 1))

);endwhile

;;*********