GiorgosKal

Ανακοίνωση της Π.Α.Ε. Π.Α.Ο.Κ.: "....ΑΚΑΤΑΛΛΗΛΟ το νερό του Άρη..."

Πως για; Αυτό, το βλέπεις και με iφον. Τι στο καλο μελετες ειναι αυτες...... Καλα πηρε GPS το πανεπιστημιο και επιασε τον.... Ασιμο απο το Αμεστερνταμ..... Μερικες φορες δεν καταλαβαινω τις ειδησεις

Να κανω και γω μια ερωτηση (αν εχει τυχει σε καποιον συναδελφο) Για αποθηκη (λιθοκτιστη 15 τ.μ.) μου ζητουν συμβουλιο αρχιτεκτονικης (σαν ειδικο κτιριο) Γνωριζει κανεις τι συμβαινει και ποια η εννοια της ΕΕΜΚ; Στο Σ.Α. θα χρειαστουν οψεις και ΔΔ το οποιο δεν απειται στην ΕΕΜΚ. Και τελος, ο νομος λεει για κλιμακα σεχδιων 1:100. Για αποθηκη 3x5 μ. θα βγαλουμε τα ματια...

Πως ειπατε; ΜΚΟ Nabu ΜΚΟ; Δεν το καταλαβα καλα... Σα να λεμε αποναρκοθετηση στη Σελήνη;

Ανοίγω στον Όλυμπο παρκο με θαλάσσια φουσκωτά...

Μιλάμε για ενημέρωση τώρα,ε!

Και με το MOBAC μπορεις κατεβασεις G.E. εικόνες

Για δες αυτό φλ-ΧΥΖ...xls

Για να μην ειμαi off topic Το θεμα ειναι: Hepos και ιδιωτικά δίκτυα σταθμών αναφοράς - Λειτουργία, κόστος και προσφερόμενες υπηρεσίες Πέρα απο την ακρίβεια που μπορεί να έχει το κάθε δίκτυο (για μένα σωστότερο -οχι επιστημονικά ορθότερο- είναι αυτό που λέει ο δικαστής....), να ρωτήσω κι εγώ (χωρίς να γνωρίζω ιδιαίτερα) μιας και δουλέυω σε ζευγος to GPS. Μπορεί να μου απαντήσει κάποιος, γιατί σε κωμόπολη της Κοζάνης (δε μιλώ για "εντελώς" ορεινή περιοχή), ήρθε συνάδελφος με δύο κάρτες SIM (διαφορετικές εταιρίες) για να παρει μετρήσεις με το Χ δίκτυο και ξαναήρθε την επομένη με τρίτη καρτα SIM γιατι κάτι δεν του πηγε καλα στις μετρησεις; Και ποιο το κόστος που πληρωσε στις εταιριες κινητης; Και τι συμβαίνει όταν θα είναι αυτός ο συνάδελφος στην άκρη της άκρης; (έχουμε πολλές στην Κοζάνη) Οπως λεγεται άλλο θεωρία και άλλο πράξη. Επειδη όπως προείπα δεν γνωρίζω και πολλά, αν δε χρειάζεται κινητη τηλεφωνία σε Hepos και ιδιωτικά δίκτυα σταθμών αναφοράς τότε προσπεράστε το σχόλιο

Για δες αυτό: (δεν ειμαι σίγουρος..) > PROJCS["Lambert_Conformal_Conic",GEOGCS["GCS_Geographic Coordinate System",DATUM["D_SPHERE_CLARKE_1866_AUTHALIC",SPHEROID["Sphere_Radius_6370997_m",6370997,0]],PRIMEM["Greenwich",0],UNIT["Degree",0.017453292519943295]],PROJECTION["Lambert_Conformal_Conic"],PARAMETER["scale_factor",1],PARAMETER["standard_parallel_1",30],PARAMETER["standard_parallel_2",50],PARAMETER["central_meridian",0],PARAMETER["latitude_of_origin",0],PARAMETER["false_easting",0],PARAMETER["false_northing",0],UNIT["Meter",1]]

