Jump to content

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


About This File

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

Πρόβλημα με τα Ελληνικά; Κοίταξε το 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

What's New in Version 3   See changelog

Released

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



User Feedback

Recommended Comments



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

 

Share this comment


Link to comment
Share on other sites

Καλησπέρα, κατά το τρεξιμο του lisp σε Autocad 2007, μου βγάζει αυτη τη γραμμτοσειρά που φαίνεται στο command line. Εχω αλλάξει σε verdana το text style αλλα φυσικά δεν αλλάζει η γραμματοσειρα στο command. Μπορεί να βοηθήσει κανείς?Να σημειώσω οτι σε άλλο υπολογιστή και σε λογισμικό ZWCAD έτρεξε κανονικά χωρίς κάποιο πρόβλημα στη γραμματοσειρά. Ευχαριστώ.

pic.png

Edited by charlabr

Share this comment


Link to comment
Share on other sites

πραγματικά ότι καλύτερο ! άπειρες εργατοώρες κερδισμένες Ευχαριστούμε συνάδελφε !  

  • Like 1

Share this comment


Link to comment
Share on other sites
On 8/9/2018 at 12:16 ΠΜ, charlabr said:

Καλησπέρα, κατά το τρεξιμο του lisp σε Autocad 2007, μου βγάζει αυτη τη γραμμτοσειρά που φαίνεται στο command line. Εχω αλλάξει σε verdana το text style αλλα φυσικά δεν αλλάζει η γραμματοσειρα στο command. Μπορεί να βοηθήσει κανείς?Να σημειώσω οτι σε άλλο υπολογιστή και σε λογισμικό ZWCAD έτρεξε κανονικά χωρίς κάποιο πρόβλημα στη γραμματοσειρά. Ευχαριστώ.

pic.png

Αυτό δεν έχει να κάνει με το text style. Είναι μάλλον κάποια ρύθμιση των windows. Ο συνάδελφος sakisavg που είχε το ίδιο πρόβλημα βρήκε την εξής λύση: .

το βρήκα!!! ήθελε αλλαγη μια ρυθμιση στο pc. Επρεπε να βάλω ελληνικα στο administrative language settings -> Region -> Administrative ->  Language fon non - Unicode programs εκει επρεπε να βαλω ελληνικα!!! Σε ευχαριστώ πάρα πολύ!!!!! 

Untitled.jpg

Αν δεν δουλεύει αυτή η λύση σου προτείνω να αλλάξεις τα μηνύματα του toposynt.lsp σε λατινικούς χαρακτήρες ως εξής:

  1. Κάνε ένα αντίγραφο του  toposynt.lsp για backup.
  2. Άνοιξε το toposynt.lsp με το Lisp editor (ενσωματωμένο στο Autocad) η με το Notepad++ (ψάξε το και εγκατέστησε το).
  3. Βρές όλα τα μηνύματα και άλλαξε τα σε λατινικούς χαρακτήρες. Πχ. το μήνυμα:
    "\nΠρώτος αριθμός για την αρίθμηση των κορυφών: " κάντο 
    "\nProtos arithmos gia arithmisi korifon: " η ότι άλλο θέλεις.
  4. Προσοχή: πάντοτε να υπάρχουν εισαγωγικά στην αρχή και το τέλος του μηνύματος. Και όπου υπάρχει "\n να μην το διαγράφεις.
  5. Άλλαξε ένα δυό μηνύματα, αποθήκευσε τις αλλαγές και φόρτωσε το toposynt.lsp ξανά στο Autocad.
  6. Αν δεν σου βγάλει μήνυμα λάθους στο φόρτωμα, πας καλά. Τρέξε το πρόγραμμα και δες τα μηνύματα που άλλαξες. Συνέχισε τα βήματα 5 και 6 μέχρι να ολοκληρώσεις. 
  7. Αν σου βγάλει μήνυμα λάθους, το πιο πιθανό είναι να διέγραψες η να πρόσθεσες εισαγωγικά. Οπότε στον editor κάνε Undo και επανέλαβε τα βήματα 5 και 6. 

Καλή επιτυχία

Edited by Νικόλας Ρεΐσης
  • Like 1

Share this comment


Link to comment
Share on other sites
On 6/9/2018 at 12:00 ΠΜ, kostas.rakitzis said:

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

 

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

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

Share this comment


Link to comment
Share on other sites

Προβλήματα με τα Ελληνικά και άλλα θέματα

Από τα σχόλια βλέπω να επαναλαμβάνονται τα εξής θέματα:

  1. Κυκλάκια στις κορυφές
  2.  ??? στο κείμενο που εισάγεται στο σχέδιο
  3. Αλαμπουρνέζικα στο command line με αποτέλεσμα να μην διαβάζονται τα μηνύματα του προγράμματος.

Κυκλάκια στις κορυφές

Είναι λάθος να σχεδιάζονται κύκλοι στις κορυφές γιατί:

  1. Μεγαλώνει το μέγεθος του σχεδίου χωρίς λόγο.
  2. Έχουν απλή εμφάνιση που δεν αλλάζει.
  3. Σχεδιάζονται σε ένα συγκεκριμένο μέγεθος. Που είναι πολύ δύσκολο να το αλλάξεις αν θέλεις να τυπώσεις σε διαφορετική κλίμακα.

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

Η ρύθμιση γίνεται με την εντολή DDPTYPE η από το menu Format > Point style.

