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

[Παναγιώτης]

Οι ενδιαφερόμενοι για τσεκάρετε και αυτό (δεν το έχω δοκιμάσει)

 

http://www.jefferypsanders.com/autolisp_cad2file.html

[frightnight]

Ένα παρα πολυ εύχρηστο και freeware προγραμματάκι για να μεταφέρεις xyz+(ονομασία layers) απο dxf σε txt (και απο εκει στο excel) ειναι το dxf2xyz 2.0.Δυστυχώς νομίζω υποστηρίζει μεχρι autocad 2004.

 

 

 

http://www.guthcad.com.au/freestuff.htm

[gvarth]

Παιδιά καλημέρα

 

Ουσιαστικά θέλουμε να κάνουμε κλίκ σε κάποιες γραμμές του σχεδίου μας και με κάποιο τρόπο να έχουμε τις συντεταγμένες των γραμμών αυτών στο Excel για χρήση επιμετρήσεων ;

 

Αν τα επιμετρητικά αυτά αποτελέσματα μας τα έδινε το ίδιο το Autocad , θα είμαστε εντάξει ; Τα αποτελέσματα αυτά τα θέλουμε οργανωμένα κατά Layer ;

 

Σκοπεύω να ξεκινήσω κάτι , απλά θα ήθελα να καταλάβω με σαφήνεια το τι ζητάμε ...

 

Ευχαριστώ

 

Γιώργος Βαρθαλίτης

[frightnight]

συντεταγμένες των γραμμών αυτών στο Excel για χρήση επιμετρήσεων ;

 

 

Στατικά προγράμματα που πολλές φορες εχουν δυσκολη εισαγωγη φορέα,αυτό είναι μια διέξοδος...ισως και για επιμετρήσεις..

[gvarth]

Στατικά προγράμματα που πολλές φορες εχουν δυσκολη εισαγωγη φορέα,αυτό είναι μια διέξοδος...ισως και για επιμετρήσεις..

 

Απλά , έχοντας ασχοληθεί με τη Visual Basic for Applications και σε περιβάλλον Excel αλλά και στο Autocad (2002 ή νεώτερο) , αναρωτιόμουν με ποιό τρόπο θα μπορούσα να συνεισφέρω γιαυτό και ρωτούσα για τα ζητούμενα ...

 

Θέλουμε λοιπόν κάποια μεθοδολογία , απλή για τον τελικό χρήστη , η οποία να επιτρέπει να επιλέξουμε κάποια ανοικτή/κλειστή polyline και μετά να μπορούμε να έχουμε τις συντεταγμένες της στο Autocad ; Χρειαζόμαστε πληροφορίες για το Layer που αυτή ανήκει ; Τι άλλο θέλουμε ;

[frightnight]

Χρειαζόμαστε πληροφορίες για το Layer που αυτή ανήκει ; Τι άλλο θέλουμε ;

 

Δεν υπάρχει κατι συγκεκριμένο.Ο καθένας μετα τακτοποιει τα δεδομενα ειτε με functions ειτε με vbasic,για import txt σε αλλο προγραμμα,πραξεις μεσα στο excel,η ξανα στο autocad..η απαιτηση για το καθενα ειναι διαφορετικη

[gvarth]

Δεν υπάρχει κατι συγκεκριμένο.Ο καθένας μετα τακτοποιει τα δεδομενα ειτε με functions ειτε με vbasic,για import txt σε αλλο προγραμμα,πραξεις μεσα στο excel,η ξανα στο autocad..η απαιτηση για το καθενα ειναι διαφορετικη

 

Ωραία,

 

Θα ξεκινήσω κάτι απόψε το απόγευμα. Αμεσα ελπίζω θα υπάρξει μια πρώτη προσέγγιση και μετά το βελτιώνουμε ...

 

Παιδιά καλημέρα

 

Μια πρώτη προσέγγιση του θέματος που ανεβάζω, λειτουργεί για PolyLines 2D και δημιουργεί στο root directory του σκληρού δίσκου το αρχείο DataExport.txt (ASCII) με περιεχόμενα όπως ενδεικτικά παρακάτω φαίνονται :

 

New PolyLine !

Layer : TestLayer

8 16

12 16

12 17

11 17

11 23

10 23

9 17

8 17

New PolyLine !

Layer : Test-2 Layer

...

...

...

 

 

Πως θα το αξιοποιήσουμε :

 

1. Αρχικά κατεβάζουμε στο PC μας το EntitySelections.txt , το μετονομάζουμε σε EntitySelections.zip (δυστυχώς το σύστημά μου δεν με αφήνει να ανεβάσω zip ) και αφού το αποσυμπιέσουμε τοποθετούμε ΟΛΑ τα αρχεία μαζί σε κάποιο φάκελλο (έστω C:\AcadVBA ) και στη συνέχεια φορτώνουμε το Autocad

 

2. Στο Autocad μπορούμε να φορτώσουμε το αρχείο παράδειγμα "Entities.dwg" . Από το menu tools του Autocad , επιλέγουμε macro και στη συνέχεια VBA Manager. Στο παράθυρο διαλόγου που εμφανίζεται , βρίσκουμε το φάκελλο όπου κατεβάσαμε τα αρχεία (στο 1ο βήμα) και επιλέγουμε το αρχείο EntityNames και πατάμε Open . Ακολούθως , πατάμε πάνω στο κουμπί 'EnableMacros' έτσι ώστε να ενεργοποιηθούν οι macroεντολές.

 

3.Πατάμε το Close

 

