Μετάβαση στο περιεχόμενο

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

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

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

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

Πρόβλημα με τα Ελληνικά; Κοίταξε το  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 18
  • Thanks 11
  • Upvote 1
 Share
Προηγούμενο Αρχείο Αλλαγή Κέντρου Φύλλου Χάρτη Προβολής Hatt
Επόμενο Αρχείο BuildDXF

Σχόλια Μελών

Recommended Comments



charlabr

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

pic.png

Edited by charlabr
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
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 Νικόλας Ρεΐσης
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
Link to comment
Share on other sites
kostas.rakitzis
On 5/11/2018 at 9:32 ΜΜ, Νικόλας Ρεΐσης said:

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

Ευχαριστώ πολύ! Δουλεύει μια χαρά!

Link to comment
Share on other sites
clima

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

Link to comment
Share on other sites
kapas2004

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

Link to comment
Share on other sites
Gio Xrono

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

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

Link to comment
Share on other sites
pfot

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

Link to comment
Share on other sites
thanasis1
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) , έκανα και τίς ρυθμίσεις που προτείνεις και πλέον εμφανίζει χωρίς ερωτηματικά τον πίνακα των συντεταγμένων 

Link to comment
Share on other sites
doumanis

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

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

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

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

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

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

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

Δεν ξέρω. Πληκτρολόγησε units και δες αν η ρύθμιση του direction είναι άλλη από East: 0.00 που πρέπει να είναι.

Link to comment
Share on other sites
doumanis

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

Link to comment
Share on other sites

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

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

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

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

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

Σύνδεση

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

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

Σημαντικό

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