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

Toposynt.lsp - Πίνακας Συντεταγμένων για Διαγράμματα Δόμησης, Τοπογραφικά, Διανομές, κλπ. 3


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

Πίνακας Συντεταγμένων για Διαγράμματα Δόμησης, Τοπογραφικά, Διανομές, κλπ.

Πρόβλημα με τα Ελληνικά; Κοίταξε το  https://www.michanikos.gr/files/file/644-toposyntlsp-πίνακας-συντεταγμένων-για-διαγράμματα-δόμησης-τοπογραφικά-διανομές-κλπ/?do=findComment&comment=11485&tab=comments

Συνάδελφοι,

Βλέποντας την μεγάλη αποδοχή που έχει αυτό το πραγματικά πολύ χρήσιμο προγραμματάκι (900 εμφανίσεις, 200 downloads και 18 σχόλια σε 3 μέρες), αφιέρωσα ένα Σαββατοκύριακο για να το βελτιώσω όσο μπορούσα, ενσωματώνοντας όσο ήταν δυνατόν και τις επιθυμίες που εκφράσατε στα αρχικά σας σχόλια.

Ένα μεγάλο ευχαριστώ στον χρήστη agior που μοιράστηκε μαζί μας το αρχικό korkth.lsp που είναι και ο πυρήνας αυτού του προγράμματος

Εύχομαι να σας φανεί χρήσιμο και Καλές Δουλειές

Κάλυμνος 3/12/2012

Νικόλας Ρεΐσης

Πολιτικός Μηχανικός

 

 

Σύντομη Περιγραφή