4. Ενεργοποιούμε το macro το οποίο θα "σαρώσει" την επιφάνεια εργασίας μας και θα φτιάξει για εμάς το αρχείο DataExport.txt με τις συντεταγμένες των PolyLines που περιέχει το σχέδιό μας. Η ενεργοποίηση γίνεται με τον συνδυασμό πλήκτρων Alt-F8 (κρατάμε πατημένο το Alt και πατάμε το F 8 ) . Μετά , στο παράθυρο διαλόγου που εμφανίζεται , πατάμε στο Run και δημιουργείται το εν λόγω αρχείο με τις συντεταγμένες .

 

Θα χαρώ να το δείτε, να το δοκιμάσετε και να συζητήσουμε τις προτάσεις σας.

 

Φιλικά

 

Γιώργος

 

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

 

Εδώ , ο μηχανισμός μεταφοράς των συντεταγμένων , υλοποιείται με λίγο διαφορετικό τρόπο.

 

Έχουμε ανοιγμένα ΤΑΥΤΟΧΡΟΝΑ και το αρχείο ImportfromPolylines.xls όπου θα δούμε τελικά να εμφανίζονται οι συντεταγμένες των

Polylines που διαλέξαμε αλλά και το Autocad με ανοιγμένο το σχέδιο απ' όπου θα επιλέξουμε με το mouse τις Polylines που μας ενδιαφέρουν. Στο συνημμένο αρχείο και αφού το αποσυμπιέσουμε, σαν παράδειγμα θα βρούμε το : PolylinesTest.dwg

 

Αρχικά μεταβαίνουμε στο Excel και στο Worksheet ΟΔΗΓΙΕΣ υπάρχει σύντομη περιγραφή σχετικά με την όλη διαδικασία μεταφοράς των συντεταγμένων από το Autocad στο Excel.

Στο Ίδιο αρχείο και στο Worksheet Polylines , υπάρχει "κουμπί" με την ένδειξη Import Coordinates . Κάνουμε "κλίκ" με το mouse πάνω του και μετά πάμε στο Autocad που ήδη είναι ανοικτό και επιλέγουμε τις Polylines που μας ενδιαφέρουν. Μόλις τις επιλέξουμε , πατάμε ENTER και πάμε στο Excel όπου στο φύλλο εργασίας Polylines βρίσκονται οι συντεταγμένες των κορυφών για τις Polylines που επιλέχτηκαν , καθώς και πληροφορίες για το αν η κάθε Polyline είναι ανοικτή/κλειστή καθώς και το Layer που ανήκει η κάθε μία.

 

Αν κρίνετε ότι σας ενδιαφέρει, κατεβάστε το συνημμένο , μετονομάστε το σε ImportCoordsfromAcad.rar , αποσυμπιέστε το σε κάποιο φάκελλο του δίσκου και πειραματιστείτε ...

 

Χαρά μου να ακούσω απορίες/παρατηρήσεις/σχόλια και να προσπαθήσω φυσικά να εξελίξω την όλη διαδικασία με βάση αυτά .

 

 

 

Παρατήρηση : Για κάποιο λόγο ο server δεν μου επιτρέπει να ανεβάσω rar , zip αρχεία . Συγνώμη για την ταλαιπωρία.

Entity Selections.txt

ImportCoordsfromAcad.txt

[Παναγιώτης]

Πολύ ωραία δουλειά gvarth. Εκανα μια μικρή προσθήκη στο πρόγραμμα και πλέον είναι δυνατή και η ανάγνωση του μήκους και του εμβαδού των polyline που διαλέγονται. Όταν οι polylines είναι ανοικτές το εμβαδό που υπολογίζεται είναι αυτό που σχηματίζεται όταν ενώσουμε το πρώτο σημείο της γραμμής με το τελευταίο (όπως και στο autocad).

 

Επίσης άλλαξα λίγο την εμφάνιση ενώ πλέον με το που εκτελείται η μακροεντολή καθαρίζει (διαγράφει) τις πρώτες 5 στήλες μεχρι την τελευταία γραμμή του φύλλου εργασίας ανεξαρτήτως έκδοσης του excel.

 

Αν ενδιαφέρεται κάποιος είναι σχετικά εύκολο να υπολογίζεται και το μήκος των επιμέρους ευθυγράμμων τμημάτων (μέσω excel - vba)

ImportCoordsfromAcad2.zip

[gvarth]

Πολύ ωραία δουλειά gvarth. Εκανα μια μικρή προσθήκη στο πρόγραμμα και πλέον είναι δυνατή και η ανάγνωση του μήκους και του εμβαδού των polyline που διαλέγονται. Όταν οι polylines είναι ανοικτές το εμβαδό που υπολογίζεται είναι αυτό που σχηματίζεται όταν ενώσουμε το πρώτο σημείο της γραμμής με το τελευταίο (όπως και στο autocad).

 

Επίσης άλλαξα λίγο την εμφάνιση ενώ πλέον με το που εκτελείται η μακροεντολή καθαρίζει (διαγράφει) τις πρώτες 5 στήλες μεχρι την τελευταία γραμμή του φύλλου εργασίας ανεξαρτήτως έκδοσης του excel.

 

Αν ενδιαφέρεται κάποιος είναι σχετικά εύκολο να υπολογίζεται και το μήκος των επιμέρους ευθυγράμμων τμημάτων (μέσω excel - vba)

 

Πολύ χρήσιμες οι προσθήκες σου Παναγιώτη. Ευχαριστώ που ασχολήθηκες και το εμπλούτισες με νέες δυνατότητες.

[iovo]

Υπάρχει η δυνατότητα να εισάγεται στο Εxcel και το Layer της Polyline? Το λέω αυτό γιατί θα ήταν έυκολο μετά να γίνουν προμετρήσεις και επιμετρήσεις σε μια κάτοψη που θα επεξεργαστεί ελαφρώς με polyline.

 

 

Edit: Aκυρο ...πείτε πώς δεν ρώτησα...