Συμφωνώ με τον ΙΑΣΟΝΑΣ. Δεν κατάλαβαίνω γιατί ο δικηγόρος σου είπε διαφορετικά. Το ακίνητο έχει μοναδικό αριθμό. Εαν το ίδρυμα αναθέσει σε άλλον μηχανικό μία αντίστοιχη βεβαίωση, θα πάρει άλλον αριθμό το ακίνητο;; Πιστέυω ότι πρέπει (μετά την αποδοχή κληρονομιάς του 75 % από το ίδρυμα) να βάλεις και το ίδρυμα στους ιδιοκτήτες Το θέμα είναι (όπως είχαμε πει και σε αλλο thread), τι γίνεται εάν δεν τους ξέρεις τους υπόλοιπους συνιδιοκτήτες;;;;

Αν φορτωσεις την ********.AcadStartup νομιζω φορτωνει το μενου (ολες δηλαδη)

Στην τελική βρες το αρχειο *.dvb του DCAD και φόρτωσε το χειροκίνητα (Load Application) και κατόπιν εκτέλεσε της εντολες από macro

Δεν είναι θέμα συναίνεσης. Το θέμα είναι ότι δε γνωρίζουμε καν τον συνιδιοκτήτη. Υποχρεούμαστε να τον βρούμε; Στο παράδειγμα : ΠΑΠΑΝΑΣΤΑΣΙΑΚΟΣ Χ με ποσοστό 50% και ΑΦΜ 000000000 Manolis gon Είσαι σίγουρος ότι αναφερεται στη βεβαίωση, αυτός ο μοναδικός αριθμός;

Το link γαι το DCAD 0.7 http://www.michaniko...?do=file&id=468 Χρησιμοποίησε το προγραμμα που ραπορταρεις (πχ. ezysurf) και βαλτε αντί για α/α (ID) τα υψόμετρα σου. Ή χρησιμοποίησε αυτό: http://www.michanikos.gr/old/downloads.php?do=file&id=1110

Τι δεν καταλαβαίνεις; Δεν μιλάω για τακτοποίηση Απλά όπως λέει και το θέμα "Με τα εξ' αδιαιρέτου τι γινεται;" Και ρωτάω απλά... Αν δώσεις βεβαιωση αδομητου αγροτεμαχίου, "Με τα εξ' αδιαιρέτου τι γινεται;" ? Διότι το κάθε αγροτεμάχιο έχει μοναδικό αριθμό στο σύστημα.... Μπορείς να δώσεις βεβαίωση με μοναδικό αριθμό για μερίδιο αγροτεμαχίου ή πρέπει να δώσεις βεβαίωση για όλο το αγροτεμάχιο. Και αν ισχύει το δεύτερο "έλα βρες μου τον συνιδιοκτήτη..."

Εριξα μια γρηγορη ματια στο topic αλλά δεν βρήκα κάτι παρόμοιο... Προκειται για απλή βεβαίωση αδόμητου αγροτεμαχίου. Αν έχουμε συνιδιοκτήτες πχ. Ο Α έχει 60 % και ο Β έχει 40 %. Ας πούμε ότι γνωρίζουμε ποιος είναι ο Α αλλά δεν ξέρουμε τον Β. Ο Α έρχεται και μου ζητάει βεβαίωση για να πουλησει το μερίδιό του. Τι κάνουμε; Ψάχνουμε το Β και να μας δώσει να στοιχεία του να τα βάλουμε μεσα στη φόρμα των δηλώσεων; Ή πιο εύκολα βάζουμε τον Α με ποσοστό 100%, αλλά γράφουμε στα σχόλια ότι είναι ιδιοκτήτης 100% στο μερίδιο του ("μπούρδα" μου ακούγεται!); Και πιο πολύπλοκο, αν έχει φύγει από τη ζωή ο Β πρέπει να βρούμε τους κληρονόμους και "πάει λέγοντας"; Και ολα αυτα για μία απλή βεβαίωση... Έτυχε σε κάποιον συνάδελφο κάτι παρόμοιο;

