Bunları Biliyor musunuz?
Destekleyenler
Yeni Yorumlar
Yeni Linkler
Forumun En İyileri
Anket
Kurumsal Müşterilerimiz
Özen Metal Dekorasyon
İlham Mimarlık
Uestco Enerji Sistemleri
ADG Çelik Makina Müh. Ltd.
Uslugrup Mühendislik Ltd.Şti.
Yenidünyalar Tasarım
Boyut Yapı Müh.-Mimarlık
B&G Elektrik İnşaat Müh.
Axem Thermofloor
Beyaz Mimarlık
Koca Metal Makina İmalat
Girit İnşaat Ltd.Şti.
İnka İnş. Elk. Taah. San.
Teknik İş Konst. İmalat
Teyda Elektromeknik San.
Createch Multimedya Reklam
Çevko Çevre Koruma Sist.
Pelit Arslan Laminat ve Kont.
Bora Mühendislik Taahüt İnş.
Vela Yatçılık Teknik hizm.
Ateş Grup
Süreç Elektrik Proje Ltd.Şti.
Dec Electromechanical A.Ş.
Su-Pek Proje ve Taah.Ltd.Şti.
AREM İnşaat Mimarlık Müh.
KD mühendislik Ltd. Şti.
T mimarlık
Sherwood Europe A.Ş.
Albatros Gemi İnşaa San.
Çevrim Tesisat Müh.
Tantürk Mimarlık Ltd.Şti.
DCK-data & CAD
Z-Dizayn Mühendislik
ASV San.ve Tic.Şti.
Yapı Grup Müh.Ltd.Şti.
Dba Mimarlık İnşaat Peyzaj
Ledium Işık Tasarım San.
Maslak Ozalit
SERPİCİ's Mimarlık
Başak Yapı Denetim A.Ş.
Sertaç Mimarlık
Yıldız Mobilya
İnka İnşaat Elektrik Taah.
Gençer Alüminyum Profil A.Ş.
Bumerang Entegre İletişim
Noya Elektrik İnşaat Taah.
Futurist Tasarım ve Danışm.
Bilgi Teknik Makina Ltd.Şti.
Öz İnşaat
Dönüşüm Mühendislik Elektrik
Tamsa Seramik A.Ş.
Baysonic End.Mak.San.Tic.Ltd.
Sml Mühendislik
Adell Armatür ve Vana Fab.
Karina Tasarım Danışmanlık
Gürmak Makina Ltd.Şti.
Barlas Soğutma A.Ş.
Kroma Mimarlık İnş.San.Tic.
Dinamik Radyator
Spero Engineering
Citylight Profesyonel Ayd.
Elektro Dinamik Teknik Malz.
Selinöz Mimarlık İnş. Met.
Teknopar Hidrolik Pnömatik
Prestij Gür Makina Kalıp
Lmc Makina San.Tic.Ltd.Şti.
Fdclektrik Proje & Danışm.
Satürn Mühendislik Mak.Elk.
Formtek Sac ve Plastik
İntek Kalıp ve İskele
Çeliksan Endüstriyel Mutfak
Çağla Grup Elektrik İnş.A.Ş.
Tümtaş-Opetaş Otomotiv San.
Çukurova Mühendislik Elektrik
Meg Gemi ve Makina San.Tic.
Dev Sistem
Delta Marin Ltd.Şti.
Diba Mimarlık Mobilya
Yapı Koordinasyon Merkezi
Gemo Construction
mahal
veysela - 23.09.2006 14:08
Yazar: mk
Kaynak:
(Kontrol panelinize girerek; takip ettiğiniz tüm sayfaları görüp istediğinizi silebilirsiniz)
(defun c:MAHAL (/ YUK YUK1P1 VAL VAL1 Mah_Alani Mah_Ismi)
(SETQ YUK 18
YUK1 10
ARA 20
ARA1 12)
(setq bCmdEcho (getvar "CMDECHO"))
(setq nOsnap (getvar "OSMODE"))
(setvar "CMDECHO" 0)
(setvar "OSMODE" 0)
(command "LAYER" "M" "yazi" "C" "7" "" "")
;;;**************************************************
(command "layer" "off" "aks" "")
(command "layer" "off" "kesit" "")
(command "layer" "off" "L4" "")
(command "layer" "off" "siva" "")
(command "layer" "off" "tarama" "")
(command "layer" "off" "tefris" "")
(command "layer" "off" "aks_ici" "")
;;;**************************************************
(setq P1 (getpoint "n Mahal isminin konacagi yeri belirtiniz : "))(terpri)
(command "-boundary" p1 "")(terpri)
(command "area" "o" "l" "")(terpri)
(setq VAL (/(getvar "area" ) 10000.0) )
(setq VAL1 (rtos val 2 2))
(command "erase" "l" "")(terpri)
(setq Mah_Alani (strcat "Alan:"Val1"m²"))
(initget "Salon Yatak Hol OTurma Oda Cocuk Mutfak BAlkon Antre Banyo Wc Dus Lwb OTOpark Teras DÜkkan")
(setq Mah_Ismi (getkword "n[Salon/Yatak/Hol/OTurma/Oda/Cocuk/Mutfak/BAlkon/Antre/Banyo/Wc/Dus/Lwb/OTOpark/Teras/DÜkkan]: "))(terpri)
;(setq Mah_Ismi (strcase Mah_Ismi))
(cond
((= Mah_Ismi "Salon")
(command "text" "st" "standard" "j" "mc" (polar P1 (/ pi 2.0) ARA) yuk"0" "Salon" )
(command "text" "st" "standard" "j" "mc" (polar P1 (* (/ pi 2.0 )3.0) ARA1) yuk1 "0" "Döş:marley")
(command "text" "st" "standard" "j" "mc" (polar P1 (* (/ pi 2.0 )3.0) (* ARA1 2.0)) yuk1 "0" "Duv:saten;Tav:tav.b.")
)
((= Mah_Ismi "Yatak")
(command "text" "st" "standard" "j" "mc" (polar P1 (/ pi 2.0) ARA) yuk"0" "Yatak O." )
(command "text" "st" "standard" "j" "mc" (polar P1 (* (/ pi 2.0 )3.0) ARA1) yuk1 "0" "Döş:marley")
(command "text" "st" "standard" "j" "mc" (polar P1 (* (/ pi 2.0 )3.0) (* ARA1 2.0)) yuk1 "0" "Duv:saten;Tav:tav.b.")
)
((= Mah_Ismi "Hol")
(command "text" "st" "standard" "j" "mc" (polar P1 (/ pi 2.0) ARA) yuk"0" "Hol" )
(command "text" "st" "standard" "j" "mc" (polar P1 (* (/ pi 2.0 )3.0) ARA1) yuk1 "0" "Döş:Seramik")
(command "text" "st" "standard" "j" "mc" (polar P1 (* (/ pi 2.0 )3.0) (* ARA1 2.0)) yuk1 "0" "Duv:Saten;Tav:tav.b.")
)
((= Mah_Ismi "OTurma")
(command "text" "st" "standard" "j" "mc" (polar P1 (/ pi 2.0) ARA) yuk"0" "Oturma O." )
(command "text" "st" "standard" "j" "mc" (polar P1 (* (/ pi 2.0 )3.0) ARA1) yuk1 "0" "Döş:marley")
(command "text" "st" "standard" "j" "mc" (polar P1 (* (/ pi 2.0 )3.0) (* ARA1 2.0)) yuk1 "0" "Duv:Saten;Tav:tav.b.")
)
((= Mah_Ismi "Oda")
(command "text" "st" "standard" "j" "mc" (polar P1 (/ pi 2.0) ARA) yuk"0" "Oda" )
(command "text" "st" "standard" "j" "mc" (polar P1 (* (/ pi 2.0 )3.0) ARA1) yuk1 "0" "Döş:marley")
(command "text" "st" "standard" "j" "mc" (polar P1 (* (/ pi 2.0 )3.0) (* ARA1 2.0)) yuk1 "0" "Duv:saten;Tav:tav.b.")
)
((= Mah_Ismi "Cocuk")
(command "text" "st" "standard" "j" "mc" (polar P1 (/ pi 2.0) ARA) yuk"0" "Çocuk O." )
(command "text" "st" "standard" "j" "mc" (polar P1 (* (/ pi 2.0 )3.0) ARA1) yuk1 "0" "Döş:marley")
(command "text" "st" "standard" "j" "mc" (polar P1 (* (/ pi 2.0 )3.0) (* ARA1 2.0)) yuk1 "0" "Duv:Saten;Tav:tav.b.")
)
((= Mah_Ismi "Mutfak")
(command "text" "st" "standard" "j" "mc" (polar P1 (/ pi 2.0) ARA) yuk"0" "Mutfak" )
(command "text" "st" "standard" "j" "mc" (polar P1 (* (/ pi 2.0 )3.0) ARA1) yuk1 "0" "Döş:seramik")
(command "text" "st" "standard" "j" "mc" (polar P1 (* (/ pi 2.0 )3.0) (* ARA1 2.0)) yuk1 "0" "Duv:seramik;Tav:tav.b.")
)
((= Mah_Ismi "BAlkon")
(command "text" "st" "standard" "j" "mc" (polar P1 (/ pi 2.0) ARA) yuk"0" "Balkon" )
(command "text" "st" "standard" "j" "mc" (polar P1 (* (/ pi 2.0 )3.0) ARA1) yuk1 "0" "Döş:seramik")
(command "text" "st" "standard" "j" "mc" (polar P1 (* (/ pi 2.0 )3.0) (* ARA1 2.0)) yuk1 "0" "Duv:plastik;Tav:tav.b.")
)
((= Mah_Ismi "Antre")
(command "text" "st" "standard" "j" "mc" (polar P1 (/ pi 2.0) ARA) yuk"0" "Antre" )
(command "text" "st" "standard" "j" "mc" (polar P1 (* (/ pi 2.0 )3.0) ARA1) yuk1 "0" "Döş:seramik")
(command "text" "st" "standard" "j" "mc" (polar P1 (* (/ pi 2.0 )3.0) (* ARA1 2.0)) yuk1 "0" "Duv:saten;Tav:tav.b.")
)
((= Mah_Ismi "Banyo")
(command "text" "st" "standard" "j" "mc" (polar P1 (/ pi 2.0) ARA) yuk"0" "Banyo" )
(command "text" "st" "standard" "j" "mc" (polar P1 (* (/ pi 2.0 )3.0) ARA1) yuk1 "0" "Döş:seramik")
(command "text" "st" "standard" "j" "mc" (polar P1 (* (/ pi 2.0 )3.0) (* ARA1 2.0)) yuk1 "0" "Duv:Seramik;Tav:tav.b.")
)
((= Mah_Ismi "Wc")
(command "text" "st" "standard" "j" "mc" (polar P1 (/ pi 2.0) ARA) yuk"0" "Wc" )
(command "text" "st" "standard" "j" "mc" (polar P1 (* (/ pi 2.0 )3.0) ARA1) yuk1 "0" "Döş:seramik")
(command "text" "st" "standard" "j" "mc" (polar P1 (* (/ pi 2.0 )3.0) (* ARA1 2.0)) yuk1 "0" "Duv:Seramik;Tav:tav.b.")
)
((= Mah_Ismi "Dus")
(command "text" "st" "standard" "j" "mc" (polar P1 (/ pi 2.0) ARA) yuk"0" "Duş" )
(command "text" "st" "standard" "j" "mc" (polar P1 (* (/ pi 2.0 )3.0) ARA1) yuk1 "0" "Döş:Seramik")
(command "text" "st" "standard" "j" "mc" (polar P1 (* (/ pi 2.0 )3.0) (* ARA1 2.0)) yuk1 "0" "Duv:Seramik;Tav:Bad.")
)
((= Mah_Ismi "Lwb")
(command "text" "st" "standard" "j" "mc" (polar P1 (/ pi 2.0) ARA) yuk"0" "Lwb." )
(command "text" "st" "standard" "j" "mc" (polar P1 (* (/ pi 2.0 )3.0) ARA1) yuk1 "0" "Döş:seramik")
(command "text" "st" "standard" "j" "mc" (polar P1 (* (/ pi 2.0 )3.0) (* ARA1 2.0)) yuk1 "0" "Duv:seramik;Tav:tav.b.")
)
((= Mah_Ismi "OTOpark")
(command "text" "st" "standard" "j" "mc" (polar P1 (/ pi 2.0) ARA) yuk"0" "Otopark" )
(command "text" "st" "standard" "j" "mc" (polar P1 (* (/ pi 2.0 )3.0) ARA1) yuk1 "0" "Döş:mozaik")
(command "text" "st" "standard" "j" "mc" (polar P1 (* (/ pi 2.0 )3.0) (* ARA1 2.0)) yuk1 "0" "Duv:saten;Tav:tav.b.")
)
((= Mah_Ismi "Teras")
(command "text" "st" "standard" "j" "mc" (polar P1 (/ pi 2.0) ARA) yuk"0" "Teras" )
(command "text" "st" "standard" "j" "mc" (polar P1 (* (/ pi 2.0 )3.0) ARA1) yuk1 "0" "Döş:şap")
)
((= Mah_Ismi "DÜkkan")
(command "text" "st" "standard" "j" "mc" (polar P1 (/ pi 2.0) ARA) yuk"0" "Dükkan" )
(command "text" "st" "standard" "j" "mc" (polar P1 (* (/ pi 2.0 )3.0) ARA1) yuk1 "0" "Döş:seramik")
(command "text" "st" "standard" "j" "mc" (polar P1 (* (/ pi 2.0 )3.0) (* ARA1 2.0)) yuk1 "0" "Duv:saten;Tav:tav.b.")
)
(t (command "text" "st" "standard" (polar P1 (/ pi 2.0) 0.15) yuk1 "0" "Oda" )
(command "text" "st" "standard" "j" "mc" (polar P1 (* (/ pi 2.0 )3.0) ARA1) yuk1 "0" "Döş:marley")
(command "text" "st" "standard" "j" "mc" (polar P1 (* (/ pi 2.0 )3.0) (* ARA1 2.0)) yuk1 "0" "Duv:Saten;Tav:tav.b.")
)
)
(command "text" "st" "standard" "j" "mc" p1 yuk1 "0" mah_alani "" "")
;;;***************************************
(command "layer" "on" "aks" "")
(command "layer" "on" "kesit" "")
(command "layer" "on" "L4" "")
(command "layer" "on" "siva" "")
(command "layer" "on" "tarama" "")
(command "layer" "on" "tefris" "")
(command "layer" "on" "aks_ici" "")
;;;***************************************
(setvar "CMDECHO" bCmdEcho)
(setvar "OSMODE" nOsnap)
(command "-color" "Bylayer")
(prompt "Eger mahal alani uygun degilse kapali alaninizi kontrol ediniz...!!!! ")
)
0 Yorumlar: 
(8)
aydogdu17 01.03.2007 14:44 #3035
tam anlamadım ama reim halinde göstererek yapılırsa daha iyi anlaşılır teşekkür ederim
ordinat 18.02.2010 02:55 #12479
lisp yazılımının en başında c: ' den sonra komut yazar. bunda da "MAHAL" yazıyor. komutu MAHAL. ben dosyayı indiremedim. SAYFAYI KOMPLE indirdim 
word' e attım ve oradan lisp i ayıkladım
mttlp 16.03.2010 21:00 #12602
elinize saglık ama bana sadece mahal ısmı lazım onu nasıl yaparım lutfen yarım edın