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

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


vournaz

Recommended Posts

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

 

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

 

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

 

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

 

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

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

 

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

post-342-131887254911_thumb.jpg

  • Upvote 1
Link to comment
Share on other sites

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

Link to comment
Share on other sites

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

 

Και μετά :sad:

 

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

 

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

Link to comment
Share on other sites

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

 

@ gvarth :

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

 

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

Link to comment
Share on other sites

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

 

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

 

 

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

 

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

Link to comment
Share on other sites

  • 5 months later...
Ψάχνω για κάποιο lisp που να τοποθετεί text σε ισοϋψεις λαμβανοντας text value = το Z της 2d polyline
Αυτό που ψάχνεις είναι απλό, με λίγη προσπάθεια δεν θα σου πάρει πάνω από 1-2 ώρες να το φτιάξεις μόνος σου κι όπως ακριβώς το θέλεις. Αν το βρεις έτοιμο (πράγμα μάλλον δύσκολο) θα σου πάρει ποιό πολύ ώρα γιατί θα πρέπει να καταλάβεις πως δουλεύει και να το προσαρμόσεις.

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

Link to comment
Share on other sites

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

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

Link to comment
Share on other sites

  • 3 months later...

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

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

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

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

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

Σύνδεση

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

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

Σημαντικό

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