(M. Akça)
Bölüm indeksi
Sayfalar
Makaleler Sık Sorulan Sorular Download Kütüphane
Elektrik Mimari Lispler Genel İzle Öğren Eğitim Videoları AutoCAD Videoları 3ds Max Videoları Ders Videoları AutoCAD Dersi Videoları Hafta içi akşam grubu - test Hafta sonu gündüz 3 boyut grubu Hafta sonu akşam grubu Hafta içi akşam (Temel Seviye) Yardımcı Proje Dökümanları Çizimler Mimari 2 Boyutlu Çizimler 3 Boyutlu Çizimler Elektrik Doğalgaz Harita Tesisat Ferforje Makine 3 Boyut 3ds Max Çalışmaları Solidworks Çalışmaları Diğer Çizimler Depo
Lispler
Ekranda Tarih B... Excel Tablosunu... Yer Belirtici O... Yer Belirtici Y... Yay Çizip Ucuna... Çizgi Çizip Ucu... Yay Çizip Ucuna... Mouse ile Açıyı... Katı cismin üze... Seçilen rakamla... Topla.lsp Hizala.lsp Ym.lsp Çizgi uzunluğun... Kanalizasyon li... Spiral çizen lisp Blok değiştirme... Eğik dikdörtgen... Harita Programı 3 Boyutlu Yazı ... Ara Lisp
mahal Zapping.lsp (Z ... Cephe kot'u ver... Merdiven çizen ... Sıralı aks harf... ... Menüler Fontlar FreeMUST Eğitim Dökümanları Genel Kategori BizimCAD CAD Programları autocadokulu 3DK IES Dökümanları AutoCAD
Destekleyenler
mahal
veysela - 23.09.2006 14:08
Yazar: mk
Kaynak:
(Takip ettiğiniz sayfalar Kontrol Panelinizde görünür)
(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...!!!! ")
)
10.00 Yorumlar: 
(11)
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
kürşad06 12.11.2010 16:40 #13502
süper olmuş biraz emek verince dahada güzel
istenmeyen verileri lisp dosyasının içinden silince oluyor
biraz dikkatlice inceleyince iş kolay