Sık Sorulan Sorular
Download
İzle Öğren
Eğitim Videoları
AutoCAD Videoları
3ds Max Videoları
AutoCAD Kursu Ders Videoları
AutoCAD Kursu 2 Boyut Dersleri
AutoCAD Kursu 3 Boyut Dersleri
Proje Dökümanları
Çizimler
Mimari Çizimler
Elektrik
Doğalgaz
Harita Çizimleri
Tesisat
Ferforje
Makine
3 Boyut
3ds Max
ArchiCAD
Solidworks
Diğer Çizimler
Lispler
Ekrana Tarih Bi.
Excel Tablosunu.
Yer Belirtici O.
Yer Belirtici Y.
Yay Çizip Ucun.
Çizgi Çizip U.
Yay Çizip Ucun.
Mouse ile Açı.
Katı cismin ü.
Seçilen rakaml.
Seçilen Arc ve.
Yazı Hizalayan.
İki nokta aras.
Çizgi uzunluğ.
Kanalizasyon li.
Spiral çizen lisp
...
Menüler
Fontlar
FreeMUST
Eğitim Dökümanları
Genel Kategori
Çizim Programları
IES Dökümanları
AutoCAD
AutoLISP
Konu Anlatımları
Örnek Lispler
Sürümler
Menüler
DWF Dosyaları
Programlama
AutoCAD Püfleri
Eğitim
AutoCAD Eğitimi
Karma 3 Boyut Dersleri
Adım Adım AutoCAD Eğitimi
01.Bölüm
02.Bölüm
03.Bölüm
04.Bölüm
05.Bölüm
06.Bölüm
07.Bölüm
08.Bölüm
09.Bölüm
10.Bölüm
11.Bölüm
12.Bölüm
Uygulamalar
Adım Adım 3 Boyut Eğitimi
Kariyer
3ds Max
Attribute lar
- aLd Fonksiyonu
- TCad Metraj
- FacadeCAD
- Cephe Kot
- HQ Library
- FreeMUST
- ALS/Pasdoc.A
- Excele Tablo Aktaran Lisp
- Nokta Koordinat Tablosu
- Plana İç Ölçü Verme
- Toplam Alanı Yazan Lisp
- Alan ve Çevre Yazan Lisp
- Koordinat, Alan ve Çevre Tablo Halinde Yazma
- AutoCAD'de Nokta Dökümü
- Hava Kanalı Metraj Fonksiyonu
- Boru Metrajı Fonksiyonu
- OptiCAD
- Özel Çizgi Tipi Oluşturmak
- AutoCAD te Koni Açılımı Nasıl Yapılır?
- PolyLine & Point Objelerinden Aplikasyon Çizelgesi
- Z değerini sıfırlama
- AutoCAD te Polyline üzerine uzunluk yazdırma
- Sıralı numaralandırma
- Yazı içindeki sayıları toplama
- Karmaşık Path ile Loft Uygulaması
- Çoklu Fillet Fonksiyonu
- Ölçekli Türk Bayrağı çizen lisp
- Duvar-Lento-Kapı-Pencere Metraj Programı
mahal
veysela - 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