Forumdan
99 kategoride
17 binden fazla konu başlatıldı
bu konulara yaklaşık 90 bin cevap verildi
tüm bunlar yaklaşık 109 milyon kez görüntülendi
Bölüm indeksi
Makaleler Sık Sorulan Sorular Download
İzle Öğren Eğitim Videoları
3ds Max Videoları AutoCAD Kursu Ders Videoları AutoCAD Kursu 2 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 Revit Family
Lispler
3 Boyutlu Yazı Ya... 3D Solid Objeleri... 3dpolyline olan n... ALS/Pasdoc.A virü... Ara Lisp AutoCAD'den Excel... Blok değiştirme k... Cephe kot'u veren... Çizgi Çizip Ucuna... Çizgi uzunluğunu... Eğik dikdörtgen a... Ekrana Tarih Bilg... Enkesit Lisp Excel Tablosunu Ç... Harita Programı İki nokta arasınd... ... 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 larAutoCAD Genel
AutoCAD Eğitimi
3ds Max
Özel Yazılımlar
- 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ı
- Demir (Donatı) Metraj LISP'i
Ortak Türk Alfabesi 34 harf destekli fontlar
mahal
kapalı alanların ismini, alanını ve kaplama bilgilerini verir
veysela - 23.09.2006 11:08
veysela - 23.09.2006 11:08
(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...!!!! ")
)
(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:
Benzer SayfalarBenzer konu bulunamadı.
Yorumlar :
kürşad06 12.11.2010 14: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
mttlp 16.03.2010 19:00 #12602
elinize saglık ama bana sadece mahal ısmı lazım onu nasıl yaparım lutfen yarım edın
ordinat 18.02.2010 00: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 :D word' e attım ve oradan lisp i ayıkladım :D
aydogdu17 01.03.2007 12:44 #3035
tam anlamadım ama reim halinde göstererek yapılırsa daha iyi anlaşılır teşekkür ederim
:blush