Daire-mesafe | Forumlar

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Ziyaretçi: 445, Üye: 6
aksoez, HASANKARA33, kilicmcelal, mttlp, ozcemal, ProhibiT

Detaylar »

Forumlar > AutoLISP > Daire-mesafe

Bu başlığı inceleyenler : 1 ziyaretçi, 0 üye : ---

İleti	Yazar
28.10.2010 12:51 60378	kurtsalih Girişimci 24 ileti harita teknikeri istanbul
Merhaba, herkese kolay gelsin. Seçtiğim 2 nokta arasına istediğim aralıkta daireler atarak bu daireleri birleştiren, ara mesafelerini üzerine yazan, daire çapını ve yazı boyunu elle girebileceğim, daire üzerine sıralı numara verebilecek bir lispe ihtiyacım var. ilgilenen arkadaşlara şimdiden teşekkür ederim. Örnek resim aşağıdadır... [URL=http://img838.imageshack.us/i/29676019.jpg/][IMG]http://img838.imageshack.us/img838/5049/29676019.jpg[/IMG][/URL] Uploaded with [URL=http://imageshack.us]ImageShack.us[/URL] Et tırnaktan ayrılmaz dediler; söktüler tırnağı yerinden.. Et acı çekti, tırnak hissetmedi...

01.11.2010 14:51 60426	ProhibiT Yetkili 1611 ileti İnşaat Mühendisi Ankara
Kod: ;;;=====================================================;;; ;;; Hazırlayan: M. Şahin Güvercin 01/11/2010 - Ankara ;;; ;;;=====================================================;;; (defun c:StP () (setvar "cmdecho" 0) (command "undo" "group") (if (= eTxT nil) (setq eTxT (* (getvar "dimtxt") (getvar "dimscale")))) (setq TxT (getreal (strcat "\nYazı Yüksekliği <" (rtos eTxT) ">: "))) (if (= TxT nil) (setq TxT eTxT)) (if (= eRaD nil) (setq eRaD (* 1.5 TxT))) (setq RaD (getreal (strcat "\nÇember Yarıçapı <" (rtos eRaD) ">: "))) (if (= RaD nil) (setq RaD eRaD)) (if (= eNno nil) (setq eNno 1)) (setq Nno (getint (strcat "\nNokta Numarası <" (itoa eNno) ">: "))) (if (= Nno nil) (setq Nno eNno)) (if (= eaRm nil) (setq eaRm (* 10 TxT))) (setq aRm (getreal (strcat "\nAra Mesafe <" (rtos eaRm) ">: "))) (if (= aRm nil) (setq aRm eaRm)) (setq Nk2 (getpoint (setq Nk1 (getpoint "\nBaşlangıç Noktası... ")) "\nBitiş Noktası... ") aCi (angle Nk1 Nk2) MsF (distance Nk1 Nk2) aRmy (rtos aRm) sP Nk1 n 0 aC aCi) (while (>= aC pi) (setq aC (- aC pi))) (if (<= aC (/ pi 2.0)) (setq aC1 (+ aC (/ pi 2.0))) (setq aC1 (- aC (/ pi 2.0)) aC (+ aC pi))) (if (= nil ecnt) (setq ecnt "E")) (initget "E H") (setq cnt (getstring (strcat "\nİlk Noktaya Numarara verilsin mi? [Evet/Hayır] <" ecnt ">: "))) (if (= "" cnt) (setq cnt ecnt)) (setq nKs (atoi (rtos (/ MsF aRm)))) (if (equal (* nKs aRm) MsF 0.000001) (setq bLm "tam") (setq bLm "ksr")) (if (or (= cnt "E") (= cnt "e")) (progn (entmake (list (cons 0 "circle") (cons 10 Nk1) (cons 40 RaD))) (entmake (list (cons 0 "text") (cons 10 (polar Nk1 aC1 (+ RaD TxT))) (cons 40 TxT) (cons 1 (itoa Nno)) (cons 50 aC) (cons 72 4) (cons 11 (polar Nk1 aC1 (+ RaD TxT)))))) (setq Nno (1- Nno))) (while (<= (setq n (1+ n)) nKs) (if (<= (* n aRm) MsF) (progn (setq sP (polar nK1 aCi (* (1- n) aRm)) eP (polar nK1 aCi (* n aRm)) sP1 (polar sP aCi RaD) eP1 (polar sP aCi (- aRm RaD)) n1 (list (/ (+ (car sP) (car eP)) 2.0) (/ (+ (cadr sP) (cadr eP)) 2.0) (/ (+ (caddr sP) (caddr eP)) 2.0)) n1 (polar n1 aC1 (* TxT 1.15)) n2 (polar eP aC1 (+ RaD TxT)) Nno (1+ Nno)) (entmake (list (cons 0 "circle") (cons 10 eP) (cons 40 RaD))) (entmake (list (cons 0 "text") (cons 10 n2) (cons 40 TxT) (cons 1 (itoa Nno)) (cons 50 aC) (cons 72 4) (cons 11 n2))) (entmake (list (cons 0 "line") (cons 10 sP1) (cons 11 eP1))) (entmake (list (cons 0 "text") (cons 10 n1) (cons 40 TxT) (cons 1 aRmy) (cons 50 aC) (cons 72 4) (cons 11 n1)))))) (if (= bLm "ksr") (progn (setq sP (polar nK1 aCi (* (1- n) aRm)) eP (polar nk1 aCi MsF) sP1 (polar sP aCi RaD) eP1 (polar nK1 aCi (- MsF RaD)) n1 (list (/ (+ (car sP) (car eP)) 2.0) (/ (+ (cadr sP) (cadr eP)) 2.0) (/ (+ (caddr sP) (caddr eP)) 2.0)) n1 (polar n1 aC1 (* TxT 1.15)) n2 (polar eP aC1 (+ RaD TxT)) Nno (1+ Nno) KsrT (- MsF (* (1- n) aRm)) KsrTy (rtos KsrT)) (entmake (list (cons 0 "circle") (cons 10 eP) (cons 40 RaD))) (entmake (list (cons 0 "text") (cons 10 n2) (cons 40 TxT) (cons 1 (itoa Nno)) (cons 50 aC) (cons 72 4) (cons 11 n2))) (entmake (list (cons 0 "line") (cons 10 sP1) (cons 11 eP1))) (entmake (list (cons 0 "text") (cons 10 n1) (cons 40 TxT) (cons 1 KsrTy) (cons 50 aC) (cons 72 4) (cons 11 n1))))) (setq eTxT Txt eRaD RaD eNno (1+ Nno) eaRm aRm ecnt cnt) (command "undo" "e") (prin1) ) - Nokta numaraları ve ara mesafeler, teknik Resim genel kurallarına göre hattın uygun tarafına yazılırlar. - Verilen iki nokta arası girilen ara mesafe değerine tam bölünmüyorsa, küsüratlı kısmı sona ekler. - Başlangıç noktasına istenirse çember çizilmesi ve numara verilmesi kullanıcının seçimine bırakılmıştır. - Nokta numaraları her zaman Tamsayı olarak yazılırlar. - Ara mesafeler Luprec sistem değişkenine uygun olarak Ondalık sayı olarak yazılırlar. Tamsayı yazmak için Luprec<┘0<┘ girdikten sonra fonksiyonu uygulayınız... [IMG]http://img830.imageshack.us/img830/3798/drawing2.png[/IMG] Fonksiyonun çalışma mantığı ve algoritmasını bu resimden inceleyebilirsiniz. Kolay gelsin. ProhibiT (02.11.2010 06:13 GMT) Beğenmek için anlamak lazım...

02.11.2010 11:18 60439	mateus Üstad 446 ileti tek.öğrt ist
emeğine sağlık

02.11.2010 21:50 60456	kurtsalih Girişimci 24 ileti harita teknikeri istanbul
Hocam emeğine, yüreğine sağlık. Müthiş bir iş çıkarmışsın yine. Ellerin dert görmesin. Sizden bir ricam daha olacak; diyelim mause ile 425.16 m.lik bir mesafe seçtim ve 50 m. bir lispi uygulasın. Ama sona attığı 25.16 m.lik kısım olmasın(luprec ile 25 m. :) ). yani 400. metreyi atsın ve kessin. Mümkün mü? Şimdiden teşekkürler. Hocam bir de bu daireleri ve mesafeleri manuel olarak atabileceğim bir lisp yazabilir misiniz? Yani iki mause tıklaması arasına daireler atarak hazırladığınız lispteki gibi numara ve mesafe verme işlemi... (Kısa mesafeler için gerekli) kurtsalih (02.11.2010 22:29 GMT) Et tırnaktan ayrılmaz dediler; söktüler tırnağı yerinden.. Et acı çekti, tırnak hissetmedi...

