chrispan

Στο cell Α1 = "δοκιμή διαχωρισμού κειμένου με διαφορετικό διαχωριστικό π.χ. - ή / ή οτιδήποτε"

εντολή 

Separator(A1;1) = δοκιμή

Separator(A1;2) = διαχωρισμού

Separator(A1;2;"-") = - ή / ή οτιδήποτε

Σε ένα module γράφουμε τον παρακάτω κώδικα

Function Separator(strCell As String, NumWord As Long, Optional Sep As String = " ") As String
 Dim a As Integer, b As Integer, Kena As Long
 Dim Start(1 To 15) As Long, Leght(1 To 15) As Long
 
 For b = 1 To 15
    Start(b) = 1
    Leght(b) = 1
 Next b
 strCell = TrimAll(strCell)
 Kena = CountIn(strCell, Sep)
 
 For a = 1 To Kena + 1
    If a = 1 Then
        Start(1) = 0
        Leght(1) = InStr(1, strCell, Sep, vbBinaryCompare)
    Else
        Start(a) = InStr(Start(a - 1) + 1, strCell, Sep, vbBinaryCompare)
        If InStr(Start(a) + 1, strCell, Sep, vbBinaryCompare) = 0 Then
            Leght(a) = Len(strCell) - Start(a) + 1
        Else
            Leght(a) = InStr(Start(a) + 1, strCell, Sep, vbBinaryCompare) - Start(a)
        End If
    End If
 Next a
 
 If NumWord = 1 Then
 Separator = (Left$(strCell, Leght(1)))
 Else
 Separator = (Mid$(strCell, Start(NumWord), Leght(NumWord)))
 End If
 'Separator = Leght(NumWord)
 End Function
 
Function TrimAll(ByVal strInput As String, _
 Optional blnRemoveTabs As Boolean = True) As String
 Const conTowSpace = "  "
 Const conSpace = " "
 strInput = Trim$(strInput)
 If blnRemoveTabs Then
    strInput = Replace(strInput, vbTab, conSpace)
 End If
 Do Until InStr(strInput, conTowSpace) = 0
    strInput = Replace(strInput, conTowSpace, conSpace)
 Loop
 TrimAll = strInput
 End Function

 Function CountIn(strText As String, strFind As String, _
 Optional lngCompare As VbCompareMethod = vbBinaryCompare) As Long
 Dim lngCount As Long
 Dim lngPos As Long
 If Len(strFind) > 0 Then
    lngPos = 1
    Do
        lngPos = InStr(lngPos, strText, strFind, lngCompare)
        If lngPos > 0 Then
            lngCount = lngCount + 1
            lngPos = lngPos + Len(strFind)
        End If
    Loop While lngPos > 0
 Else
    lngCount = 0
 End If
 CountIn = lngCount
 End Function

split data from one cell to multiple cells.xlsm

Αν το υπόγειο είναι όλο μέσα στο έδαφος και έχει ένα μπάνιο και μιά κουζίνα

μπορεί να κάνει αλλαγή χρήσης σε κατοικία (κύρια χρήση) ;

κτιριοδομικός άρθρο 2 παρ. 3

Χώροι κύριας χρήσης των κτιρίων είναι όσοι προορίζονται για την παραμονή σε κανονικές συνθήκες λειτουργίας, ατόμων (έστω και ενός) επί δύο τουλάχιστον ώρες το 24ωρο.

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

κτιριοδομικός άρθρο 11 παρ. 1.4 & 2

1.4. Η απαίτηση φυσικού αερισμού για τους χώρους κύριας χρήσης των κατοικιών ισχύει, έστω και αν υπάρχει εγκατάσταση τεχνητού αερισμού.

2. Οπωσδήποτε άμεσο φυσικό φωτισμό και αερισμό πρέπει να έχουν οι χώροι κύριας χρήσης των κατοικιών και τα υπνοδωμάτια των κτιρίων προσωρινής διαμονής.

Σε win 7 με autocad2011 64bit δουλεύει τέλεια

Μια παρατήρηση μόνο όταν κάνεις save σου βγάζει

Path/File access error (Run-Time Error '75')

Αυτό πρέπει να οφείλεται στο ότι η πρόσβαση για εγγραφή στο κατάλογο

C:\Program Files\AutoCAD 2010\pinopl

ή

C:\Program Files\Autodesk\AutoCAD 2011\pinopl

