Στο δεύτερο αφιέρωμα της σειράς , μαζί με το σχέδιο υπάρχει μικρό πρόγραμμα (γραμμένο στην VBA του Autocad) το οποίο καταμετρά όλες τις κλειστές Polylines που βρίσκονται σε συγκεκριμένο Layer . Στο παρόν παράδειγμα , το Layer έχει το όνομα KX . Μετά την επιλογή των Polylines οι οποίες κάλλιστα θα μπορούσαν να αναπαριστούν ιδιοκτησίες , απλά πατάμε Enter για να δηλώσουμε ότι ολοκληρώθηκε η διαδικασία επιλογής. Στη συνέχεια το πρόγραμμα υπολογίζει την περίμετρο και το εμβαδό των κλειστών Polylines και επιστρέφει το αποτέλεσμα σε παράθυρο διαλόγου .
Κατεβάστε το σχέδιο μαζί με το πρόγραμμα από εδώ και μην ξεχάσετε να αποδεχτείτε την ενεργοποίηση των μακροεντολών ώστε να μπορέσει να ενεργοποιηθεί το πρόγραμμα.
Όταν το σχέδιο έρθει στην οθόνη , με Alt-F8 και κλίκ στο κουμπί RUN , ξεκινά να τρέχει το πρόγραμμα.
Δεν υπάρχουν σχόλια:
Δημοσίευση σχολίου