mk - 23.09.2006 11:08
(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...!!!! ")
)
Yazar: mk
İçerik:
Tag:
Teşekkür ederiz.
nasıl
anamadm
süper olmuş biraz emek verince dahada güzel
istenmeyen verileri lisp dosyasının içinden silince oluyor
biraz dikkatlice inceleyince iş kolay
elinize saglık ama bana sadece mahal ısmı lazım onu nasıl yaparım lutfen yarım edın
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 :D word' e attım ve oradan lisp i ayıkladım :D
teşekkürler
bu dosyayı elle mi yazmamız gerekiyo başka yolu yokmu :(:(:(
Tşk ederim.
tam anlaşılır değil ki. nasıl yükleneceği yazılmamış
peki komut nedir
tam anlamadım ama reim halinde göstererek yapılırsa daha iyi anlaşılır teşekkür ederim
:blush