Μεθοδολογία σύνδεσης Excel με εφαρμογές τύπου Cad - Μέρος 3ο

Στο τρίτο αυτό μέρος του αφιερώματος σχετικά με την σύνδεση Excel - Cad και ειδικώτερα με την "αποστολή" γεωμετρικών δεδομένων από κελλιά που βρίσκονται στο Excel , κατευθείαν στο σχεδιαστικό περιβάλλον του GStarCad . Πατώντας απλά στο κουμπί με ένδειξη "Draw Data inside GStarCad" , η σύνδεση Excel - GStarCad γίνεται ταχύτατα και τα δεδομένα εμφανίζονται στη σχεδιαστική πινακίδια του GStarCad με την χρήση της εντολής Zoom Extends .

Στο Excel , θα πρέπει να ενεργοποιηθούν οι μακροεντολές για να "δουλέψει" η όλη διαδικασία μεταφοράς των δεδομένων.

Το παράδειγμα αυτό είναι πιο ολοκληρωμένο σε σχέση με τα προηγούμενα . Πραγματεύεται τον αυτόματο σχεδιασμό όψεων κτιρίων (απλή προέκδοση και όχι τελικό πρόγραμμα) με βάση γεωμετρικά στοιχεία που βρίσκονται σε συγκεκριμένα κελλιά στο Excel . Τα δεδομένα είναι οργανωμένα ανά στήλη και τελικά τοποθετούνται σε συγκεκριμένα επίπεδα στο σχέδιο .

Βέβαια , επειδή ο κώδικας της Visual Basic του Excel είναι "ανοικτός" , μπορεί κάποιος να πειραματιστεί , να προσθέσει δυνατότητες όπως π.χ. η συνολική επιφάνεια κάθε όψης κ.λ.π.

Πιστεύω το τρίτο αυτό μέρος του αφιερώματος να έλυσε κάποιες ακόμη απορίες πάνω στην σύνδεση Excel - GStarCad και στην διαδικασία αυτόματης μεταφοράς δεδομένων . Η διαδικασία είναι αντίστοιχη αν θέλουμε να συνδέσουμε το Excel με το Autocad

Αρκεί να γίνουν κάποιες τροποποιήσεις στην υπορουτίνα σύνδεσης των εφαρμογών μεταξύ τους .

Sub AcadConnect()

On Error Resume Next

Set AcadApp = GetObject(, "GStarCad.Application")
If Err Then
    Err.Clear
    Set AcadApp = CreateObject("GStarCad.Application")
    AcadApp.Visible = True
    If Err Then
        MsgBox Err.Description
        Exit Sub
    End If
End If

End Sub

Αρκεί , εκεί που γράφει GStarCad.Application , να γραφτεί Autocad.Application και τα δεδομένα θα σταλούν στο Autocad που θα πρέπει να είναι ανοιχτό σε ένα άδειο σχέδιο .

Τόσο απλή η διαδικασία ώστε τα δεδομένα να "πάνε" στο Autocad , με μια μικρή αλλαγή ...

Πειραματιστείτε και αν υπάρξουν απορίες , θα επανέλθουμε με συστάσεις για την επίλυσή τους.

Κατεβάστε από εδώ το παράδειγμα σε περίπτωση που θέλετε να πειραματιστείτε.