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

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

tableCoords v.1 (Φεβρουάριος 2018)

Το tableCoords είναι ένα πρόγραμμα σε lisp για την αυτόματη δημιουργία πίνακα συντεταγμένων και λοιπόν βοηθητικών στοιχείων σε περιβάλλον Autocad.
Αν δεν ξέρετε πως να εκτελέσετε αρχεία lisp διαβάστε τη σχετική ενότητα στο τέλος αυτού του αρχείου.

 

Αρχείο αλλαγών

tableCoords v.1.01 (Ιανουάριος 2022)
Στο πινακάκι με τις συντεταγμένες εμβαδά και αποστάσεις αναγράφονται με τρία δεκαδικά. Αν θέλετε να αλλάξετε τον αριθμό των δεκαδικών μπορείτε να κάνετε edit το αρχείο lisp και στη γραμμή 522 να τροποποιήσετε τη μεταβλητή (setq *decimals* 3).

tableCoords v.1.02 (Ιούλιος 2022)
Επειδή σε κάποιες περιπτώσεις ο έλεγχος για πολύγωνα που τέμνονται με τον εαυτό τους έβγαζε εσφαλμένα μήνυμα λάθους, υπάρχει πλέον η δυνατότητα να απενεργοποιηθεί τελείως. Αρκεί να κάνετε edit το αρχείο lisp και στη γραμμή 523 να τροποποιήσετε τη μεταβλητή (setq *selfintersect* 1). Όταν η τιμή είναι 1 γίνεται έλεγχος για self overlap ενώ όταν είναι 0 ο έλεγχος παρακάμπτεται.
Στην τελευταία περίπτωση να σημειωθεί πως αν υπάρχει όντως πολύγωνο που τέμνεται με τον εαυτό του, το πρόγραμμα θα διακοπεί (δεν μπορεί να γίνει offset η polyline για την τοποθέτηση των ονομάτων στις κορυφές). Μπορείτε πάντοτε να βγάλετε πινακάκι με την εντολή ptc, η οποία όμως δεν τοποθετεί αυτόματα ονόματα στις κορυφές και δεν κάνει διαστασιολόγηση.

 

>>> Δημιουργία πίνακα (tc)

Για εκτέλεση πληκτρολογείτε tc και πατάτε space ή enter.

Το πρόγραμμα θα σας ζητήσει να επιλέξετε μία ή περισσότερες κλειστές polylines. Δεν είναι απαραίτητο οι γραμμές να έχουν την ιδιότητα closed, αρκεί να αρχίζουν και να τελειώνουν στο ίδιο σημείο.

Στη συνέχεια θα σας ζητηθεί να δώσετε την κλίμακα του σχεδίου σας (κρατάει μόνο το ακέραιο τμήμα).
Η κλίμακα καθορίζει αφενός το μέγεθος των γραμμάτων του πίνακα, αφετέρου τα μεγέθη των βοηθητικών στοιχείων (ονόματα κορυφών, διαστασιολόγηση).

Η επόμενη ερώτηση σας ζητάει αν θέλετε να δώσετε κάποιο πρόθεμα για την αυτόματη ονομασία των κορυφών. Αν π.χ. πατήστε το γράμμα Τ, οι κορυφές του πολυγώνου θα ονομαστούν Τ1, Τ2, Τ3 κ.λπ. Αν δεν θέλετε κάποιο πρόθεμα πατήστε απλώς enter.

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

Το tableCoords θα δημιουργήσει ένα καινούριο layer (Pinakakia). Θα φτιαχτεί πίνακας ο οποίος περιλαμβάνει όνομα κορυφής, συντεταγμένες Χ και Υ, αποστάσεις μεταξύ κορυφών, συνολικό εμβαδόν πολυγώνο και συνολική περίμετρο. Ο πίνακας είναι ένα ενιαίο αντικείμενο, που στη λογική του θυμίζει πίνακα excel. Μπορείτε να κάνετε εύκολα edit κάποιο στοιχείο, να αλλάξετε τις ιδιότητες γραμμών και στηλών, να του δώσετε κάποιο συγκεκριμένο στυλ μορφοποίησης κ.λπ. Αν θέλετε να τον μετακινήσετε αρκεί να τον επιλέξετε και να διαλέξετε το πάνω αριστερά τετραγωνάκι.

Εκτός από τον πίνακα θα μπούνε αυτόματα ονόματα στις κορυφές του πολυγώνου και θα γίνει διαστασιολόγηση στις πλευρές του. Οι διαστάσεις έχουν φτιαχτεί με το στυλ tcDimStyle. Αν θέλετε να αλλάξετε εύκολα την εμφάνισή τους, πατήστε dimstyle και από το παράθυρο που ανοίγει τροποποιήστε το παραπάνω στυλ.

>>> Εντολή διαγραφής (deltc)

Με την εντολή αυτή θα σβήσετε όλα όσα έχουν φτιαχτεί (πίνακας, ονόματα κορυφών, διαστασιολογήσεις, layers, styles). Η deltc φροντίζει να σβήσει οριστικά (purge) τυχόν υπολείμματα των παραπάνω στοιχείων.

