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

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

Απαιτούνται όπως αναλύθηκε κάποια υποπρογράμματα το καθένα από τα οποία αναλαμβάνουν συγκεκριμένη "εργασία" έτσι ώστε να αποστέλλονται στο GStarCad συγκεκριμένου τύπου αντικείμενα με απλό και κατανοητό τρόπο . Κάποιο υποπρόγραμμα δηλαδή "αποστέλλει" κείμενο , κάποιο αποστέλλει απλές γραμμές , κάποιο κύκλους (θα το δούμε σε επόμενο αφιέρωμα) , κάποιο διαστάσεις κ.λ.π.

Μετά την σύνδεση με το GStarCad , η διαδικασία σχεδίασης υλοποιείται με "αποστολή" βασικών σχημάτων (γραμμές και κείμενο) , σε συγκεκριμένες θέσεις στο σχέδιο .

Sub CreateShapes()

 Dim xmin As Double, xmax As Double
 Dim ymin As Double, ymax As Double
 Dim orgx As Double, orgy As Double
 Dim Lx As Double, Ly As Double
 Dim Sxolia As String
 Dim dl As Double, dx As Double, dy As Double
 
 ' Σημείο εκκίνησης σχεδίασης του παραλληλογράμμου
 orgx = Cells(11, 2)
 orgy = Cells(11, 3)
 
 ' Διαστάσεις ΠΛΑΤΟΣ , ΥΨΟΣ του παραλληλογράμμου
 dx = Cells(16, 2)
 dy = Cells(16, 3)
 
 'Σύνδεση με το Autocad μέσω OLE
 
 AcadConnect
 
 ' Καθορισμός επιπέδων σχεδίασης
 
 AcadNewLayer "Perigramma", 1
 AcadNewLayer "Keimeno", 3
 
 Worksheets("DataSheet").Activate
 
 
 
 AcadLine orgx, orgy, orgx + dx, orgy, "Perigramma"
 AcadLine orgx + dx, orgy, orgx + dx, orgy + dy, "Perigramma"
 AcadLine orgx + dx, orgy + dy, orgx, orgy + dy, "Perigramma"
 AcadLine orgx, orgy + dy, orgx, orgy, "Perigramma"
 
 sx = orgx + dx + 1
 sy = orgy + dy
 
 
 platos = "ΠΛΑΤΟΣ : " & Str$(dx)
 ypsos = "ΥΨΟΣ : " & Str$(dy)
 embado = "ΕΜΒΑΔΟ : " & Str$(dx * dy)
 perimetros = "ΠΕΡΙΜΕΤΡΟΣ : " & Str$(2 * dx + 2 * dy)
 
 AcadText sx, sy, 0.15, 0, "Keimeno", platos
 AcadText sx, sy - 0.3, 0.15, 0, "Keimeno", ypsos
 AcadText sx, sy - 0.6, 0.15, 0, "Keimeno", embado
 AcadText sx, sy - 0.9, 0.15, 0, "Keimeno", perimetros
 
 
 AcadClose
    
End Sub

Ουσιαστικά , από συγκεκριμένα κελλιά στο φύλλο εργασίας που το ονομάσαμε "DataSheet" , διαβάζεται το σημείο εκκίνησης του σχήματος και οι διαστάσεις του παραλληλογράμμου που "στέλνουμε" στο Cad . Επίσης στο σχέδιο γράφεται και κάποιο κείμενο σχετικά με τις διαστάσεις , το εμβαδό και την περίμετρο του παραλληλογράμμου που "στείλαμε" από το Excel στο Cad.

Το σχετικό Excel αρχείο μπορείτε να το κατεβάσετε από εδώ .

Μόλις ζητήσετε να ανοίξει , θα ερωτηθείτε σχετικά με το αν επιθυμείτε να ενεργοποιηθούν οι μακροεντολές . Θα απαντήσετε θετικά κάνοντας κλίκ στο Ok και στη συνέχεια , θα εμφανιστεί το φύλλο εργασίας 

Αλλάζουμε τις παραμέτρους που επιθυμούμε σχετικά με τις διαστάσεις του παραλληλογράμμου που θα σχεδιαστεί και ακολούθως , απλά "πατάμε" πάνω στο κουμπί που βρίσκεται στο κάτω αριστερά τμήμα του φύλλου εργασίας και έχει ένδειξη "ΣΧΕΔΙΑΣΕ ΤΟ ΠΑΡΑΛΛΗΛΟΓΡΑΜΜΟ ... "

Αν το GStarCad δεν είναι ήδη ανοικτό , ανοίγει τη στιγμή εκείνη και με την εντολή ZOOM Extends βλέπουμε το σχέδιο στην οθόνη .

Το απλό αυτό σχέδιο το οποίο ουσιαστικά είναι και η πρώτη ολοκληρωμένη μας απόπειρα "αποστολής" απλών σχεδιαστικών αντικειμένων από το Excel στο Autocad .

Μελετήστε το , κάντε πειραματισμούς και θα επανέλθουμε με άλλο ένα αφιέρωμα το οποίο θα εξηγείται ένα πιο σύνθετο παράδειγμα στο οποίο θα "αποστέλλονται" στο Cad πιο σύνθετα σχεδιαστικά αντικείμενα.