agior

Το αρχείο SeqNum.lsp φορτώνεται από γραμμή εντολών εισάγοντας (load"seqnum") και τρέχει ως εντολή με το όνομα seqnum. Ρυθμίζει αυτόματα τις παραμέτρους για τοπογραφική σχεδίαση, όπως δεξιόστροφες γωνίες σε βαθμούς, βορράς προς τα πάνω (!) και βάζει osnap node άρα είναι προϋπόθεση να υπάρχει σχεδιασμένο point για να γράψει από πάνω του.
 
Χρησιμοποιήστε το με κάθε προσοχή, αφού κάνετε δοκιμή για το αποτέλεσμα που μπορεί να έχει στη δική σας μηχανή...

Πρόκειται για απλή ρουτίνα που σχεδιάζει πλαίσιο, κάνναβο σταυρών και αρίθμηση συντεταγμένων κατά Χ και Ψ στο model space.
 
Το αρχείο canavos.lsp το αντιγράφουμε στο φάκελλο \AutoCAD\Support ή οπουδήποτε αλλού μπορεί να το βρει το AutoCAD.
 
Φορτώνεται με την εντολή (load"canavos") ή με την εντολή appload και την προσθήκη στο startup suite.
 
Εκτελείται πληκτρολογώντας canavos
 
Στη συνέχεια ορίζω κλίμακα που θα σχεδιάσω το τελειωμένο σχέδιο, βάζοντας τον παρονομαστή πχ 200 ή 500 ή οτιδήποτε επιθυμώ (επιτρέπεται το κλέψιμο κατά zavi)
 
Μετά εισάγω τον ακέραιο αριθμό καννάβων κατά Χ και μετά κατά Ψ διάσταση. Θυμηθείτε πως αυτό έχει να κάνει με τη διάσταση του χαρτιού που σκοπεύετε να κάνετε την τελική εκτύπωση, πχ ένα Α0 χωράει κατά μέγιστο 11Χ8 καννάβους.
 
Στη συνέχεια εισάγω το όνομα του layer που θα γίνει η σχεδίαση, αν δεν υπάρχει θα δημιουργηθεί.
 
