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
Menüler
Fontlar
FreeMUST
Eğitim Dökümanları
Genel Kategori
Çizim Programları
IES Dökümanları
AutoCAD
AutoLISP
Konu Anlatımları
Örnek Lispler
Pline 'ları se.
Merdiven çizen.
Rectangle Solid.
2D Polyline 'ı.
Sürekli Kopya
Civata ve Somun.
Seçilen nesnen.
Z yönünde kop.
Z yönünde taÅ.
Daire ortasına.
Rakam sıralaya.
Artan sırayla .
Sırasıyla num.
Sayfadaki textl.
Yazıyı refera.
Seçilen nesnen.
...
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ı
Seçilen nesnelerin alanlarını toplayıp yazan lisp
Ehya - 08.10.2005 21:48
Buraya tıklayarak açılan pencereden AutoLISP kodlarını Ctrl + C ile kopyalayabilirsiniz
(if (= cizim_birim nil)
(progn
(initget 1 "mEtre Cm Mm")
(setq cizim_birim (getkword "
Çizim Birimini seçiniz [mEtre / Cm / Mm]:")))))
(defun m2_stil ()
(setq m2_stil_ara (tblsearch "style" "m2"))
(if (= m2_stil_ara nil)
(progn
(setq m2_yaz_yuk 12)
(setq m2_yaz_y (getdist (strcat "
Yazı Yüksekliği:< " (rtos m2_yaz_yuk) ">:")))
(if (= m2_yaz_y nil)
(setq m2_yaz_y m2_yaz_yuk))
(setq m2_yaz_yuk m2_yaz_y)
(command "style" "m2" "arial.ttf" m2_yaz_yuk "0.8" "" "" ""))))
(defun c:m2 ()
(setvar "modemacro" "Archme Design 2008 © by --> EhYa <--")
(setvar "cmdecho" 0)
(m2_br_sec)
(if (= cizim_birim "mEtre")
(progn
(setq m2_bol 100)))
(if (= cizim_birim "Cm")
(progn
(setq m2_bol 10000)))
(if (= cizim_birim "Mm")
(progn
(setq m2_bol 1000000)))
(setq m2_secim (ssget '((-4 . "<OR")
(0 . "LWPOLYLINE")
(0 . "POLYLINE")
(0 . "CIRCLE")
(0 . "ELLIPSE")
(0 . "SPLINE")
(0 . "REGION")
(0 . "3DSOLID")
(-4 . "OR>"))))
(if (= m2_secim nil)
(progn
(princ))
(progn
(setq m2_secim_say (sslength m2_secim))
(setq m2_c 0)
(setq m2_toplam 0)
(while (< m2_c m2_secim_say)
(setq m2_secim_tek (ssname m2_secim m2_c))
(command "area" "e" m2_secim_tek)
(setq m2_tek_alan (/ (getvar "area") m2_bol))
(setq m2_toplam (+ m2_toplam m2_tek_alan))
(setq m2_c (+ m2_c 1)))
(m2_stil)
(setq m2_aciklama (getstring t "
Yazılacak metni yazınız:"))
(setq m2_yer (getpoint "
Yer Gösterin:"))
(if (= m2_yer nil)
(progn
(princ "
Yer gösterilmediği için komut bitirildi !!!..."))
(progn
(command "text" m2_yer "0" m2_aciklama)
(command "text" "" (strcat (rtos m2_toplam 2 2) " m2"))
))))(princ))
(PRINC "--> 'www.cizimokulu.com' Çizim yardımları yüklendi !")
Bu kodları nasıl kullanacağınızı bilmiyorsanız aşağıdaki linkten;
AutoLISP > Konu Anlatımları > Lisp Dosyalarının oluşturulması ve Yüklenmesi
konusunu inceleyiniz.
Yazar: Ehya
İçerik: LSP (Lisp) formatında AutoLISP uygulama dosyası
Tag: Seçilen nesnelerin alanlarını toplayıp istenilen bir açıklama ile ekranda istediğiniz yere yazdırabileceğiniz bir lisp
Yeni versiyon Autocad lerde çalışmadığı aşikar. 100 kere denemişimdir belki değer pozitif veya 0 olmayan bir değer olmalı diyor ve gül gibi bir metin kutumuz oluyor istediğimiz boyutlarda :) yaklaşık 450 parçadan oluşan bir kalıp planını 3D modelleyip birleştirip patlatıyorum sonra alan ölçüyorum. Daha önceden kullanıyordum lisp i gayet de memnundum sadece silindirik yüzeyleri ölçemiyordu ama artık hiç çalışmıyor. Bazı eksikleri var fakat yazan arkadaşın ellerine sağlık çalıştığı zamanlarda çok işime yaramıştı.
Nesneyi seciyorum, sectikten sonra alani yazmiyor, eror cikiyor
cikan sonuc soyle
Yer Gosterin:
Value must be positive and nonzero.
; error: Function cancelled
Specify height <2500.0000>: *Cancel*
Bu neden olur fikri olan varmi acaba?
Sorunsuz kullandigim bir Lispti fakat
Value must be positive and nonzero.
hatasi vermeye basladi neden acaba?
yardimci olabilir misiniz?
olmuyor ki
M2
Select objects: Specify opposite corner: 1 found
Select objects:
Yazılacak metni yazınız:ll
Yer Gösterin:
Value must be positive and nonzero.
; error: Function cancelled
Specify height <16.82>: *Cancel*
komutu yazdıktan sonra sırayla işlemlerden sonra bu hata geliyor m2 yazmıyor otomatik kendisi.
herkese hayırlı akşamlar benim bu komutu yüklediğimde bu hata veriyor nedendir yardımcı olabilirsiniz
error: Function cancelled
tesekkur ederim, eline saglik.
ehya lisp icin tesekkur ederim, eline saglik.
exited Ctrl A yap daha sonrada Ctrl C ile kopyala word belgesine yapistir oradan istedigin kismi cekip alabilirsin. Elindeki bir lisp dosyasini farkli kaydedip icerigi silip oraya yapistirabilirsin. Tabi daha sonrada dosyanin adini degistirip, dosyayi silmeyecegin ve degistirmeyecegin bi yere tasi.
Kodları alamıyorum
ARKADASLAR BEN BURDAN BU KODLARI KOPYALAYAMIYORUM SAG TIKLIORUM OLMUYOR BI YERDEDE YAZILMISI YOK NE YAPMAM GEREK BANA YARDIM EDÄ°N
Bende diyorum ki, bu lispi yazan benim ve katı modelleri etkileyecek bir değişkenin olmadığını söylüyorum. Hatta bu lispi database kullanmadan sırf autocad komutlarını kullanarak yazdım. Sorunun bu lispten kaynaklanmadığını rahatlıkla söyleyebilirim.
Ucs ayarımda bir sorun yok. Dikkat ettiyseniz, lisp yüklü değilken böyle bir sorun oluşmadığını belirttim.
böyle bir durum söz konusu değil. Yazılan kodlamalarda katı modelleri etkileyecek hiçbir kod yok. Ucs ayarınızı kontrol etmelisiniz.
lisp için teşekkürler, çok faydalı. ama başka komutları etkiliyor. örneğin katı cisim kesme (slice) etkileniyor. seçilen elemanların tamamını kesmeme gibi ilginç bir bozulma oluyor. üstelik kesilmeyen elemanı tek başına seçtiğimde de kesilmiyor. ancak programı kapatıp açtığımda işlem normal gerçekleşiyor.
mm verilen ölçüler zaten m2 olarak yazar ve virgülden sonra 2 basamak vermesini ben istedim. Malum küsüratlar meydana çıksın diye. İstemiyorsanız,
(command "text" "" (strcat (rtos m2_toplam 2 2) " m2"))
satırını
(command "text" "" (strcat (rtos m2_toplam 2 0) " m2"))
olarak deÄŸiÅŸtirin.
Hazırlayan arkadaşın emeğine sağlık. Yalnız mm olarak verdiğim ölçüleri kapalı alan içerine m2 olarak yazmak istiyorum. 2 sıfırı fazla yazıyor
tekrar sorması için birşey yazmadım. en kısa yolu dosyanızı kapatıp yeniden açmanız...
Lisp için teşekkürler, güzel bi komut çalışıyor ayrıca:) ama başta "m" dedim "cm"ye çevirmek istiyorum ne yapmam lazım acaba?
Lisp çalışırken ilk aşamada sizden çizim birimi isteyecek, "cm" çizerken çizim birimini "m" derseniz tabiki dediğiniz gibi yapar...
alo millet lisp çalışıyoda valla ölçekten herhalde 78 m2 yi 0.78 olarak yazıyo herhalde ölçüden kaynaklanıyo bu
waytooraider
Ya arkadaşlar, kullandığım bi lispe çalışmıyo demeyin zoruma gidiyo :)
defun c: illa lispin başına olacak diye bi şart yokki. lisp içinde gecen c: olan bölüm komutun ana başlangıç yeri.
eğer c: kullanılmadan bişiler yazıldı ise lisp içinde modül hazırlanmış demek..
Hem dikkatli bakarsan 18nci satırda defun c: olan bölüm var. Yani ilkine c: yazman hiç birşey ifade etmez.
Lispi yüklerken bi hata veriyordur.
error: extra right paren on input ya da error: malformed list on input
Ä°lki "" veya kapatma parantezinin ")" fazla olduÄŸunu belirtir.
ikincisi ise "" veya kapatma parantezinin ")" eksik olduÄŸunu belirtir.
Sanırım bu sayfadan copy-paste yaparken lispin başındaki veya sonundaki parantezi almıyorsunuz.
Yine çalışmıyo demeyin. Şimdi tekrar kontrol ettim. Lisp çok da güzel çalışıyo :)
Bu lisp çalışmıyor ehya 1.sı defun:c eksık ikincisi yazdım ama yinede olmadı:)
paylasimin icin cok tesekkurler
Lispi düzelttim. Tekrar alabilirsiniz..
arkadaşlar bugün yükledim. forumda anlatıldığı gibi. ancak bunlar yazdı:
Command: APPLOAD
Seçilen nesnelerin alanlarını toplayıp yazan lisp.LSP successfully loaded.
Command: ; error: malformed list on input
napıcaz??
2 sıfır fazla yazıyo evt
bi yanlışınız olmalı. siteden copy-paste yaparken hata yapmış olabilrisiniz. bi üst satırda (princ) yazan yerin sonuna ) işaretini yazın. hala olmuyorsa, lisp yüklenirken hatalı ise hata mesajı verir. bu mesajı bildirin...
komut satırına m2 yazıyorum ama çalışmıyor. söylediğiniz parantez hatasını da düzelttim yine de çalışmadı. bilinmeyen komut uyarısı çıkıyor. teşekkürler
Arkadaşlar yukarıdada yazmıştım ama yine belirteyim. Kodlamada bir parantez eksiği yüzünden hata veriyor. Size nasıl düzeltebileceğinizi söyleyeyim.
En alt bölümde bulunan
))))(princ)
(PRINC "--> 'www.autocadokulu.com' Çizim yardımları yüklendi !")
satırını
))))(princ))
(PRINC "--> 'www.autocadokulu.com' Çizim yardımları yüklendi !")
olarak değiştirin. Sorununuz çözülecektir...
YÜKLEDİM AMA m2 KOMUTU ÇALIŞMIYOR...
Arkadaşlar lispi yükleyebiliyorum ama
komut olarak m2 yazdığımda lisp çalışmıyor acaba problem nerden kaynaklanıyor.
ALANI 2 SIFIR YANLIŞMI YAZIYO BANAMI ÖLE GELDİ
Arkadaşlar "Malformed List on input" hatasının sebebi, bir tane parantez hatasından kaynaklanıyor
Düzeltmek için, aşağıdaki bölüm lispin en altındaki bölüm. Başına sağdan kapatma parantesinden bira tane daha ekleyin. Sorun çözülecektir.
))))(princ)
arkadaşlar aradığım lispi buldum ama bunu çalıştıramadım:
''error: malformed list on input'' hatası veriyor simsek77 nin de bahsettiği gibi... yardımcı olacak bi arkadaş yok mu...?
"error: malformed list on input" hatası veriyo malesef bende.
komut satırına m2 yazınca çalıştıramadım
arkadaÅŸlar;
bu lispi çalıştırmak için önce lispi appload komutunu çalıştırarak yükleyin. ardından komut olarak m2 yazın.
sizden önce çizim birimini isteyecek. m ve cm diye. bundan sonra m2lerini toplamak istediğiniz kapalı nesneleri seçin. seçim işleminden sonra ekranda bir nokta gösterin. seçilen nesnelerin toplamını göstermiş olduğunuz yere yazar.
başka bir hata veriyorsa o hatayı yazın. ona göre çözüm üretelim...
lisp i sorunsuz yuklememe ragmen bunu kullanamıyorum. nasıl kullanıldığını ayrıntılı şekilde anlatırsanız sevinirim.
merhaba arkadaslar lispleri kopyalama sansi yokmu? yazmakmi gerekiyor? tesekkurler
arkadaslar area komutuda işinize yarar diye düşündüm AREA -enter- S-enter-O_enter yapın sectiğiniz alanların toplam metrekaresini versin calıstıramayan arkadasların işine yarayabilir
arkadaşlar bende çalıştıramadım bu lispi
nasıl kullandığınızı anlatırsanız sevinirim
Çok güzel bir lisp belkide her çizim için 20 dakikayı, yapabileceğim hataları da katarsak faydasını anlatamam herhalde.... Bunu hazırladığın için çok teşekkürler....
calistiramadim
teşekkürler bende böyle bir lisp arıyordum.bu bilgileri paylaştığınız için çok teşekkür.
Birde seçilen alanın içine istediğimiz kadar armatür yerleştirebilirmiyiz.Sanırım böyle bir lispte vardı.onuda bizlerle paylaşırsan seviniriz.