AutoCad - 07. AutoLISP. Κώδικες προγραμματάκια, οδηγίες σύνταξης κώδικα

[gvarth]

Νά' μαστε και πάλι .

 

σκεφτηκα ενα πινακα με τους τυπους εμβαδων απο τα πιο διαδεδομενα σχηματα (τριγωνο, τραπεζιο, ορθογωνιο παραλληλογραμο-περιλαμβανει και τα τετραγωνα-, παραλληλογραμμα, κυκλο, κυκλικο τομεα, ελλειψη και το μπροστα τμημα του κυκλικου τομεα -δεν ξερω πως λεγεται αλλα εννοω αυτο : http://www.efunda.com/math/areas/CircularSegmentGen.cfm - )

 

Το Autocad , όταν επιλέξουμε τόξο , μας επιστρέφει γεωμετρικές πληροφορίες που σχετίζονται με το συγκεκριμένο τόξο (κέντρο , ακτίνα, αρχική και τελική γωνία και μας δίνει αυτόματα το εμβαδό του διαγραμμισμένου χωρίου (όπως αυτό φαίνεται στη συνημμένη εικόνα) χωρίς να χρειαστεί να κάνουμε υπολογισμούς. Έκανα βέβαια κάποιες επαληθεύσεις αλλά δεν υπήρξε απόκλιση αποτελεσμάτων μεγαλύτερη του 1% με βάση το τυπολόγιο που με παρέπεμψες.

 

Αναγνώριση γενικής μορφής τραπεζίου δεν έχω καταφέρει να το πείσω να κάνει

 

Οπότε μάλλον θα αναγνωρίζει κυκλικά τόξα , τρίγωνα , παραλληλόγραμμα που έχουν γίνει με την RECT και σκοπός είναι να "πηγαίνουν" αυτά που ανιχνεύθηκαν στο Excel για υπολογισμό του εμβαδού.

Για να υπάρχει μια τάξη , τα όμοια σχήματα καλό θα είναι να σχεδιάζονται σε ξεχωριστό επίπεδο (layer) ώστε να αποφευχθούν "μπερδέματα"

 

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

[erling]

Μπράβο gvarth για το κουράγιο σου, αλλά φαντάζεσαι να ζητήσει ο ελεγκτής εμβαδομέτρηση του τμήματος μεταξύ κύκλου και χορδής με γνωστά και μετρήσιμα στο έδαφος σχήματα (τρίγωνο/τετράγωνο)?

[gvarth]

Ε ρε γλέντια ...

 

Και μετά

 

Πέρα από την όποια διάθεση για "ανάλαφρη ατμόσφαιρα" , για μικρές γωνίες , το εμβαδό του τόξου θα προσεγγίζεται με αρκετή ακρίβεια με άθροισμα εμβαδών τριγώνων που όσο περισσότερα τόσο πλησιάζουν το επιθυμητό εμβαδό. Χρονοβόρο βέβαια αλλά μπορεί να ζητηθεί.

 

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

[maik]

Νομίζω ειναι καλύτερα να γίνει εξ' αρχής προσέγγιση του τόξου με τεθλασμένη. Στο κάτω κάτω και ο υπάλληλος μπορεί πιο ευκολα να κάνει έλεγχο.

 

@ gvarth :

Η εντολή BOUNDARY με παράμετρο ενα σημείο εντός ενός κλειστού σχήματος δίνει σαν αποτέλεσμα μία POLYLINE της οποίας της κορυφές μπορείς να βρείς με την defun GETVER που εχει ο Omura στη σελίδα 276 του βιβλίου της Autolisp.

 

Στην περίπτωση που ειναι απαραίτητο να υπάρχει τόξο , τότε η POLYLINE που θα δημιουργηθεί δίνει τα στοιχεία του τόξου (σελ. 282 Omura ) .

[gvarth]

Η εντολή BOUNDARY με παράμετρο ενα σημείο εντός ενός κλειστού σχήματος δίνει σαν αποτέλεσμα μία POLYLINE της οποίας της κορυφές μπορείς να βρείς με την defun GETVER που εχει ο Omura στη σελίδα 276 του βιβλίου της Autolisp.

 

Στην περίπτωση που ειναι απαραίτητο να υπάρχει τόξο , τότε η POLYLINE που θα δημιουργηθεί δίνει τα στοιχεία του τόξου (σελ. 282 Omura ) .

 

 

Από Autolisp , λίγα γενικά θυμάμαι...

 

Το δεύτερο θέμα , το έχω προσεγγίσει ακριβώς με τον ίδιο τρόπο , σε Autocad VBA. Και επιστρέφει τις ίδιες πληροφορίες.

[ssavidis]

Γεια σας

 

Ψάχνω για κάποιο lisp που να τοποθετεί text σε ισοϋψεις λαμβανοντας text value = το Z της 2d polyline

[Spiderman]

Φίλος πολύ εξειδικευμένο αυτό που ψάχνεις για free

[tech_junky]

Ψάχνω για κάποιο lisp που να τοποθετεί text σε ισοϋψεις λαμβανοντας text value = το Z της 2d polyline

Αυτό που ψάχνεις είναι απλό, με λίγη προσπάθεια δεν θα σου πάρει πάνω από 1-2 ώρες να το φτιάξεις μόνος σου κι όπως ακριβώς το θέλεις. Αν το βρεις έτοιμο (πράγμα μάλλον δύσκολο) θα σου πάρει ποιό πολύ ώρα γιατί θα πρέπει να καταλάβεις πως δουλεύει και να το προσαρμόσεις.

Επίσης, απ' όσο θυμάμαι, δεν έχουν υποχρεωτικά οι 2d polylines z value.

[stefanos zervos]

Έχουν elevation. (είναι το ίδιο, και ισχύει για όλο το polyline, μιας και το 2d pl βρίσκεται όλο σε ένα επίπεδο)

Το βλέπεις στα properties.

[gvarth]

 

Κάποιες ενδιαφέρουσες πηγές πληροφόρησης με κάποια εύληπτα παραδείγματα εντόπισα παρακάτω :

 

http://ronleigh.com/autolisp/

http://www.pixelgraphicsinc.com/AutoLISP_Home.html

http://www.acadsolutions.biz/Tutorial.htm

http://usa.autodesk.com/adsk/servlet/u/gsearch/results?siteID=123112&catID=123155&id=2088334&qt=autolisp+programs

 

Και για τα πολύ βασικά :

http://www.afralisp.net/autolisp/tutorials/quick-start.php

http://www.afralisp.net/autolisp/tutorials/loading-autolisp-files.php

http://www.afralisp.net/autolisp/tutorials/the-basics-part-1.php

http://www.afralisp.net/autolisp/tutorials/the-basics-part-2.php

http://www.afralisp.net/autolisp/tutorials/the-basics-part-3.php

http://www.afralisp.net/autolisp/tutorials/the-basics-part-4.php