>>> Εισαγωγή πίνακα από σημεία (ptc)

Ένας εναλλακτικός τρόπος για να δουλέψετε είναι αντί να κάνετε επιλογή polyline(s) να περιγράψετε το πολύγωνο που σας ενδιαφέρει με τις κορυφές του. Για τον σκοπό αυτό πατάτε ptc και δίνετε διαδοχικά τις κορυφές του πολυγώνου. Η υπόλοιπη διαδικασία είναι παραπλήσια με όσα ειπώθηκαν παραπάνω, με μόνη διαφορά ότι δεν δημιουργείται αυτόματη διαστασιολόγηση και δεν μπαίνουνε ονόματα στις κορυφές.

>>> Έλεγχος για self overlap

Να σημειωθεί πως το πρόγραμμα είτε όταν επιλέγετε polylines είτε όταν επιλέγετε σημεία ελέγχει την τοπολογική ορθότητα των πολυγώνων, ότι δεν τέμνονται δηλαδή με τον εαυτό τους. Αν εντοπιστεί κάποιο σφάλμα η διαδικασία διακόπτεται και βγαίνει αντίστοιχο προειδοποιητικό μήνυμα.

>>> Τέλος, πατώντας helptc βγαίνει ένα μήνυμα συνοπτικής παρουσίασης.

Η πρώτη έκδοση του tableCoords δημιουργήθηκε τον Φεβρουάριο του 2018.

Ευχαριστώ πολύ για τη βοήθεια στον έλεγχο και την αποσφαλμάτωση τον Σπύρο Σταμπολίδη και τον Αλέξη Ντούλα.

Για αποστολή σχολίων και παρατηρήσεων μπορείτε να επικοινωνήσετε μαζί μου στο [email protected]

============================================

Για να φορτώσετε ένα πρόγραμμα lisp πληκτρολογείτε "ap" και πατάτε enter.
Βρείτε το αρχείο .lsp που θέλετε να εκτελέσετε, επιλέξτε το και κάντε load.
Αναλόγως της έκδοσης του Autocad που δουλεύετε μπορεί να σας ζητήσει επιβεβαίωση για το αν εμπιστεύεστε το αρχείο.

Αν θέλετε το αρχείο μπορεί να φορτώνει αυτόματα κάθε φορά που ανοίγετε το πρόγραμμα.
Πατάτε πάλι "ap" και πατάτε το κουμπί "contents" (startup suite) κάτω δεξιά.
Από εκεί μπορείτε να κάνετε add και remove αρχεία lisp.
Στο επόμενο σχέδιο που θα ανοίξετε θα φορτωθεί ότι έχετε τοποθετήσει στο startup.

Για να μην βγαίνει συνεχώς ερώτηση ασφαλείας, μπορείτε από τις επιλογές του προγράμματος να δηλώσετε ένα trusted folder μέσα στο οποίο θα έχετε βάλει όλα τα lisp αρχεία που δουλεύετε.

Για περισσότερες πληροφορίες σχετικά με το πως μπορείτε να εκτελέστε lisp, καθώς επίσης και για να κατεβάσετε πολλά χρήσιμα προγράμματα, επισκεφτείτε τον σύνδεσμο http://www.lee-mac.com/runlisp.html

Edited by eg0n


Τι νέο υπάρχει στην έκδοση 1.0.2   See changelog

Κυκλοφόρησε

Επειδή σε κάποιες περιπτώσεις ο έλεγχος για πολύγωνα που τέμνονται με τον εαυτό τους έβγαζε εσφαλμένα μήνυμα λάθους, υπάρχει πλέον η δυνατότητα να απενεργοποιηθεί τελείως. Αρκεί να κάνετε edit το αρχείο lisp και στη γραμμή 523 να τροποποιήσετε τη μεταβλητή (setq *selfintersect* 1). Όταν η τιμή είναι 1 γίνεται έλεγχος για self overlap ενώ όταν είναι 0 ο έλεγχος παρακάμπτεται.

Στην τελευταία περίπτωση να σημειωθεί πως αν υπάρχει όντως πολύγωνο που τέμνεται με τον εαυτό του, το πρόγραμμα θα διακοπεί (δεν μπορεί να γίνει offset η polyline για την τοποθέτηση των ονομάτων στις κορυφές). Μπορείτε πάντοτε να βγάλετε πινακάκι με την εντολή ptc, η οποία όμως δεν τοποθετεί αυτόματα ονόματα στις κορυφές και δεν κάνει διαστασιολόγηση.

  • Like 5
  • Thanks 5
  • Upvote 4

Σχόλια Μελών

Recommended Comments



Φιλε μου καλησπέρα και συγχαρητήρια για το λισπακι. Εχω όμως ένα προβλημα. Σε acad 13 φορτώνει κανονικα αλλα μου πετάει μηνυμα οτι η polyline δεν είναι closed , ενώ είναι. και δεν δημιουργεί τον πίνακα. Κάποια ιδέα? Ευχαριστώ προκαταβολικά!!

 

Link to comment
Share on other sites

20 λεπτά πριν, tpapage said:

