Μετάβαση στο περιεχόμενο

CIVEN

Members
  • Περιεχόμενα

    11
  • Εντάχθηκε

  • Τελευταία επίσκεψη

Profile Information

  • Φύλο
    Άντρας
  • Επάγγελμα
    Μηχανικός
  • Ειδικότητα
    Διπλ. Πολιτικός Μηχανικός

Τελευταίοι επισκέπτες προφίλ

2.480 profile views

CIVEN's Achievements

Newbie

Newbie (1/15)

  • Dedicated Rare
  • Collaborator Rare
  • Week One Done
  • One Month Later
  • One Year In

Recent Badges

18

Φήμη στην κοινότητα

  1. Version 01-91

    1.699 downloads

    Ερωτήσεις - Απαντήσεις ΤΕΕ για τους νόμους των αυθαιρέτων. Ομάδες 1 - 77 σε ένα αρχείο pdf για να μπορεί να γίνει εύκολα αναζήτηση.
  2. Version 1.0

    389 downloads

    ΔΗΜΙΟΥΡΓΙΑ ΑΡΧΕΙΟΥ DXF ΑΠΟ ΣΥΝΤΕΤΑΓΜΕΝΕΣ ΣΕ ΑΡΧΕΙΟ ΤΟΥ EXCEL ΑΡΧΕΙΑ 1. COORDS_TO_DXF.BAS ΑΠΑΙΤΟΥΜΕΝΟΣ ΚΩΔΙΚΑΣ ΣΕ VBA 2. ΣΥΝΤΕΤΑΓΜΕΝΕΣ.XLS ΑΡΧΕΙΟ EXCEL ΜΕ ΤΟΝ ΑΠΑΙΤΟΥΜΕΝΟ ΚΩΔΙΚΑ ΗΔΗ ΦΟΡΤΩΜΕΝΟ ΟΔΗΓΙΕΣ Αν θέλουμε να εισάγουμε τις εντολές δημιουργίας DXF σε κάποιο υπάρχον αρχείο excel ξεκινάμε να διαβάζουμε από το Α. Αν θέλουμε να χρησιμοποιήσουμε το συννημένο αρχείο "ΣΥΝΤΕΤΑΓΜΕΝΕΣ.XLS" ξεκινάμε να διαβάζουμε από το Β. A. ΓΙΑ ΕΞΟΙΚΟΙΩΜΕΝΟΥΣ ΜΕ VBA ΠΟΥ ΘΕΛΟΥΝ ΝΑ ΦΟΡΤΩΣΟΥΝ ΤΙΣ ΕΝΤΟΛΕΣ ΔΗΜΙΟΥΡΓΙΑΣ DXF ΣΕ ΥΠΑΡΧΟΝ ΑΡΧΕΙΟ EXCEL. 1. Ανοίγουμε το αρχείο Excel. 2. Ανοίγουμε την επεξεργασία Visual Basic. Για εκδόσεις Office 2007 και μεταγενέστερες : [Kεντρικό κουμπί] --> [Επιλογές του Excel] --> [Προσαρμογή] --> Επιλογή εντολών από : "Καρτέλα Προγραμματιστή" --> Επιλογή "Visual Basic" --> [Προσθήκη] --> [ΟΚ] Για εκδόσεις προγενέστερες του 2007 : Menu Tools --> Options--> Μακροεντολές 3. Στο παράθυρο της Visual Basic Επιλέγουμε [File] --> [import File] και στο παράθυρο που θα ανοίξει αναζητούμε και επιλέγουμε το αρχείο "COORDS_TO_DXF.BAS". Τώρα οι επιπλέον εντολές έχουν φορτωθεί στο αρχείο excel που ανοίξαμε. Β. ΕΙΣΑΓΩΓΗ ΤΩΝ ΣΥΝΤΕΤΑΓΜΕΝΩΝ ΣΤΟ ΑΡΧΕΙΟ "ΣΥΝΤΕΤΑΓΜΕΝΕΣ.XLS" 4. Επιλέγουμε ένα υπάρχον φύλλο και καθαρίζουμε όλα τα κελιά ή δημιουργούμε ένα νέο. 5. Στο παράθυρο της Visual Basic (αν δεν το βρίσκετε ακολουθήστε τις οδηγίες του βήματος 2) πατάμε {F5}, στη λίστα των μακροεντολών επιλέγουμε την εντολή "Prepare Sheet" και πατάμε [Run]. 6. Για κάθε σημείο : Εισάγουμε το όνομα του σημείου, τις συντεταγμένες Χ και Υ και το υψόμετρο Ζ του σημείου προσέχοντας τα εξής: α. Το όνομα του σημείου στην 1η στήλη "Α/Α", η συντεταγμένη Χ στη 2η στήλη "Χ", η συντεταγμένη Υ στη 3η στήλη "Υ", το υψόμετρο Ζ στη 4η στήλη "Ζ" β. Το 1ο σημείο θα εισαχθεί στη 2η σειρά του φύλλου ακριβώς κάτω από τις κεφαλίδες "Α/Α, Χ, Υ, Ζ". γ. Τα σημεία θα μπούν το ένα κάτω από το άλλο χωρίς ενδιάμεση κενή γραμμή γιατί ο αλγόριθμος ελέγχει από πάνω προς τα κάτω αν υπάρχει κάτι στο 1ο κελί της σειράς. Αν βρει κάποιο κελί κενό σταματάει. 7. Αποθηκεύουμε το αρχείο στο φάκελο που θέλουμε. Αυτό είναι πολύ βασικό γιατί το dxf αρχείο θα δημιουργηθεί στο φάκελο που είναι αποθηκευμένο και το αρχείο excel. 8. Στο παράθυρο της Visual Basic πατάμε {F5} και στη λίστα των μακροεντολών επιλέγουμε την εντολή "CreateDXF" και πατάμε [Run]. Το αρχείο DXF που θα δημιουργηθεί θα έχει όνομα "SCETCH.DXF" και θα περιέχει 3 LAYERS. Το LAYER "PNT" το οποίο περιέχει τα σημεία μας, το LAYER "ΤΧΤ" το οποίο περιέχει σε μορφή κειμένου τα ονόματα των σημείων και το LAYER "HGT" το οποίο περιέχει σε μορφή κειμένου το υψόμετρο των σημείων. Επειδή οι 3 καταχωρήσεις (PNT, TXT, HGT) πέφτουν η μία πάνω στην άλλη προτείνω, πριν ξεκινήσετε να δουλεύετε στο DXF, να αλλάξετε τα χρώματα των LAYERS από το Layers Properties Manager καθώς και να μετακινήσετε τα περιεχόμενα του LAYER "HGT" κατά 0.20 drawing units προς τα κάτω. Για να εκτελέσετε την εντολή [Move] ταυτόχρονα σε όλα τα στοιχεία του LAYER "HGT" χρησιμοποιήστε την εντολή Quick Select από το menu [Tools] και επιλέξτε Properties--> Layer --> Value="HGT". ΣΗΜΕΙΩΣΗ 1 : Οι μακροεντολές "Prepare Sheet" και "CreateDXF" εκτελούνται ΠΑΝΤΑ στο φύλλο που είναι ενεργό τη στιγμή που πατάμε το [Run]. Αυτό σημαίνει ότι μπορούμε να έχουμε πολλά φύλλα με διαφορετικές συντεταγμένες το καθένα στο ίδιο αρχείο excel και να φτιάξουμε διαφορετικά αρχεία DXF από το ίδιο βιβλίο excel. Επειδή όμως το αρχείο DXF αποθηκεύεται ΠΑΝΤΑ με το ίδιο όνομα "SCETCH.DXF" θα πρέπει να μετονομάζουμε κάθε DXF που δημιουργούμε πριν εκτελέσουμε πάλι την "CreateDXF". ΣΗΜΕΙΩΣΗ 2 : Τα σημεία στο DXF τοποθετούνται στο επίπεδο Ζ που δίνουμε σαν υψόμετρο. Αν θέλετε να τοποθετούνται όλα στο επίπεδο Ζ=0 (ανεξάρτητα από το τι λέει το υψόμετρο στο LAYER "HGT") αλλάξτε στον κώδικα το Ζ$ με το "0" όπως το περιγράφει στα σχόλια (κείμενο με πράσινα γράμματα στο Visual Basic Editor).
  3. Version 3.0

    1.013 downloads

    Υπολογισμός ημερομηνίας λήξης οικοδομικής άδειας με βαση τους Ν.4067/2012, Ν.4258/2014, Ν.4368/2016. Βάζουμε την ημερομηνία έκδοσης της οικοδομικής άδειας στο κελί με τα κόκκινα γράμματα και από κάτω υπολογίζεται η ημερομηνία λήξης με βάση τις παρατάσεις των αντίστοιχων νόμων. ΠΡΟΣΟΧΗ!!! Ελέγχετε πάντα το αποτέλεσμα με βάση το κείμενο των νόμων.
  4. Οντως δε δουλεύει σε openoffice. To openoffice δεν έχει ενσωμετωμένη τη VBA αλλά έχει μια άλλη έκδοση της Basic η όποια έχει ομοιότητες με τη VBA του ofiice αλλά δυστυχώς και αρκετές διαφορές. Για δοκίμασε τις οδηγίες αυτού του link : https://help.libreoffice.org/Calc/User-Defined_Functions Περιγράφει πως μπορείς να φτιάξεις δικές σου συναρτήσεις ή να εισάγεις συναρτήσεις από άλλο αρχείο στο LibreOfiice Calc.Ισχύει για το LibreOffice αλλά πιστεύω ότι θα δουλεύει και στο openoffice.
  5. 1.385 downloads

    1. Αποσυμπιέστε το αρχείο grammiki_paremvoli.zip 2. Ανοίξτε ένα αρχείο του excel (παλιό ή καινούριο). 3. Ανοίξτε το Visual Basic Editor και από το μενού "File" επιλέξτε το "Import file" 4. Εισάγετε το αρχείο "grammiki_paremvoli.bas" Απο εδώ και πέρα η συνάρτηση "Γραμμική_Παρεμβολή" είναι διαθέσιμη ως συνάρτηση του excel στην κατηγορία "Συναρτήσεις χρήστη". Την ίδια διαδικασία ακολουθείτε σε οποιοδήποτε αρχείο του excel παλιό ή νέο θέλετε να χρησιμοποιήσετε τη συνάρτηση. Για οποιαδήποτε διευκρίνηση ή παρατήρηση : [email protected]
  6. Το θέμα δεν είναι να μας πει κάποιος τη γνώμη του αλλά να μας απαντήσουν υπεύθυνα από το ΤΕΕ ή το ΥΠΕΚΑ. Προσωπικά έχω δοκιμάσει και με τους δύο και με e-mail και με το τηλέφωνο. Το e-mail το έστειλα πριν από 10 μέρες και στο τηλέφωνο δεν μπορώ να βγάλω γραμμή. Ακόμα καμμια απάντηση έστω από το e-mail.
  7. Η παραπάνω παράταση αφορά τα νησιά πλην Εύβοιας - Κρήτης. Οπότε για εμάς τους υπόλοιπους δεν ισχύει. Εν τω μεταξύ παρατήρησα ότι όσες αιτήσεις βρίσκονται σε αρχική υποβολή στο σύστημα, ακόμα και αν έχει πληρωθεί το παράβολο, δεν έχουν ούτε αριθμό πρωτοκόλλου ούτε ηλεκτρονικό αριθμό. Ο αριθμός πρωτοκόλλου και ο ηλεκτρονικός αριθμός δίνονταιαι μόνο αφού καθορισθεί ο τρόπος πληρωμής του προστίμου και η αίτηση μεταβεί σε κατάσταση "προσωρινή υπαγωγή". Μήπως λοιπόν από τη στιγμή που μπαίνει σε προσωρινή υπαγωγή και μετά θεωρείται ότι έχει κατατεθεί;
×
×
  • Create New...

Σημαντικό

Χρησιμοποιούμε cookies για να βελτιώνουμε το περιεχόμενο του website μας. Μπορείτε να τροποποιήσετε τις ρυθμίσεις των cookie, ή να δώσετε τη συγκατάθεσή σας για την χρήση τους.