Σε κλειστή polyline AutoCAD :

  • εκτελεί αυτόματη αύξουσα ονομασία κορυφών (κατ'επιλογή είτε με Γράμματα (Ελληνικό αλφάβητο true type) είτε με Αριθμούς - με η χωρίς Πρόθεμα/Επίθεμα).
    Η ονοματοδοσία δηλαδή μπορεί να είναι του τύπου Α,Β,Γ,Δ,... ή του τύπου 1,2,3,4 με επιλογή του πρώτο αριθμού που θα χρησιμοποιηθεί
    Με πρόθεμα η επίθεμα μπορεί να είναι του τύπου κΑ,κΒ,κΓ,... ή κ1,κ2,κ3 η του τύπου Ακκκ,... η 1κ,2κ,3κ όπου κ οποιοσδήποτε χαρακτήρας ή ακολουθία χαρακτήρων
  • αναγράφει την ονομασία στις κορυφές, προσθέτει σημεία (προαιρετικά), υπολογίζει και αναγράφει τις αποστάσεις μεταξύ κορυφών πάνω στις πλευρές
  • συντάσσει Πίνακα Συντεταγμένων των κορυφών και αναγράφει τις Αποστάσεις μεταξύ τους, το εμβαδόν και την περίμετρο της polyline

Πως το ενεργοποιείτε:

  1. Μεταφορτώνετε (Κατεβάζετε, download) το επισυναπτόμενο αρχείο και το σώζετε κατά προτίμηση στο \Program Files\AutoCAD χχχ\Support (η όπου αλλού θέλετε αν ξέρετε τι πρέπει να κάνετε μετά).
  2. Φορτώνετε το πρόγραμμα στο Autocad γράφοντας στην γραμμή εντολών (load "Toposynt ").
    Προσοχή: γράφουμε ακριβώς αυτό που βλέπουμε - δηλαδή μέσα σε παρενθέσεις και εισαγωγικά
  3. Εναλλακτικά το φορτώνουμε με την εντολή APPLOAD
  4. Αφού φορτωθεί το τρέχουμε όπως τρέχουμε οποιαδήποτε εντολή του Autocad γράφοντας στην γραμμή εντολών toposynt και enter η tps και enter

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

Κυκλοφόρησε

  • V3 - Δημιουργία διαφορετικών layer για ευκολότερη διαχείριση
  • - Τοποθετούνται οι οντότητες σε διαφορετικά layer που δημιουργούνται για κάθε τύπο οντότητας:
  • - "Pinakas-Syntetagmenon" για τον πίνακα, "Pinakas-Syntetagmenon-Points" για τα σημεία,"Pinakas-Syntetagmenon-Koryfes" για την ονομασία κορυφών,"Pinakas-Syntetagmenon-Pleyres" για την διαστασιολόγηση των πλευρών
  • Έχουν όλα άσπρο χρώμα το οποίο αλλάζετε εσείς
  • V2
  • Επιλογή ανάμεσα σε Γράμματα η Αριθμούς στην ονοματοδοσία
  • Οποιαδήποτε True Type γραμματοσειρά θέλει ο χρήστης
  • Επιλογή Σχεδίασης η όχι σημείων στις κορυφές
  • Επιλογή αριθμού Δεκαδικών στις συντεταγμένες
  • Επαναφορά περιβάλλοντος στο αρχικό του χρήστη (μονάδες, δεκαδικά, τρέχον layer κλπ)
  • Προσθήκη 3 πρώτων κορυφών στον τίτλο
  • Υπολογισμός και εγγραφή περιμέτρου
  • Προσθήκη κειμένου στην απόσταση τελευταίας και πρώτης κορυφής
  • Like 16
  • Thanks 12
  • Upvote 1

Σχόλια Μελών

Recommended Comments



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

Link to comment
Share on other sites

μήπως μπορείς να μου πεις πως γράφω ακριβώς μόλις τελειώνει ο πίνακας συντεταγμένων (όπως ο τίτλος '' Πίνακας Συντεταγμένων....... '') ξεκινώντας από την αριστερή πλευρά του πίνακα;

Link to comment
Share on other sites

ηλία, αν το κανεις κοπυ πειστ απο εδώ ( το (load "toposynt")) βγάζει στα τελευταία εισαγωγικά κενό. Το σβήνεις και το φορτώνει κανονικά.

Link to comment
Share on other sites

πολυ ωραιο προγραμμα απλα εμενα δεν μου αναγνοριζει τη γραματοσειρα σου και βγαζει ???(ερωτιματικα) αντι για γραμματα.κατα τα αλλα τελειο

Link to comment
Share on other sites

πολυ ωραιο προγραμμα απλα εμενα δεν μου αναγνοριζει τη γραματοσειρα σου και βγαζει ???(ερωτιματικα) αντι για γραμματα.κατα τα αλλα τελειο

ολα οκ διορθωθηκε το προβλημα!sorry

Link to comment
Share on other sites

Συνάδελφε, τα συγχαρητήρια μου. Το πρόγραμμα δουλεύει μια χαρά. Με απάλλαξες από παραπάνω εργασία.

Μπράβο σου , και ένα μεγάλο ΕΥΧΑΡΙΣΤΩ!!!

Link to comment
Share on other sites

συναδελφε ειναι τελεια εφαρμογη! σε αυτους που μπερδευονται αναφορικα με τα τρια δεκαδικα κλπ πρεπει να διαγαψουν απο τον φακελο Suport το παλιο lisp και να βαλουν το καινουριο lisp.

Link to comment
Share on other sites

Πάρα πολύ καλό.

Δεν θέλω να είμαι υπερβολικός, απλά αναφέρω κάποιες βελτιώσεις κατά την προσωπική μου άποψη.

Επαναλαμβάνω ότι η ρουτίνα είναι κορυφαία.

1. Θα μπορούσε να επιλεγεί ποια κορυφή θα είναι η πρώτη?

2. Θα μπορούσε να υπάρχει επιλογή αριστερόστροφης ή δεξιόστροφης σήμανσης?

3. Αν είναι δυνατόν οι χιλιάδες να χωρίζονται με τελεία (.)

4. Θα ήταν όμορφο στον πινακάκι η απόσταση να είναι λίγο πιο κάτω, δηλαδή ανάμεσα στις κορυφές (μιλάω για το y), σαν x καλά είναι. Φυσικά στο τέλος θα έπρεπε να υπάρχει ξανά η πρώτη κορυφή. Δηλαδή σε κλίμακα 1/500 στο πινακάκι κάθε γραμμή έχει απόσταση από την άλλη 2,25. Στο πεδίο των αποστάσεων η πρώτη αναγραφή να ξεκινούσε κατά 1,25 πιο κάτω, ώστε να είναι ανάμεσα στο π.χ. Α και Β και να λέει Α-Β: 25.00μ π.χ.

5. Αν είναι δυνατόν να υπάρχει επιλογή για χρήση υποδιαστολής ή τελείας.

6. Στο τέλος θα μπορούσε να ρωτηθεί ο χρήστης αν θέλει να τρέξει την ddptype εντολή για να προσδιορίσει το πως θα φαίνονται τα σημεία, ή να γίνεται αυτόματα ανάλογα με την κλίμακα.

 

Συγγνώμη που γίνομαι κουραστικός. Δεδομένου ότι δεν έχω ιδέα από lisp λέω ότι μου κατέβει χωρίς να ξέρω πόσο εύκολα γίνεται.

Και πάλι ΜΠΡΑΒΟ και ΕΥΧΑΡΙΣΤΟΥΜΕ για το φανταστικό προγραμματάκι!!!

Link to comment
Share on other sites

συναδελφε πολυ καλο, αλλα αντιμετωπιζω το εξης το Χ το Υ και τις Αποστασεις δεν τις βγαζει εντος του πινακα αλλα βγαζει εκτος

δουλευω με AUTOCAD 2005

Link to comment
Share on other sites

Συνάδελφε σε παρακαλώ γιατί δεν κρατάει την εντολή κάθε φορά που ανοίγω το AutoCAD πρέπει να ξαναπερνάω την εντολή (load"Toposynt") ακόμη και άνοιγμα νέου σχεδίου να κάνω δεν την αναγνωρίζει πρέπει να την ξαναγράφω. Σε ευχαριστώ

Link to comment
Share on other sites


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

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

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

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

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

Σύνδεση

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

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

Σημαντικό

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