Ριξε μια ματιά εδώ: http://earth-info.nga.mil/GandG/wgs84/gravitymod/egm2008/egm08_wgs84.html http://dds.cr.usgs.gov/srtm/version2_1/SRTM3/Eurasia/

Το πιο απλο πρώτα: Μήπως δεν εχεις τις επεκτάσεις να φαίνονται στα windows; Πίνακας ελέγχου -> Επιλογες φακέλων -> Προβολή Αποεπιλέγεις -> "Απόκρυψη επεκτάσεων για γνωστούς τύπους αρχείων" ---------------------------------------------------------- Επισυνάπτω και ένα αρχειάκι *.vlx για εξαγωγή world file: Tools Load Application Επιλεγεις το αρχειο GeoRefImg.VLX Load Γραφεις την εντολη WORLDOUT Αποθηκευεις όπυ θέλεις το αρχείο της γεωαναφοράς GeoRefImg.rar

GPSMapEdit drag n drop GreeceContours.img Save Map As Polish Format (*.mp) Global Mapper drag n drop GreeceContours.mp Configuration-> Projection Greek Grid Export vector format (shp) Τι ακριβειας ειναι ο χαρτης;

Για το "απλό" AutoCad υπάρχει αυτό το lispακι Tools->AutoLisp->Load Application Επιλεγεις το iraster.lsp Κατοπιν γραφεις στη γραμμή εντολών Command Line: iraster Και επιλεγεις το αρχειο που θες Αν δε διαβαζει το *.jgw απλά μετονόμασέ το σε *.tfw Edit Δεν ανεβαίνει το αρχείο οπότε ο κωδικας είναι: > ; Εισάγει μία εικόνα raster στο Autocad σύμφωνα με τα στοιχεία του βοηθητικού αρχείου *.tfw (Defun Image_Input (Name_tiff / Init_point1 Path_Image_Name Image_Name dt Xpix Ypix Xcoor Ycoor txt ss1 fact emax ed en et dxf10_1 dxf10_2 dxf10_3 dxf13_1 dxf12_2 dxf11_3 dxf12_1 dxf12_2 dxf12_3 Xsize Ysize count nname Detach_Name New_dxf_10 New_dxf_11 New_dxf_12 User_Sel Calc_Coef) ;Ελεγχος για την ύπαρξη του αρχείου εικόνας (if (findfile Name_tiff) ;if 1 (progn ; progn1 (setq Init_point1 (list 0.0 0.0) Name_tiff_length (strlen Name_tiff) Path_Image_Name (substr Name_tiff 1 (- Name_tiff_length 4)) Name_tfw (strcat Path_Image_Name ".tfw") );setq ;Ελεγχος για την ύπαρξη του βοηθητικού αρχείου tfw (if (findfile Name_tfw) ;if 2 (progn ; progn 2 (setq txt (open Name_tfw "r") Xpix (abs (atof (read-line txt))) dt (read-line txt) dt (read-line txt) Ypix (abs (atof (read-line txt))) Xcoor (atof (read-line txt)) Ycoor (atof (read-line txt)) count (- Name_tiff_length 4) ) ;setq (while (not (eq "\\" (substr Name_tiff count 1))) (setq count (- count 1)) ) ;while (setq Detach_Name (substr Name_tiff (+ count 1) (- (- Name_tiff_length 4) count))) ; Ελεγχος ύπαρξης εικόνας με το ίδιο όνομα στο αρχείο Autocad (if (dictsearch (namedobjdict) "ACAD_IMAGE_DICT") (if (dictsearch (cdar (dictsearch (namedobjdict) "ACAD_IMAGE_DICT")) Detach_Name) (command "-image" "d" Detach_Name) ); if );if (command "-image" "a" Name_tiff Init_point1 1 0) (princ "Επεξεργασία σε εξέλιξη ....") (progn (setq en (entlast) ed (entget en) et (cdr (assoc 0 ed)) ) ; setq (if (= et "IMAGE") (setq dxf10_1 (cadr (assoc 10 ed)) ;X Insertion point dxf10_2 (caddr (assoc 10 ed)) ;Y Insertion point dxf10_3 (cadddr (assoc 10 ed)) ;Z Insertion point dxf11_1 (cadr (assoc 11 ed)) ;U-vector of a single pixel - 2st list element dxf11_2 (caddr (assoc 11 ed)) ;U-vector of a single pixel - 3st list element dxf11_3 (cadddr (assoc 11 ed)) ;U-vector of a single pixel - 4st list element dxf12_1 (cadr (assoc 12 ed)) ;V-vector of a single pixel - 2st list element dxf12_2 (caddr (assoc 12 ed)) ;V-vector of a single pixel - 3st list element dxf12_3 (cadddr (assoc 12 ed)) ;V-vector of a single pixel - 4st list element Xsize (abs (cadr (assoc 13 ed))) ;Number of image pixels X Ysize (abs (caddr (assoc 13 ed))) ;Number of image pixels Y ) ;setq ) ;if (setq X_Scale_Fac (/ Xpix dxf11_1)) (setq Y_Scale_Fac (/ Ypix dxf12_2)) ) ;progn (setq New_dxf_10 (list Xcoor (- Ycoor (* Ysize Ypix) 0.0)) New_dxf_11 (list Xpix (* dxf11_2 X_Scale_Fac) (* dxf11_3 X_Scale_Fac)) New_dxf_12 (list (* dxf12_1 Y_Scale_Fac) Ypix (* dxf12_3 Y_Scale_Fac)) ) ;setq (setq ed (subst (cons 10 New_dxf_10) (assoc 10 ed) ed)) (entmod ed) (setq ed (subst (cons 11 New_dxf_11) (assoc 11 ed) ed)) (entmod ed) (setq ed (subst (cons 12 New_dxf_12) (assoc 12 ed) ed)) (entmod ed) (command "zoom" "e") (close txt) ) ;progn 2 ;else if 2 (progn (alert (strcat " ====> ΔΙΑΚΟΠΗ ΠΡΟΓΡΑΜΜΑΤΟΣ <====\n\n\n - Δεν υπάρχει το βοηθητικό αρχείο ορισμού εικόνας: " Name_tfw)) (prompt (strcat "Δεν υπάρχει το βοηθητικό αρχείο: " Name_tfw)) (exit) );progn );if 2 ) ;progn 1 ;else if 1 (progn (alert (strcat " ====> ΔΙΑΚΟΠΗ ΠΡΟΓΡΑΜΜΑΤΟΣ <====\n\n\n - Δεν υπάρχει το αρχείο εικόνας: " Name_tiff "\n\n - Ελέγξτε τα στοιχεία του αρχείου ASCII: " ASCII_File_Name)) (prompt (strcat "Δεν υπάρχει το αρχείο εικόνας " Name_tiff)) (exit) );progn );if 1 ) ; ;==================================================================================================== ; IRASTER κάνει εισαγωγή μίας εικόνας raster στο σωστό σημείο εισαγωγής και με σωστή κλίμακα η οποία ; υπολογίζεται από τα στοιχεία του αρχείου .TFW, το οποίο απαιτείται να συνοδεύει την εικόνα raster ; ΕΚΔΟΣΗ 3.0 - [30-12-2004] ; (Eκδοση 2.0 [30-12-2004] η εισαγωγή του αρχείου εικόνας raster γίνεται από dialog box ; (Eκδοση 2.1 [9-1-2005] γίνονται οι ακόλουθοι πρόσθετοι έλεγχοι: ; - Ελεγχος ύπαρξης του βοηθητικού αρχείου συντεταγμένων tfw ; - Εάν έχει ήδη προηγούμενα εισαχθεί στο αρχείο Autocad εικόνα με το ίδιο όνομα τότε γίνεται ; detach η παλιά εικόνα και εισάγεται στη θέση της η νέα εικόνα ; (στην έκδοση 3.0 σώζεται το path στην registry των Windows (SOFTWARE\LAB)) ;==================================================================================================== (Defun C:IRASTER (/ Init_point1 Path_Image_Name Image_Name dt Xpix Ypix Xcoor Ycoor ss1 fact emax ed en et dxf10_1 dxf10_2 dxf10_3 dxf13_1 dxf12_2 dxf11_3 dxf12_1 dxf12_2 dxf12_3 Xsize Ysize count nname Y_Scale_Fac Detach_Name New_dxf_10 New_dxf_11 New_dxf_12 User_Sel Calc_Coef ASCII_File_Name Wbl_Path Input_txt Count_Wbl_Path ed elast ed en Temp_Path Count_All_Images Registry_Val) (alert " ====== Ρουτίνα IRASTER ver 3.0 ======\n\nΤο πρόγραμμα υποστηρίζει την εισαγωγή όλων των τύπων αρχείων εικόνας, που υποστηρίζει το Autocad\n\nΕφόσον επιλέξετε για τις εικόνες raster ΜΑΖΙΚΗ ΔΗΜΙΟΥΡΓΙΑ αρχείων dwg (επιλέγοντας <File> σε σχετικό ερώτημα της ρουτίνας) τότε θα πρέπει προηγούμενα να έχετε δημιουργήσει ένα ASCII αρχείο με όλα τα ονόματα των αρχείων των εικόνων raster\n\n\Το προηγούμενο αρχείο ASCII θα πρέπει να βρίσκεται ΥΠΟΧΡΕΩΤΙΚΑ στο ίδιο directory με τις εικόνες raster που επιθυμούμε να επεξεργασθούμε\n\n\n(Πατώντας ΟΚ το πρόγραμμα θα συνεχισθεί κανονικά)" ) (initget "One File") (if (not (setq User_Sel (getkword "Επιλέξτε εισαγωγή μίας μόνο εικόνας ή μαζική εισαγωγή από αρχείο ASCII:\nOne/File <One>: "))) (setq User_Sel "One")) (if (= "One" User_Sel) (progn (if (not (setq Registry_Val (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\LABROS\\IRASTER" "IMAGE"))) (setq Name_tiff (getfiled "Επιλέξτε το αρχείο της εικόνας raster" "" "tif;jpg;bmp;gif" 0)) (setq Name_tiff (getfiled "Επιλέξτε το αρχείο της εικόνας raster" (strcat Registry_Val "\\") "tif;jpg;bmp;gif;*" 0)) ); (vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\LABROS\\IRASTER" "IMAGE" (vl-filename-directory Name_tiff)) (if (= Name_tiff nil) (progn (prompt "\nΔεν επιλέχθηκε αρχείο !!!\n") (alert "ΔΙΑΚΟΠΗ ΠΡΟΓΡΑΜΜΑΤΟΣ γιατί δεν επιλέχθηκε αρχείο εικόνας raster") (exit) ) ;progn ) ;if (Image_Input Name_tiff) ; υπορουτίνα εισαγωγής εικόνας (setq Calc_Coef (strcat "Επιτυχής ολοκλήρωση εισαγωγής της εικόνας\nΟ συντελεστής κλίμακας του <" Name_tiff "> είναι: " (rtos X_Scale_Fac))) (alert Calc_Coef) (print Calc_Coef) (princ) ) ;progn ;else if (progn (if (not (setq Registry_Val (vl-registry-read "HKEY_CURRENT_USER\\SOFTWARE\\LABROS\\IRASTER" "ASCII_INPUT"))) (setq ASCII_File_Name (getfiled "Επιλέξτε το αρχείο ASCII μαζικής εισαγωγής εικόνων" "" "txt;*" 0)) (setq ASCII_File_Name (getfiled "Επιλέξτε το αρχείο ASCII μαζικής εισαγωγής εικόνων" (strcat Registry_Val "\\") "txt;*" 0)) ); (vl-registry-write "HKEY_CURRENT_USER\\SOFTWARE\\LABROS\\IRASTER" "ASCII_INPUT" (vl-filename-directory ASCII_File_Name)) (if (= ASCII_File_Name nil) (progn (prompt "\nΔεν επιλέχθηκε αρχείο !!!\n") (alert "Διακοπή προγράμματος γιατί ΔΕΝ ΕΠΙΛΕΧΘΗΚΕ αρχείο μαζικής εισαγωγής εικόνων raster" ) (exit) ) ;progn ) ;if (print ASCII_File_Name) (setq Temp_Path (strcat (Get_Path ASCII_File_Name) "ΜΗΝ ΔΩΣΕΤΕ κάποιο αρχείο εδώ")) (setq Wbl_Path (getfiled "Επιλέξτε το directory αποθήκευσης των αρχείων DWG εικόνων raster" Temp_Path "" 1)) (if (= Wbl_Path nil) (progn (prompt "\nΔεν επιλέχθηκε directory !!!\n") (alert "Διακοπή προγράμματος γιατί ΔΕΝ ΕΠΙΛΕΧΘΗΚΕ directory δημιουργίας των αρχείων DWG για κάθε μία εικόνα raster" ) (exit) ) ;progn ) ;if (setq Wbl_Path (Get_Path Wbl_Path) Input_txt (open ASCII_File_Name "r") Count_All_Images 0 ) ;setq (while (setq dt (read-line Input_txt)) (Image_Input (strcat (Get_Path ASCII_File_Name) dt)) ; υπορουτίνα εισαγωγής εικόνας (command "wblock" (strcat Wbl_Path dt) "*") (setq ed (entget (entlast)) elast (last ed) en (cdr (assoc -1 ed)) Count_All_Images (+ Count_All_Images 1) ) ;setq (entdel en) ) ;while (alert (strcat "Ολοκληρώθηκε με επιτυχία η δημιουργία " (itoa Count_All_Images) " αρχείων DWG από τις εικόνες του αρχείου " ASCII_File_Name)) (princ) ) ;progn else if ) ) Κάνε απόθηκευση σε ενα txt αρχειο με την κατάληξη *.lsp

Off topic kasvan Δηλαδή δεν κανει τηλέφωνο με android? Α ρε και τώρα με την επιδότηση είπα να πάρω τέτοιο (πιο φθηνό!)

Απλη καταγραφή έγινε απο το Υπ Γ.(δηλ "πήρε" αριθμο).Δεν εχει τιτλο ιδιοκτησιας (οπως τα κληροτεμάχια). Άρα πρεπει να αποδείξει ότι είναι δικό του!!! Εστω ότι ειναι οκ με το ιδιοκτησιακό. Εφόσον και η διανομη το αναφέρει ως "ιδιόκτητο δάσος" αρα ξεχναμε το θέμα αγρού. Και να ειναι ιδιωτικό πρέπει κάθε ένα δέντρο που κόβεται να έχει την έγκριση του δασαρχείου. Αν αυτό δεν έγινε (όταν κόπηκαν τα δέντρα) τότε ειναι παρανομο και διώκεται ποινικά. Αν έγινε κατάτμηση στα 11 στρ. το υπόλοιπο συμπεριφέρεται ως αυτοτελή. Αν έγινε παράνομη κοποή ή όχι. Γενικά ου μπλέξεις. Παρόλα αυτά δε μου χει τύχει να κερδίσει κάποιος όταν βρίσκεται σε αντιδικία με το δασαρχείο

Off Topic Δεν νομιζω οτι ειναι για τους τοπογραφους. Μαλλον για τους πολιτικους ειναι μιας και εχουν υπογραφη και η οικοδομη δεν παει καθολου , μα καθολου, καλα