03.11.2010 07:35 60462	ProhibiT Yetkili 1611 ileti İnşaat Mühendisi Ankara
Birinci isteğinizi gerçekleştirecek değişikliği yapmak çok basit ve fonksiyonu daha da sadeleştiriyor; Kod: ;;;=====================================================;;; ;;; Hazırlayan: M. Şahin Güvercin 03/11/2010 - Ankara ;;; ;;;=====================================================;;; (defun c:StP () (setvar "cmdecho" 0) (command "undo" "group") (if (= eTxT nil) (setq eTxT (* (getvar "dimtxt") (getvar "dimscale")))) (setq TxT (getreal (strcat "\nYazı Yüksekliği <" (rtos eTxT) ">: "))) (if (= TxT nil) (setq TxT eTxT)) (if (= eRaD nil) (setq eRaD (* 1.5 TxT))) (setq RaD (getreal (strcat "\nÇember Yarıçapı <" (rtos eRaD) ">: "))) (if (= RaD nil) (setq RaD eRaD)) (if (= eNno nil) (setq eNno 1)) (setq Nno (getint (strcat "\nNokta Numarası <" (itoa eNno) ">: "))) (if (= Nno nil) (setq Nno eNno)) (if (= eaRm nil) (setq eaRm (* 10 TxT))) (setq aRm (getreal (strcat "\nAra Mesafe <" (rtos eaRm) ">: "))) (if (= aRm nil) (setq aRm eaRm)) (setq Nk2 (getpoint (setq Nk1 (getpoint "\nBaşlangıç Noktası... ")) "\nBitiş Noktası... ") aCi (angle Nk1 Nk2) MsF (distance Nk1 Nk2) aRmy (rtos aRm) sP Nk1 n 0 aC aCi) (while (>= aC pi) (setq aC (- aC pi))) (if (<= aC (/ pi 2.0)) (setq aC1 (+ aC (/ pi 2.0))) (setq aC1 (- aC (/ pi 2.0)) aC (+ aC pi))) (if (= nil ecnt) (setq ecnt "E")) (initget "E H") (setq cnt (getstring (strcat "\nİlk Noktaya Numarara verilsin mi? [Evet/Hayır] <" ecnt ">: "))) (if (= "" cnt) (setq cnt ecnt)) (setq nKs (atoi (rtos (/ MsF aRm)))) (if (or (= cnt "E") (= cnt "e")) (progn (entmake (list (cons 0 "circle") (cons 10 Nk1) (cons 40 RaD))) (entmake (list (cons 0 "text") (cons 10 (polar Nk1 aC1 (+ RaD TxT))) (cons 40 TxT) (cons 1 (itoa Nno)) (cons 50 aC) (cons 72 4) (cons 11 (polar Nk1 aC1 (+ RaD TxT)))))) (setq Nno (1- Nno))) (while (<= (setq n (1+ n)) nKs) (if (<= (* n aRm) MsF) (progn (setq sP (polar nK1 aCi (* (1- n) aRm)) eP (polar nK1 aCi (* n aRm)) sP1 (polar sP aCi RaD) eP1 (polar sP aCi (- aRm RaD)) n1 (list (/ (+ (car sP) (car eP)) 2.0) (/ (+ (cadr sP) (cadr eP)) 2.0) (/ (+ (caddr sP) (caddr eP)) 2.0)) n1 (polar n1 aC1 (* TxT 1.15)) n2 (polar eP aC1 (+ RaD TxT)) Nno (1+ Nno)) (entmake (list (cons 0 "circle") (cons 10 eP) (cons 40 RaD))) (entmake (list (cons 0 "text") (cons 10 n2) (cons 40 TxT) (cons 1 (itoa Nno)) (cons 50 aC) (cons 72 4) (cons 11 n2))) (entmake (list (cons 0 "line") (cons 10 sP1) (cons 11 eP1))) (entmake (list (cons 0 "text") (cons 10 n1) (cons 40 TxT) (cons 1 aRmy) (cons 50 aC) (cons 72 4) (cons 11 n1)))))) (setq eTxT Txt eRaD RaD eNno (1+ Nno) eaRm aRm ecnt cnt) (command "undo" "e") (prin1) ) Diğer isteğinizi ise anlayamadım... Kolay gelsin. Beğenmek için anlamak lazım...

