Jump to content

About This File

Σε κλειστή polyline AutoCAD εκτελεί αυτόματη αύξουσα ονομασία κορυφών (Ελληνικό αλφάβητο), συντάσσει Πίνακα Συντεταγμένων και Αποστάσεων μεταξύ και αναγράφει τις αποστάσεις μεταξύ κορυφών πάνω στις πλευρές. Η ονοματοδοσία μπορεί να είναι του τύπου Α,Β,Γ,Δ,... ή τύπου κΑ,κΒ,κΓ,... ή τύπου Ακκκ,... όπου κ οποιοσδήποτε ASCII χαρακτήρας ή ακολουθία χαρακτήρων.

 

Το σώζετε στον \Program Files\AutoCAD\Support

 

Φορτώνεται με (load"korkth")

 

Τρέχει σαν εντολή korkth απ τη γραμμή εντολών. Αν θέλετε να το φορτώνει αυτόματα σε κάθε νέο σχέδιο τότε μέσω της appload προσθέτετε το αρχείο korkth.lsp στο startup suit.

 

Γλιτώνετε μπόλικη δουλειά...

  • Like 1



User Feedback

Recommended Comments

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

 

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

Share this comment


Link to comment
Share on other sites

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

Share this comment


Link to comment
Share on other sites

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

Share this comment


Link to comment
Share on other sites

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

Share this comment


Link to comment
Share on other sites

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

Share this comment


Link to comment
Share on other sites

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

Share this comment


Link to comment
Share on other sites

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

Share this comment


Link to comment
Share on other sites

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

Share this comment


Link to comment
Share on other sites

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

Share this comment


Link to comment
Share on other sites

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

;;*********

Share this comment


Link to comment
Share on other sites

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

Share this comment


Link to comment
Share on other sites

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

Share this comment


Link to comment
Share on other sites

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

Ευχαριστώ.

Share this comment


Link to comment
Share on other sites

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

Share this comment


Link to comment
Share on other sites

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

Share this comment


Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.