Τέλος υποδεικνύω με κλικ ή πληκτρολογώ τις συντεταγμένες του κάτω αριστερού σημείου του κανάβου (προφανώς ακέραιες και κατάλληλες για την κλίμακα που σχεδιάζω.

Απλό εξελόφυλλο για να επιλύσετε πρωτογενή ταχυμετρικά στοιχεία (Hz,V,SD) σε (Χ,Ψ,Η) επίπεδες συντεταγμένες προβολής ΕΓΣΑ87.
 
Εισάγετε στοιχεία μόνο στα πράσινα κελιά, μην πειράζετε τα υπόλοιπα. Τζίιιιζ Αποστάσεις σε μέτρα, γωνίες (ζενίθειες αποστάσεις) σε βαθμούς.
 
Προσοχή! Λαμβάνει υπ όψη το Εast που εισάγετε και υπολογίζει το σωστό συντελεστή κ. Αν δεν ξέρετε το East της περιοχής αποτύπωσης βάλτε αυθαίρετη τιμή 310000 για να υπολογίσει κ περίπου ίσο με 0 ppm.
 
Επίσης κάνει αναγωγή λόγω σφαιρικότητας και αναγωγή στη στάθμη θάλασσας.

Κατατέμνει μια κλειστή polyline σε τμήματα.
 
Σώστε το στο φάκελλο Program Files\AutoCAD\Support και φορτώστε με (load"divarea") Αν θέλετε να φορτώνεται
 
αυτόματα με κάθε νέο σχέδιο ως νέα εντολή, μπορείτε να δηλώσετε το αρχείο με την εντολή appload και να το
 
προσθέσετε στη startup suit.
 
Εκτελείται με πληκτρολόγηση divarea στη γραμμή εντολών. Ακολουθούν οδηγίες στα Αγγλικά μου (το είχα ανεβάσει σε αγγλόφωνο σάιτ) υποθέτω πως ήταν και είναι κατανοητές.
 
Suppose that you have to split a big part into 2, 3, 4 (even works for 5.014)
or you want to cut a smaller part out of the parent one.
 
All you need is a closed polyline to define the parent part.
 
Load the utility, after placing it into an appropriate folder,
let's say \Program Files\AutoCAD\Support, invoke "APPLOAD" command
or invoke (LOAD"DIVAREA") and run it by entering DIVAREA.
 
 
For proper execution please note that:
 
1. The area which is enclosed by the poly must be free of
entities which could cause unexpected behaviour of the invoked BOUNDARY
command (this command is the key to this routine). Erase or Freeze all lines,
polylines, circles, etc.inside the lwpoly. Text, nodes and attribs may not interfere with the execution.
 
2. The division line must cross the boundary polyline, is totaly imaginary, you must not draw it,
let the routine draw it, you have to just indicate its endpoints
(you may have to draw auxilliary entities before you invoke the command DIVAREA)
 
3. Bear in mind that this division line will be automatically rotated (or be offseted) so
neither of its endpoints should be inside the boundary, at any moment, or else the result will be unexpected.
 
4. An easy way to help things is to indicate the two end-points as far out from the boundary as possible,
not exceeding of course, your current visibe area.
 
5. The only exception is for the fixed point, in case that you prefer "F" rather than "C" as an answer in the
relevant question. Fixed point must be on or outside the polyline, never inside.
 
6. Next, pick a point into the part which will obtain the desired area.
You have to indicate into it, not on the boundary and as far from division line as possible,
so this point will not be outside of the desired part while the division line is moving towards the point.
 
7. Finally, you have to indicate the remaining part, exactly by the same way, far from division line and into the
remaining part.
 
8. For better area approximation you can open with an editor the lisp file and decrease local vars stp2 and stp1
as desired. Note that decreasing causes a significant delay to the routine final aproximation.

Ρουτίνα Lisp για AutoCAD, γράφει διαστάσεις επί πλευρών.
 
Ένας εναλλακτικός τρόπος διαστασιολόγησης που ανακουφίζει ένα κτηματολογικό ή τοπογραφικό διάγραμμα απ τις περιττές γραμμές διαστασιολόγησης της απλής εντολής DIM που περιπλέκουν την αναγνωσιμότητα του διαγράμματος.
 
Σώστε το στο φάκελλο Program Files\AutoCAD\Support και φορτώστε με (load"dikth") Αν θέλετε να φορτώνεται αυτόματα με κάθε νέο σχέδιο ως νέα εντολή, μπορείτε να δηλώσετε το αρχείο με την εντολή appload και να το προσθέσετε στη startup suit.
 
Εκτελείται με πληκτρολόγηση dikth στη γραμμή εντολών.
 
Επιλέγεις κλίμακα σχεδίασης, κλικ στην αρχή, κλικ στο τέλος γραμμής και κλικ στο σημείο που θέλεις να γραφτεί το label. Δε χρειάζεται προ-φορτωμένο osnap, επιλέγει κατάλληλο osnap η ρουτίνα.
 
Δουλεύει και χωρίς να υπάρχει σχεδιασμένη γραμμή, ουσιαστικά αποτιμά το άνυσμα που ορίζουν τα κλικ και γράφει το μέτρο του με label (2 δεκαδικών) προσανατολισμένο κατάλληλα σε σχέση με τη διεύθυνση του ανύσματος.

Σε κλειστή polyline AutoCAD εκτελεί αυτόματη αύξουσα ονομασία κορυφών (Ελληνικό αλφάβητο), συντάσσει Πίνακα Συντεταγμένων και Αποστάσεων μεταξύ και αναγράφει τις αποστάσεις μεταξύ κορυφών πάνω στις πλευρές. Η ονοματοδοσία μπορεί να είναι του τύπου Α,Β,Γ,Δ,... ή τύπου κΑ,κΒ,κΓ,... ή τύπου Ακ,Βκ,Γκ,... όπου κ οποιοσδήποτε ASCII χαρακτήρας ή ακολουθία χαρακτήρων.
 
Το σώζετε στον \Program Files\AutoCAD\Support
 
Φορτώνεται με (load"korkth")
 
Τρέχει σαν εντολή korkth απ τη γραμμή εντολών. Αν θέλετε να το φορτώνει αυτόματα σε κάθε νέο σχέδιο τότε μέσω της appload προσθέτετε το αρχείο korkth.lsp στο startup suit.
 
Γλιτώνετε μπόλικη δουλειά...

Ρουτίνα σχεδιασμού καννάβου στο AutoCAD. Σώστε το στο φάκελλο \AutoCAD\Support και φορτώστε με (load"canavos") Αν θέλετε να φορτώνεται αυτόματα με κάθε νέο σχέδιο ως νέα εντολή, μπορείτε να δηλώσετε το αρχείο με την εντολή appload και να το προσθέσετε στη startup suit.
 
Εκτελείται με πληκτρολόγηση canavos στη γραμμή εντολών.
 
Ζητάει αρχικά να του πείτε την κλίμακα που σκοπεύετε να σχεδιάσετε το σχέδιο (βάλτε τον παρονομαστή μόνο).
 
Στη συνέχεια ζητάει το πλήθος καννάβων κατά Χ και μετά κατά Ψ.
 
Τέλος, πληκτρολογήστε (ή κλικάρετε αν έχετε κατάλληλο snap) την κάτω αριστερή γωνία των καννάβων. Εννοείται πως πρέπει να είναι ζεύγος ακεραίων τιμών αναλόγων της κλίμακας, δηλ για κλίμακα 1:500 πρέπει να είναι ακέραια πολλαπλάσια των 50 μέτρων, για 1:1000 των 100 μέτρων κλπ.

Ρουτίνα σχεδιασμού στο AutoCAD ταχυμετρικών σημείων.
Διαβάζει ένα αρχείο ASCII tτύπου CSV (Τιμές διαχωρισμένες με κόμμα) και σχεδιάζει στο τρέχον UCS :
α. μια οντότητα κειμένου (text object) για τα υψόμετρα των σημείων σ' ένα καθορισμένο από το χρήστη επίπεδο σχεδίασης (layer) με στοίχιση center.
β. μια οντότητα κειμένου (text object) για τους αύξοντες αριθμούς των σημείων στο ίδιο ή σε άλλο επίπεδο
γ. ένα node για κάθε αύξοντα αριθμό-αντικείμενο στο αντίστοιχο layer στα ακριβή X και Y
δ. ένα node για κάθε υψόμετρο-αντικείμενο στο αντίστοιχο layer επίσης,στα ακριβή X και Y
Συνολικά σχεδιάζονται δηλαδή 4 αντικείμενα για κάθε ταχυμετρικό σημείο.
Όλα τα ως άνω αντικείμενα είναι συνεπίπεδα, με υψόμετρο Ζ = 0.
 
Η ακριβής μορφή ενός τέτοιου αρχείου CSV ASCII πρέπει να είναι:
Σημείο nr, X, Y, H (CRLF)
Σημείο nr, X, Y, H (CRLF)
Σημείο nr, X, Y, H (CRLF)
.
.
.
Σημείο nr, X, Y, H (CRLF)
(EOF)