??? στο κείμενο που εισάγεται στο σχέδιο

Αυτό συμβαίνει αν η γραμματοσειρά που χρησιμοποιεί το τρέχον text style, δεν είναι true type (arial κλπ).

Αλλάξτε την γραμματοσειρά του Standard η δημιουργήστε ένα νέο text style που να χρησιμοποιεί true type γραμματοσειρά.
Με την εντολή style η από το μενού Format > Text style.

Αλαμπουρνέζικα στο command line

Θέλει αλλαγή ρύθμισης στα windows. 

Βάλτε Ελληνικά στο administrative language settings -> Region -> Administrative ->  Language fon non - Unicode programs. 

Untitled.jpg

  • Like 1

Share this comment


Link to comment
Share on other sites

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

Share this comment


Link to comment
Share on other sites

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

Share this comment


Link to comment
Share on other sites

ΜΠΡΑΒΟ ΣΑΣ! ΕΥΧΑΡΙΣΤΩ. Ειδικά τώρα με το κτηματολογιο χρονος μιάς ώρας σε dt!!!

 

 

Edited by HunterAndreas

Share this comment


Link to comment
Share on other sites

Ποια είναι η τελευταία έκδοση σαν τις 3 ??? Όσο αφορά το φορτωμα 

Όταν ανοίξεις το applied έχει επιλογή start up suite επιλέγεις το αρχείο και το τρέχει μόνο του κάθε φορά!! 

Share this comment


Link to comment
Share on other sites

Καλησπέρα σε Idea 10 θα δουλέψει η παραπάνω εφαρμογή; Το έχει δοκιμάσει κάποιος συνάδελφος;

Share this comment


Link to comment
Share on other sites

Ευχαριστούμε πολύ για τη βοήθεια. Ξέρετε αν υπάρχει κάτι αντίστοιχο για το ελεύθερο λογισμικό DraftSight (απομίμηση του Autocad)?

Share this comment


Link to comment
Share on other sites
On 5/11/2018 at 10:13 ΜΜ, Νικόλας Ρεΐσης said:

Προβλήματα με τα Ελληνικά και άλλα θέματα

Από τα σχόλια βλέπω να επαναλαμβάνονται τα εξής θέματα:

  1. Κυκλάκια στις κορυφές
  2.  ??? στο κείμενο που εισάγεται στο σχέδιο
  3. Αλαμπουρνέζικα στο command line με αποτέλεσμα να μην διαβάζονται τα μηνύματα του προγράμματος.

Κυκλάκια στις κορυφές

Είναι λάθος να σχεδιάζονται κύκλοι στις κορυφές γιατί:

  1. Μεγαλώνει το μέγεθος του σχεδίου χωρίς λόγο.
  2. Έχουν απλή εμφάνιση που δεν αλλάζει.
  3. Σχεδιάζονται σε ένα συγκεκριμένο μέγεθος. Που είναι πολύ δύσκολο να το αλλάξεις αν θέλεις να τυπώσεις σε διαφορετική κλίμακα.

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

Η ρύθμιση γίνεται με την εντολή DDPTYPE η από το menu Format > Point style.

??? στο κείμενο που εισάγεται στο σχέδιο

Αυτό συμβαίνει αν η γραμματοσειρά που χρησιμοποιεί το τρέχον text style, δεν είναι true type (arial κλπ).

Αλλάξτε την γραμματοσειρά του Standard η δημιουργήστε ένα νέο text style που να χρησιμοποιεί true type γραμματοσειρά.
Με την εντολή style η από το μενού Format > Text style.

Αλαμπουρνέζικα στο command line

Θέλει αλλαγή ρύθμισης στα windows. 

Βάλτε Ελληνικά στο administrative language settings -> Region -> Administrative ->  Language fon non - Unicode programs. 

Untitled.jpg

Ευχαριστώ , το δοκίμασα σε σχεδιαστικό πρόγραμμα της 4Μ (IDEA 10 NG) , έκανα και τίς ρυθμίσεις που προτείνεις και πλέον εμφανίζει χωρίς ερωτηματικά τον πίνακα των συντεταγμένων 

Share this comment


Link to comment
Share on other sites

Συγχαρητήρια και ευχαριστούμε!

Share this comment


Link to comment
Share on other sites

Πολύ καλό και εύχρηστο.Συγχαρητήρια

Share this comment


Link to comment
Share on other sites

Έχει καταλάβει κανείς γιατί καμιά φορά δε δουλεύει καν και ξαναρωτάει από την αρχή "διαλέξτε polyline";

Share this comment


Link to comment
Share on other sites

Καλησπέρα και συγχαρητήρια και από εμένα για το πολύ εύχρηστο πρόγραμμα!!!

Μέχρι πρόσφατα το χρησιμοποιούσα σε Autocad 10 (και Window 7) και λειτουργούσε μια χαρά. Πλέον στο Autocad Architecture 2011 (στο οποίο δυστυχώς είμαι αναγκασμένος να δουλεύω πλέον!!!) με windows 8 βγάζει τα ονόματα των σημείων, τις διαστάσεις του γηπέδου και τον πίνακα με κάποιο άσχετο rotation. Έχετε ιδέα γιατί μπορεί να συμβαίνει αυτό και πως μπορεί να διορθωθεί.

Ευχαριστώ εκ των προτέρων.

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.