03.11.2010 18:36 60482	kurtsalih Girişimci 24 ileti harita teknikeri istanbul
Hocam ellerin dert görmesin. Hayran kaldım inanın. Çok teşekkürler... 2. isteğimi tekrar anlatmaya çalışayım; Mause ile tıkladığım yere yine ilk direğe numara verilsin uyarısı vermeden (ilk direğe numara vermesin) ikinci tıkladığım yere, takip eden numarayı vererek daire atsın ve birleştirsin. (Mesafeyi unutmayalım :) ) Umarım anlatabilmişimdir... Şimdiden canı gönülden teşekkür ederim hocam.. İyi çalışmalar, kolay gelsin... Et tırnaktan ayrılmaz dediler; söktüler tırnağı yerinden.. Et acı çekti, tırnak hissetmedi...

03.11.2010 21:42 60486	ProhibiT Yetkili 1611 ileti İnşaat Mühendisi Ankara
Güzel sözleriniz için teşekkür ederim, işinizi görmesine sevindim. Çaykaşığı dolusu suda transatlantik yüzdürdük, umarım son manevramızdır, Limana çekelim artık :) Bu fonksiyonu kullanmadan önce genel StP fonksiyonunun kullanıldığı... Yani Yazı yüksekliği, çember yarıçapı ve nokta numarası v.s gibi değerlerin zaten tanımlı olduğu kabulüyle; Yalnızca Ara mesafe ile Başlangıç ve Bitiş Noktalarını sorar... Başlangıç noktasında zaten bir çember olduğunu varsayarak, verilen ara mesafe kadar uzağa yeni çember çizer, ara çizgiyi çizer, ara mesafe ve yeni nokta numarasını yazar... Kod: ;;;=====================================================;;; ;;; Hazırlayan: M. Şahin Güvercin 03/11/2010 - Ankara ;;; ;;;=====================================================;;; (defun c:StP1 () (setvar "cmdecho" 0) (command "undo" "group") (setq aRm (getreal (strcat "\nAra Mesafe <" (rtos eaRm) ">: "))) (if (= aRm nil) (setq aRm eaRm)) (setq Nk2 (getpoint (setq Nk1 (getpoint "\nBaşlangıç Noktası... ")) "\nBitiş Noktası... ") aCi (angle Nk1 Nk2) MsF (distance Nk1 Nk2) aRmy (rtos aRm) sP Nk1 n 0 aC aCi) (while (>= aC pi) (setq aC (- aC pi))) (if (<= aC (/ pi 2.0)) (setq aC1 (+ aC (/ pi 2.0))) (setq aC1 (- aC (/ pi 2.0)) aC (+ aC pi))) (setq sP Nk1 eP (polar nK1 aCi aRm) sP1 (polar sP aCi RaD) eP1 (polar sP aCi (- aRm RaD)) n1 (list (/ (+ (car sP) (car eP)) 2.0) (/ (+ (cadr sP) (cadr eP)) 2.0) (/ (+ (caddr sP) (caddr eP)) 2.0)) n1 (polar n1 aC1 (* TxT 1.15)) n2 (polar eP aC1 (+ RaD TxT)) Nno eNno) (entmake (list (cons 0 "circle") (cons 10 eP) (cons 40 RaD))) (entmake (list (cons 0 "text") (cons 10 n2) (cons 40 TxT) (cons 1 (itoa Nno)) (cons 50 aC) (cons 72 4) (cons 11 n2))) (entmake (list (cons 0 "line") (cons 10 sP1) (cons 11 eP1))) (entmake (list (cons 0 "text") (cons 10 n1) (cons 40 TxT) (cons 1 (rtos aRm)) (cons 50 aC) (cons 72 4) (cons 11 n1))) (setq eTxT Txt eRaD RaD eNno (1+ Nno) eaRm aRm ecnt cnt) (command "undo" "e") (prin1) ) Kolay gelsin... Beğenmek için anlamak lazım...

