Επανερχόμαστε στο θέμα επικοινωνίας του Excel με εφαρμογές τύπου Cad και συγκεκριμένα το GStarCad. Όπως αναλύθηκε στο 1ο μέρος του αφιερώματος , η διασύνδεση είναι σχετικά απλή υπόθεση .
Απαιτούνται όπως αναλύθηκε κάποια υποπρογράμματα το καθένα από τα οποία αναλαμβάνουν συγκεκριμένη "εργασία" έτσι ώστε να αποστέλλονται στο 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 πιο σύνθετα σχεδιαστικά αντικείμενα.
Δεν υπάρχουν σχόλια:
Δημοσίευση σχολίου