Μετάβαση στο περιεχόμενο
Ακολουθήστε τη νέα μας σελίδα στο Facebook! ×

Σχετικά με αυτό το αρχείο

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

 

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

 

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

 

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

 

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

  • Like 2

Σχόλια Μελών

Recommended Comments

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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

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

;;*********

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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

Link to comment
Share on other sites

Δημιουργήστε ένα λογαριασμό ή συνδεθείτε προκειμένου να αφήσετε κάποιο σχόλιο

Πρέπει να είστε μέλος για να μπορέσετε να αφήσετε κάποιο σχόλιο

Δημιουργία λογαριασμού

Κάντε μια δωρεάν εγγραφή στην κοινότητά μας. Είναι εύκολο!

Εγγραφή νέου λογαριασμού

Σύνδεση

Εάν έχετε ήδη λογαριασμό; Συνδεθείτε εδώ.

Συνδεθείτε τώρα
×
×
  • Create New...

Σημαντικό

Χρησιμοποιούμε cookies για να βελτιώνουμε το περιεχόμενο του website μας. Μπορείτε να τροποποιήσετε τις ρυθμίσεις των cookie, ή να δώσετε τη συγκατάθεσή σας για την χρήση τους.