Επιμετρήσεις σωλήνων, αεραγωγών και καλωδίων AutoCAD add-in

Με αυτό το add-in - γραμμένο σε VBA - θα μπορείτε να μετρήσετε το συνολικό μήκος των γραμμών ενός layer. Έτσι, αν έχετε σε ένα layer πχ όλες τις σωληνώσεις ή τα καλώδια μιας εγκατάστασης θα μπορείτε με το πάτημα ενός κουμπιού να βρείτε άμεσα το συνολικό τους μήκος.

Οδηγίες χρήσης:

1. Ξεζιπάρετε το αρχείο και στην συνέχεια ανοίξτε το AutoCAD.
   
2. Στην γραμμή εντολών γράψτε VBAMAN.
   
3. Στο μενού που θα εμφανιστεί πατήστε το κουμπί που γράφει Load.
   
4. Περιηγηθείτε και βρείτε το παρόν αρχείο με τίτλο Total Length Of Lines Per Layer.dvb.
   
5. Επιλέξτε να ενεργοποιήσετε τις μακροεντολές (enable macros) και στην συνέχεια πιέστε το κουμπί κλεισίματος (Close).
   
6. Στην συνέχεια πηγαίνετε στο μενού Tools > Macros ή εναλλακτικά πατήστε ALT + F8 ή απλά γράψτε VBARUN στην γραμμή εντολών.
   
7. Στο μενού που θα εμφανιστεί πατήστε το κουμπί Run. Θα εμφανιστεί η φόρμα του add-in (βλέπε εικόνα).
   
8. Στην φόρμα, πατήστε το κουμπί Select Lines και στη συνέχεια επιλέξτε τις γραμμές που θέλετε από το σχέδιο σας (πχ αυτές που αντιστοιχούν στις σωληνώσεις – καλώδια). Μόλις βγείτε από το mode επιλογής (είτε πατώντας οπουδήποτε στο σχέδιο εκτός από γραμμές, είτε κάνοντας δεξί κλικ, είτε απλά πατώντας enter) θα δείτε ότι το listbox αριστερά θα περιέχει όλα τα layers που επιλέξατε, ενώ το μεσαίο listbox θα περιέχει τα μοναδικά layers που επιλέξατε.
   
9. Τέλος, πατώντας το κουμπί Calculate Length στο δεξί Listbox θα εμφανιστούν τα συνολικά μήκη των γραμμών των μοναδικών layers, ενώ στο textbox από κάτω θα βρίσκεται το άθροισμά τους. Όλες οι τιμές στρογγυλοποιούνται σε 2 δεκαδικά ψηφία.
   

Εφόσον το add-in είναι φορτωμένο δεν χρειάζεται να επαναλάβετε και τα 9 βήματα, παρά μόνο να συνεχίσετε από το 6 και μετά.

Υπενθυμίζω ότι όσοι έχετε AutoCAD 2010 ή νεώτερο και δεν έχετε εγκατεστημένη την VBA μπορείτε να την κατεβάσετε από το site της Autodesk.

Τέλος, εδώ μπορείτε να βρείτε μια άλλη έκδοση του add-in στην οποία τα αποτελέσματα εγγράφονται σε καινούργιο βιβλίο του excel.

Ελπίζω να σας χρησιμεύσει...