θέλει άδεια διαχειριστή.

Θα πρότεινα να διορθωθεί αυτό με δυνατότητα αποθήκευσης σε άλλο κατάλογο

ή με common dialog μπορείς να εμφανίσεις παράθυρο saveas με tree

Σήμερα υπάρχει το Σχέδιο Νόμου μαζί με την αιτιολογική έκθεση στη βουλή

__________________

http://anendoto.blogspot.com

Αυτό σε ποιο άρθρο ρυθμίζεται;

άρθρο 9 παράργαφος 4

Δεν προσμετρώνται στον σ.δ.

«η) οι στεγασμένοι ανοικτοί χώροι στάθμευσης αυτοκινήτων που κατασκευάζονται στο ισόγειο του κτιρίου ή στην πυλωτή καθώς και οι κλειστοί χώροι στάθμευσης αυτοκινήτων που κατασκευάζονται σε υπόγειους ορόφους»

__________________

http://anendoto.blogspot.com

Δυστυχώς είναι ένα πολύ κακογραμμένο κείμενο που σίγουρα δεν είναι σε μορφή νόμου.

Διαβάζοντας το σου δημιουργούνται πάρα πολλές απορίες.

πχ

- Δεν νομιμοποιεί τις υπερβάσεις δόμησης, αλλά επιτρέπει με καταβολή ειδικού προστίμου πράσινης χρήσης για 40 χρόνια την διατήρηση ημιυπαίθριων χώρων, καθώς και χώρων που βρίσκονται στο υπόγειο, ισόγειο ή άλλη στάθμη του κτιρίου, οι οποίοι βρίσκονται εντός του "νόμιμου ;;; κτιριακού όγκου βάσει οικοδομικής άδειας ;;;;".

Ελπίζω μέχρι την τελική του μορφή να το επεξεργαστούν περισσότερο.

Κατά τα άλλα έχει κάποια καινοτόμα σημεία που είναι θετικά.

- Ορίζει διαδικασία ελέγχου κατασκευής των κτιρίων - Ταυτότητα Κτιρίου.

- Ορίζει Περιβαλλοντικό ισοζύγιο και αντισταθμιστικά μέτρα αποκατάστασης του περιβάλλοντος.

Διορθώνει τα προβλήματα του άρθρου 40 & 41

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

- Επιτρέπει την επέκταση υπογείων για θέσεις στάθμευση.

- Επαναφέραι τα υπόγεια στο 1.50 μ.

Και τέλος ευτυχώς Επαναφέρει σε ισχύ το άρθρο 4 του ν. 3212/2003 και όχι το άρθρο 5.

Μήπως γνωρίζει κανείς αν όντος και ποιό κείμενο τελικά κατατέθηκε στην βουλή ;

__________________

http://anendoto.blogspot.com

Αυτό που γράφει στον πίνακα τη παραγράφου 2 "Δεν προσμετρούνται οι υπόγειοι χώροι στάθμευσης στον συντελεστή δόμησης." πρέπει να το δούμε με την κατάργηση της αλλαγής του ΓΟΚ στο άρθρο 7 παράγραφος (1) του εδαφίου (Β) περίπτωση (η) που είχε κάνει το άρθρο 41 του Ν.3775 (ΦΕΚ. 122/21-7-2009) «η) οι υπέργειοι στεγασμένοι ανοικτοί χώροι στάθμευσης επιβατικών αυτοκινήτων που κατασκευάζονται στο ισόγειο του κτιρίου ή στην Πυλωτή»

όσο για το "Καταργείται η βύθιση των υπογείων." πρέπει να αλλάξει το «β) εφόσον η οροφή του σε κανένα σημείο δεν υπερβαίνει τα 0,80 μ. από την οριστική στάθμη του εδάφους » της περίπτωσης (β) σε 1.50 μ.

Το βασικό πρόβλημα που παρατηρώ στο Ενημερωτικό σημείωμα σχεδίου νόμου Αυθαίρετες Υπερβάσεις Δόμησης

είναι αυτό που αναφέρεται στην παράγραφο 1. Βασικά σημεία νομοσχεδίου στο τελευταίο εδάφιο "Επαναφέρει σε ισχύ το άρθρο 5 του ν.3212/2003 για τις κυρώσεις σε περίπτωση κατασκευής αυθαιρεσιών στους κυρίους, εργολάβους ή μηχανικούς."