KorKTH.lsp 2.1

Κατά αρχήν σε ευχαριστώ πολύ! Πολύ χρήσιμο

Έχω όμως πρόβλημα με την γραμματοσειρά. Μήπως έχεις να προτείνεις κάποια λύση?

και εδώ πρόβλημα με την γραμματοσειρά... Τι να κάνω;;;

βρήκα λύση στο πρόβλημα με την γραμματοσειρά... αρκεί να κατεβάσετε απο την ενόττητα αρχιτεκτονικά - σχεδιαστικά το αρχείο που λέει διάφορες γραμματοσειρές για Autocad... του gvarth

douleuei se Autocad 2011 64bit? to exei dokimasei kaneis? prospathw alla tpt

Πηγαινω menu - tools - autolisp - loadapplication κανω load μου γραφει στην μπαρα οτι ''Command: _appload KORKTH.LSP successfully loaded.'' αλλα δεν φαινονται οι εντολες.... γνωριζει κανεις κατι? ευχαριστω

ευχαριστώ!!!

kalimera katevase kai tis grammatoseires alla pali den ginete tipota..oi korifes vgenoun oti na nai..

katevasa

EYXARISTW PARA POLY! ALLA EXW PROBLHMA MOY BGAZEI SE OLOYS TOYS YPOLGISMOYS TO NOYMERO 10!

βρηκα τη λύση για το πρόβλημα με τη γραμματοσειρά.. επιλέγουμε format, text styles , και η σωστή γραμματοσειρά είναι η ngreekn.shx.. επιλέγουμε αυτη τη γραμματοσειρά και εμφανίζονται οι ελληνικοί χαρακτήρες!

Ενδιαφέρον ακούγεται..αλλά πως το φορτώνουμε στο autocad???ευχαριστώ

Ευχαριστώ πολυ καλό. Υπάρχει δυνατότητα για αλλάγη στο προγραμμα ώστε στις συντεταγμένες να τυπωνει 3 δεκαδικα;

για να αλλάξεις σε 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

;;*********

συνάδελφε πως μπορούμε να αλλάξουμε τα γράμματα στις κορυφές με αριθμούς (και να εμφανίζονται έτσι στον πίνακα εμβαδομέτρησης); επίσης το εμβαδό μπορεί να εμφανίζεται στον πίνακα με 2 δεκαδικά; ευχαριστώ

μήπως γίνεται να αλλάξουμε το text style σε arial γιατί μου βγάζει κινέζικα;

Θα ήθελα να ρωτήσω αν γνωρίζεται παρόμοια εντολή που να λειτουργεί στο Autocad.2011 γιατί η Korkth δεν δουλεύει.

Ευχαριστώ.

Πολύ χρηστικό. Γίνεται στην ονοματοδωσια των κορυφών αντί να βάζει μόνο αυτόματα να του ορίζουμε το όνομα ή να το δείχνουμε με το ποντίκι αν έχουν ήδη τις κορυφές ονομάσει; Αυτό βολεύει στα τοπογραφικά για κτηματολόγιο στις γεωμετρικές μεταβολές

ΕΥΧΑΡΙΣΤΩ

Για Autocad 2017 γιατί δεν τρέχει?  Για μια παλαιότερη εκδοσή Autocad που είχα δούλευε κανονικά.