Φιλε μου καλησπέρα και συγχαρητήρια για το λισπακι. Εχω όμως ένα προβλημα. Σε acad 13 φορτώνει κανονικα αλλα μου πετάει μηνυμα οτι η polyline δεν είναι closed , ενώ είναι. και δεν δημιουργεί τον πίνακα. Κάποια ιδέα? Ευχαριστώ προκαταβολικά!!

 

Αν μπορείς στείλε μου ένα αρχείο στο μέιλ μου για να το κοιτάξω

Link to comment
Share on other sites

 Σε  autocad 2018  είτε κλειστή είναι η polyline είτε ανοιχτή βγαίνει μήνυμα ότι η επιλεγμένη polyline δεν είναι κλειστή και το πρόγραμμα τερματίζει.

Edited by GEORGE_SIOUTIS
Link to comment
Share on other sites

Καλημέρα, διορθώθηκε ένα πρόβλημα με polylines που το τελευταίο σημείο ήταν διαφορετικό από το πρώτο, αλλά κλείνανε με close. Ευχαριστώ πολύ τους συναδέλφους που το εντόπισαν.

  • Upvote 1
Link to comment
Share on other sites

On 25/11/2019 at 2:14 ΠΜ, [email protected] said:

Eξαιρετικο!

Μπραβο Γιαννη!!

Ευχαριστώ πολύ!

Αν μπορέσω να βρω λίγο χρόνο, θα προσπαθήσω να κάνω κάποιες βελτιώσεις.

Αλλά για την ώρα τη σκέψη μου απασχολεί κάτι αντίστοιχο με αυτό που κρατάς στη φωτό του προφίλ σου :)

Link to comment
Share on other sites

17 ώρες πριν, diankostas said:

Εμένα μου βγάζει "error: no function definition: VLAX-ENAME->VLA-OBJECT"

 

το "ptc" δουλεύει κανονικά

Ξέρει κάποιος τι φταίει;

Καλημέρα, αν θέλεις στείλε μου στο μέιλ μου το αρχείο που δουλεύεις (σβήσε το περιεχόμενο και κράτα μόνο ένα πολύγωνο).

Link to comment
Share on other sites

On 24/5/2020 at 2:23 ΜΜ, eg0n said:

Καλημέρα, αν θέλεις στείλε μου στο μέιλ μου το αρχείο που δουλεύεις (σβήσε το περιεχόμενο και κράτα μόνο ένα πολύγωνο).

Σε όποιο αρχείο και να το χρησιμοποιήσω, το ίδιο μήνυμα μου βγάζει. Έκανα και ένα τυχαίο περίγραμμα σε νέο Drawing. Άλλα Lisp αρχεία που έχω κάνει load, λειτουργούν κανονικά, όπως και το "PTC" άλλωστε, όπως προανέφερα.

Link to comment
Share on other sites

Σε κάποιες περιπτώσεις, ο έλεγχος για self overlap των πολυγώνων εμφανίζει πρόβλημα ενώ είναι σίγουρο ότι η γραμμή έχει φτιαχτεί σωστά. Ανεβάζω συνημμένα λοιπόν μια παραλλαγή που δεν κάνει καθόλου έλεγχο για self overlap, αν σας παρουσιαστεί πρόβλημα.

tc_noself.LSP

Link to comment
Share on other sites

On 11/1/2022 at 7:41 ΜΜ, Thermosiphonas Boiler said:

Καταπληκτικό lisp, μου έχει λύσει τα χέρια!

Υπάρχει τρόπος να εμφανίζονται οι συντεταγμένες των κορυφών με 3 δεκαδικά;

Ευχαριστώ Θερμοσίφωνα για τα ζεστά σου λόγια. Έχω μια εκδοχή με τρία δεκαδικά, θα τη βρω και θα την ανεβάσω.

Link to comment
Share on other sites

Ανέβηκε μια νέα έκδοση (1.0.1) που έχει default τα τρία δεκαδικά.

Παράλληλα, απλοποιήθηκε η διαδικασία της στρογγυλοποίησης ώστε αν κάποιος επιθυμεί να αλλάξει τον αριθμό των δεκαδικών αρκεί να κάνει edit το αρχείο lisp και στην γραμμή 522 να τροποποιήσει τη μεταβλητή (setq *decimals* 3).

Link to comment
Share on other sites

On 22/3/2022 at 10:42 ΠΜ, indos said:

πως μπορώ να διαλέξω το πρώτο σημείο της αρίθμησης ;

Αν επιλέξεις polyline, η αρίθμηση μπαίνει με τη σειρά που μπήκαν τα σημεία της polyline. Αν θέλεις διαφορετική σειρά αρίθμησης εκτέλεσε το ptc που σου ζητάει να δηλώσεις ένα ένα τα σημεία.

  • Like 1
Link to comment
Share on other sites

Πραγματικά ευχαριστούμε πολύ. Είναι εκπληκτική δουλεία και εκπληκτικό ότι το μοιράζεσαι μαζί μας. 

Link to comment
Share on other sites


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

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

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

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

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

Σύνδεση

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

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

Σημαντικό

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