12.11.2010 21:39 60685	kurtsalih Girişimci 24 ileti harita teknikeri istanbul
Merhaba hocam. Hakikatten yüzdürdünüz transatlantiği. Emeğinize sağlık. Şehir dışında olduğumdan bilgisayarıma henüz kavuşabildim. Lispi inceledim ama sanırım derdimi tam olarak anlatamadım :( Aslında lisp olmuş gibi ancak mesafeyi ikinci tıkladığım noktaya hesaplayarak atmasını istemiştim. Yani elle girmeden tıkladığım yere atması gerekiyor. İlk lispte yapıyordu diyeceksiniz ama son daireyi attıktan sonra güzergahı çevirmem gerekiyor bazı durumlarda.. Anlayışınız ve sabrınız için teşekkür ederim hocam... Örnek aşağıdaki gibidir.. [URL=http://img404.imageshack.us/i/70074680.png/][IMG]http://img404.imageshack.us/img404/4945/70074680.png[/IMG][/URL] Uploaded with [URL=http://imageshack.us]ImageShack.us[/URL] Et tırnaktan ayrılmaz dediler; söktüler tırnağı yerinden.. Et acı çekti, tırnak hissetmedi...

12.11.2010 23:42 60687	ProhibiT Yetkili 1611 ileti İnşaat Mühendisi Ankara
Bu son halinde Ara Mesafe sormuyor. Başlangıç ve Bitiş noktalarını soruyor. Diğer değerler genel StP fonksiyonuyla girildiği kabulüyle Bitiş noktasına Çember çizer, yeni Nokta Numarası yazar, ara çizgiyi çizer, Başlangıç ve Bitiş noktaları arasında hesapladığı Ara Mesafeyi yazar... Kod: ;;;=====================================================;;; ;;; Hazırlayan: M. Şahin Güvercin 13/11/2010 - Ankara ;;; ;;;=====================================================;;; (defun c:StP2 () (setvar "cmdecho" 0) (command "undo" "group") (setq Nk2 (getpoint (setq Nk1 (getpoint "\nBaşlangıç Noktası... ")) "\nBitiş Noktası... ") aCi (angle Nk1 Nk2) MsF (distance Nk1 Nk2) n 0 aC aCi) (while (>= aC pi) (setq aC (- aC pi))) (if (<= aC (/ pi 2.0)) (setq aC1 (+ aC (/ pi 2.0))) (setq aC1 (- aC (/ pi 2.0)) aC (+ aC pi))) (setq sP1 (polar Nk1 aCi RaD) eP1 (polar Nk1 aCi (- Msf RaD)) n1 (list (/ (+ (car Nk1) (car Nk2)) 2.0) (/ (+ (cadr Nk1) (cadr Nk2)) 2.0) (/ (+ (caddr Nk1) (caddr Nk2)) 2.0)) n1 (polar n1 aC1 (* TxT 1.15)) n2 (polar Nk2 aC1 (+ RaD TxT)) Nno eNno) (entmake (list (cons 0 "circle") (cons 10 Nk2) (cons 40 RaD))) (entmake (list (cons 0 "text") (cons 10 n2) (cons 40 TxT) (cons 1 (itoa Nno)) (cons 50 aC) (cons 72 4) (cons 11 n2))) (entmake (list (cons 0 "line") (cons 10 sP1) (cons 11 eP1))) (entmake (list (cons 0 "text") (cons 10 n1) (cons 40 TxT) (cons 1 (rtos Msf)) (cons 50 aC) (cons 72 4) (cons 11 n1))) (setq eTxT Txt eRaD RaD eNno (1+ Nno) eaRm Msf ecnt cnt) (command "undo" "e") (prin1) ) Kolay gelsin. ProhibiT (12.11.2010 23:55 GMT) Beğenmek için anlamak lazım...

23.11.2010 08:16 60824	kurtsalih Girişimci 24 ileti harita teknikeri istanbul
Hocam işte budur. Tam anlamıyla harikasınız. Binlerce teşekkürler. Emeğinize, yüreğinize sağlık... İyi çalışmalar diliyorum. Sağolun... Yüzsüzlük olacak ama sizden bu lispin dışında son bir ricam var; Bana bir dikdörtgen çizip trimleyen ve bu dikdörtgenin dışında kalan tüm objeleri silen lisp yazabilirmisiniz. kurtsalih (23.11.2010 09:55 GMT) Et tırnaktan ayrılmaz dediler; söktüler tırnağı yerinden.. Et acı çekti, tırnak hissetmedi...

25.11.2010 13:38 60884	ProhibiT Yetkili 1611 ileti İnşaat Mühendisi Ankara
Eminim bunun başka bir yolu vardır. Ya da birileri çözmüştür yazmıştır. Amerika'yı yeninden keşfettimse affola :) 174410-krp.rar Bu linkten kRp.rar dosyasını indirip, içindeki kRp.fas dosyasını c:\Program files\.....\Support klasörüne çıkarın. Aynı -.Lsp dosyalarını yüklediğiniz gibi yüklenir. Komut adı kRp. Yazdığım fonksiyon çok basit olduğu için, AutoLisp Source Code (-.Lsp) formatında paylaşmaktan mahcubiyet duydum, fonksiyonu -.fas formatında paylaştım :) İki nokta girilerek seçilen dikdörtgen bölgenin dışındaki tüm objeler insafsızca silinir. Bu arada, seçilen dikdörtgen bölgenin sınırında yer alan ve trim edilemeyen, Text veya bLock türü objelerinizi de silebilir, buna dikkat ediniz... Kolay gelsin... ProhibiT (25.11.2010 15:00 GMT) Beğenmek için anlamak lazım...

25.11.2010 14:43 60890	bud_0782 Üstad 322 ileti Yapı Öğr.+Teknik Res. Antalya
hocam elinize sağlık. krp.fas çok işime yarayacak bir lisp. ben bu işlemi teker teker break yapıp silerek uzunca bir yolla çözüyordum :blush çünkü izohipsli haritalarda trim sürekli fattal error veriyor ve başa döndürüyor. bir ricam olacak. bu belirlediğimiz dikdörtgen alanı kapalı eğri şeklinde yapabilirmiyiz? dikdörtgen değil de, pline ile kapalı çokgen çizebilsek mesela :D ~~~~~~~~~~~~~~~~~~~~~~~~ Düşün , hisset, uygula… İşte hepsi bu… ~~~~~~~~~~~~~~~~~~~~~~~~

25.11.2010 15:25 60896	ProhibiT Yetkili 1611 ileti İnşaat Mühendisi Ankara
Merhaba bud_0782 , waytooraider arkadaşımızın bana bildirdiği bir hatadan sonra düzeltme yapıp düzeltilmiş halini yeniden yükledim. Bahsettiğiniz diğer konuya gelince, daha önceden çizilmiş PoLyLine kullanmak işimizi görür diyorsanız, fırsat bulduğumda yazmaya çalışırım. Açıkçası burada 2 nokta seçerek oluşturduğumuz dikdörtgende algoritma daha basit, neresi dikdörtgenin içi, neresi dışı zaten tanımlı. Eğer PoLyLine kullanırsak orada işler değişiyor. Söz konusu PoLyLine'ın tanımladığı düzlemin normal vektörünü bulmak, doğrultu kosinüzleri ile, iç ve dış bölgeyi tanımlamak gerekiyor. Kolay gelsin... Beğenmek için anlamak lazım...

26.11.2010 06:23 60902	bud_0782 Üstad 322 ileti Yapı Öğr.+Teknik Res. Antalya
anladığım kadarıyla kompleks bir hal alıyor. ilk belirttiğiniz şekilde mevcut kapalı bir pline kullanmak da işimizi görür tabiki :yes ilginize teşekkürler, kolay gelsin hocam. ~~~~~~~~~~~~~~~~~~~~~~~~ Düşün , hisset, uygula… İşte hepsi bu… ~~~~~~~~~~~~~~~~~~~~~~~~

04.12.2010 14:50 61066	kurtsalih Girişimci 24 ileti harita teknikeri istanbul
Hocam, sayenizde özellikle haritacıların kanayan bir yarası daha kapanmıştır emin olabilirsiniz. Allah razı olsun... kurtsalih (04.12.2010 14:59 GMT) Et tırnaktan ayrılmaz dediler; söktüler tırnağı yerinden.. Et acı çekti, tırnak hissetmedi...

12.12.2010 21:37 61291	ProhibiT Yetkili 1611 ileti İnşaat Mühendisi Ankara
Bağımsız bir başlık altında paylaşmak istedim... Linkleri görebilmek için ÜYE olmalısınız. Beğenmek için anlamak lazım...

> 1 <