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ı
Seçilen objelerin alanlarını ve toplam alanı hesaplayıp yazan Lisp
ProhibiT - 21.07.2011 14:05
Komut adı: ALn
°°° LwPoLyLine, 3DPoLyLine, PoLyLine, Spline, Ellipse, Circle, Region ve Hatch objeleri tekil ya da gurup olarak seçilebilir.
°°° Tek bir obje seçilmiş ise bu objenin ortasına belirlenen kriterlere göre alanı yazılır ve çıkılır. Seçilen obje birden fazla ise ilgili objelerin ortalarına alanları yazıldıktan sonra, toplam alan kullanıcının göstereceği yere yazılır.
°°° Hesaplanan alanlar, o anda geçerli Color, Layer ve Text Style kullanılarak seçilen objelerin ortalarına, Toplam alan ise kullanıcının seçeceği yere yazılır.
°°° Toplam alan yazılacağı zaman, hesaplanan değere göre oluşan yazı ekranda görünür ve sürüklenip istenen yere bırakılır. Sürükleme işlemi sırasında, pickbox'ın bulunduğu yerde mevcut bir Text veya Mtext yazısı varsa bu yazı Highlight edilerek kulanıcının farketmesi sağlanır, o noktaya tıklanırsa seçilen Text veya Mtext objesinin içeriği değiştirilerek, Toplam alan yazılır. Boş bir yer seçildiğinde ise yeni bir Text objesi oluşturularak Toplam alan yazılır.
°°° Seçim sırasında, Crossing ya da Window kulanılırsa, seçilen bölgede yalnızca Listesi verilen obje türleri seçilir.
°°° Seçim yapılırken Add/Remove özelliği aktiftir. İstenen objeler seçim setinden çıkarılabilir, istenenler eklenir.
°°° PoLyLine türleri, SpLine ve Ellipse objelerinin kapalı olduğu kontrol edilmez. Kullanıcının sorumluluğundadır.
°°° 3DPoLyLine objelerinin vertex'leri farklı Z koordinatında ise, alan hesaplanmaz, toplama katılmaz ve yazılmaz.
°°° Alan Birimi/Çizim birimi, Ondalık basamak sayısı, Yazı yüksekliği, Alan yazısı Önek ve Soneki açılan diyalog kutusundan kolayca belirlenir. Dosya kapatılıncaya kadar, fonksiyon tekrar çalıştırılınca bu değerler hatırlatılır.
°°° Çizim cm. biriminde hazırlanmışsa ve Alanlar m² biriminde yazdırılmak isteniyorsa; Alan birimi/Çizim birimi -> m/cm -> 100/1= 100 girilmelidir.
°°° Önek ve Sonek değerleri istendiği gibi girlebileceği gibi, ilgili bölümlerin biri ya da her ikisi de boş bırakılarak, hesaplanan alanın sayısal değeri yazdırılabilir. Önek ve Sonek içinde boşluk karakteri kullanılabilir. Örneğin; "A=", "A= ", "m²" veya " m²" şeklinde bu değerler girilebilir.
- İstenirse seçilen nesnelerin alanlarıyla birlikte çevreleri de yazdırılacak şekilde düzenlendi. Toplam çevre yazılmaz.
Kolay gelsin.
En: This AutoLisp function calculates the area and total area of the selected objects, and writes to the selected point.
tag: Seçilen objelerin alanlarını ve toplam alanı hesaplayıp yazan autolisp fonksiyonu lsp dosyası download
Yazar: ProhibiT
İçerik: LSP (Lisp) formatında AutoLISP uygulama dosyası
Tag: Seçilen, objelerin, alanlarını, ve, toplam, alanı, hesaplayıp, yazan, autolisp, fonksiyonu, lsp, dosyası, download
Hocam bir sorum olacak ALN.DCL oluşurken böyle karakter sorunları oluşuyor.
Bu karakter sorunları nasıl düzeltilebilir.
Koordinat verileri liste oluşturarak txt yapıyorum türkçe karakterlerde bu sorunu nasıl atlatabiliriz????
ALn:dialog{
label="**** Alan Hesaplama ve Yazd�rma ****";
: boxed_column{
: edit_box{label=" Yaz�lacak Birim/�izim Birimi:";key="Luf";edit_width=4;}
: edit_box{label="Ondal�k Basamak Say�s�:";key="dpL";edit_width=4;}
: edit_box{label=" Yaz� Y�ksekli�i:";key="txh";edit_width=4;}
: edit_box{label=" Alan Yaz�s� �neki:";key="Lea";edit_width=4;}
: edit_box{label=" Alan Yaz�s� Soneki:";key="Tra";edit_width=4;}
: toggle{label=" �evre Yaz�lacak m�?:";key="Cvr";}
spacer;spacer;}
: boxed_row{: text{key="CpR";value=
" Hazırlayan:M.Şahin Güvercin - www.cizimokulu.com"
;}}
ok_cancel;}lacak aln.dcl oluşturulurken
autocad 2020 de çalışmıyor malesef. aşağıdaki hatayı alıyorum
error: bad argument type: streamp nil
Sayın Yetkili,
Autocad civil 3d 2018'e yükledim ve ekli resimdeki hatayı veriyor. Nasıl düzeltebilirim?
Dosyada virüs var.
Lisp'in çalışması için bütün yolları denediğimi söylemiştim. Buna AutoCAD'in yüklü olduğu klasördeki acad.exe dosyasını "Yönetici olarak çalıştır"ı seçmeme rağmen lisp yine çalışmadı. Fakat gözden kaçırdığım bir şey vardı o da; bu işlemi AutoCAD açıkken yapmıştım. Çünkü AutoCAD halihazırda yönetici olarak çalıştırılmamış durumdaydı. Doğrususu; önce AutoCAD'i kapatıp sonra C:\Program Files\Autodesk\AutoCAD 20?? adresindeki acad.exe dosyasını "Yönetici olarak çalıştır"mak idi, öyle yaptım ve Lisp çalıştı. Lispi bir türlü çalıştıramayan arkadaşlar bu ayrıntıya dikkat ederlerse sorunu çözebilirler.
Bu lispi ben de çalıştıramadım. Bir kaç farklı lisp kullanıyorum, hepsi çalışıyor fakat buna ne yaptıysam olmadı. Üyelerin ve adminlerin lispin çalışabilmesi için önerdikleri bütün çözüm yollarını denedim, fakat sonuç değişmedi. Lisp yüklenirken bir hata vermiyor, fakat lispi çalıştırmak için ALn komutunu girdiğimde aşağıdaki hata mesajını veriyor:
Command: _appload aln.lsp successfully loaded.
Command:
Hazirlayan: M.Sahin Guvercin - www.cizimokulu.com
Command:
Command: ALN ALn:dialog{
label="**** Alan Hesaplama ve Yazdirma ****";
: boxed_column{
: edit_box{label=" Yazilacak Birim/Çizim Birimi:";key="Luf";edit_width=4;}
: edit_box{label="Ondalik Basamak Sayisi:";key="dpL";edit_width=4;}
: edit_box{label=" Yazi Yüksekligi:";key="txh";edit_width=4;}
: edit_box{label=" Alan Yazisi Öneki:";key="Lea";edit_width=4;}
: edit_box{label=" Alan Yazisi Soneki:";key="Tra";edit_width=4;}
: toggle{label=" Çevre Yazilacak mi?:";key="Cvr";}
spacer;spacer;}
: boxed_row{: text{key="CpR";value=
" Hazýrlayan:M.Þahin Güvercin - www.cizimokulu.com"
;}}
ok_cancel;}
; error: bad argument type: streamp nil
AutoCAD'i kapatın ve ikonun üstünde sağ klik yapıp yönetici olarak çalıştır deyin.
Öncelikle merhabalar Şahin hocam Lispi yükledim yanlız çalıştırırken "ok_cancel;}
; error: bad argument type: streamp nil " diyor nerde hata yapıyorum yardımcı olursanız çok sevinirim böyle bir lispe çok ihtiyacım var .teşekkür ederim
mükemmel birşey elinize sağlık
malesef ben de çalışmadı bu lispi çalıştırmanın başka bir yolu varmı arkadaşlar sürekli hata veriyor.
Lisp çalışmıyor (autocad 2013)
İndirdiğim Lispi çalıştıramadım hata bende mi yoksa sorun mu var anlayamadım
sağolasın eline sağlık
bunla alakalı forum da samanlık ta iğne aradım resmen. biz nerede hata yapıyoruz sorusunun cevabını nerede bulabiliriz yardımcı olurmusunuz.
Command: ALN
ALn:dialog{
label="**** Alan Hesaplama ve Yazdırma ****";
: boxed_column{
: edit_box{label=" Yazılacak Birim/Çizim Birimi:";key="Luf";edit_width=4;}
: edit_box{label="Ondalık Basamak Sayısı:";key="dpL";edit_width=4;}
: edit_box{label=" Yazı Yüksekliği:";key="txh";edit_width=4;}
: edit_box{label=" Alan Yazısı Öneki:";key="Lea";edit_width=4;}
: edit_box{label=" Alan Yazısı Soneki:";key="Tra";edit_width=4;}
: toggle{label=" Çevre Yazılacak mı?:";key="Cvr";}
spacer;spacer;}
: boxed_row{: text{key="CpR";value=
" Hazırlayan:M.Şahin Güvercin - www.cizimokulu.com"
;}}
ok_cancel;}
; error: bad argument type: streamp nil
Command: ALN
ALn:dialog{
label="**** Alan Hesaplama ve Yazdırma ****";
: boxed_column{
: edit_box{label=" Yazılacak Birim/Çizim Birimi:";key="Luf";edit_width=4;}
: edit_box{label="Ondalık Basamak Sayısı:";key="dpL";edit_width=4;}
: edit_box{label=" Yazı Yüksekliği:";key="txh";edit_width=4;}
: edit_box{label=" Alan Yazısı Öneki:";key="Lea";edit_width=4;}
: edit_box{label=" Alan Yazısı Soneki:";key="Tra";edit_width=4;}
: toggle{label=" Çevre Yazılacak mı?:";key="Cvr";}
spacer;spacer;}
: boxed_row{: text{key="CpR";value=
" Hazırlayan:M.Şahin Güvercin - www.cizimokulu.com"
;}}
ok_cancel;}
; error: bad argument type: streamp nil
2013 için uyumsuzluğumu mevcut çalıştıramıyoruz "; error: bad argument type: streamp nil" hatası veriyor.
Güzel bir lisp olmuş. Elinize sağlık Herkese tavsiye ederim.
lisp bnde çalışmadı nasıl çalıştırabilirim
Bu paylaşımı yapan kişiye çok teşekkür ediyorum. Tüm gün boyunca uğraştım olmadı. Fakat sorunumun kaynağının AutoCAD lisp i kullanacağı zaman C:\Programfiles\Autodesk\Autocad????\support bölümünde kullanacağı dosyaları kendisi oluşturuyor eğer Windows kullanıcısıysanız bu dosya klasörüne erişim izinleri açmanız gerekiyor bu şekilde komut çalışır duruma geliyor. Bu sorunu çözdükten sonra LISP mükemmel bir şekilde çalışıyor. Beni çok büyük uğraşlardan kurtardığı için hazırlayan arkadaşa çok teşekkür ediyorum.
2007 de diyalog penceresi geldi ama yazdırma işini yapamadım ve neden 2010 da çalışmamış olabilir?
Hocam süpersin çok teşekkür ediyorum. Bunu alanın altına çevreyi yazacak şekilde modifiye edebilirsek ellerinden öperim
Arkadaşlar, "Lütfen sorularınızı buraya değil, FORUM bölümüne yazınız, buraya yazdığınız sorular cevapsız kalacaktır!" diye açıkça yazılmış. kesinhesapci ve engayin arkadaşlarımız sorularını forumda sorsalardı çoktan cevaplarını almış olacaklardı. "Lisp hata veriyor" şeklinde bir ifade hiç hoş değil. Lisp hata mata vermez! Neden "... ben nerede yanlış yapıyorum ..." diye sormuyorsunuz? Yapılan hata ve doğrusunun ne olduğunu forumda bulabilirsiniz.
Lisp hata veriyor...
Command:
ALN ALn:dialog{
label="**** Alan Hesaplama ve Yazdırma ****";
: boxed_column{
: edit_box{label=" Alan Birimi / Çizim Birimi:";key="Luf";edit_width=4;}
: edit_box{label="Ondalık Basamak Sayısı:";key="dpL";edit_width=4;}
: edit_box{label=" Yazı Yüksekliği:";key="txh";edit_width=4;}
: edit_box{label=" Alan Yazısı Öneki:";key="Lea";edit_width=4;}
: edit_box{label=" Alan Yazısı Soneki:";key="Tra";edit_width=4;}
spacer;spacer;}
: boxed_row{: text{key="CpR";value=
" Hazırlayan:M.Şahin Güvercin - www.autocadokulu.com"
;}}
ok_cancel;}
; error: bad argument type: streamp nil
Bu problemi asmanın bir yolu varmıdır..
aynı hatayı bende aldım bir çözümü yokmu lütfen yardımcı olun
ellerinize sağlık çok kullanışlı bir şey. ancak dikkat edilmesi bir nokta var ki başıma ilk kullanışta geldiği için acaba lisp hatalı mı çalışıyor dedim. alanını öleceğiniz bir objeyi kopyalarken çizim esnasında yanlışlıkla ya da bilerek üstüste 2 tane aynı çizimden varsa ve alan ölçümü için toplu olarak seçtiyseniz tümünün alanını alıyor.
misal bende 751.11 çıkması gereken alan toplamda 1538 gibi bir toplam veriyordu. sorun çözümünü bu şekilde hallettim.
sevgili ProhibiT ve M. Şahin GÜVERCİN, çok kullanışlı ve güzel bir program.ellerinize sağlık!
2010 çalıştı
Lisp hata veriyor...
Command:
ALN ALn:dialog{
label="**** Alan Hesaplama ve Yazdırma ****";
: boxed_column{
: edit_box{label=" Alan Birimi / Çizim Birimi:";key="Luf";edit_width=4;}
: edit_box{label="Ondalık Basamak Sayısı:";key="dpL";edit_width=4;}
: edit_box{label=" Yazı Yüksekliği:";key="txh";edit_width=4;}
: edit_box{label=" Alan Yazısı Öneki:";key="Lea";edit_width=4;}
: edit_box{label=" Alan Yazısı Soneki:";key="Tra";edit_width=4;}
spacer;spacer;}
: boxed_row{: text{key="CpR";value=
" Hazırlayan:M.Şahin Güvercin - www.autocadokulu.com"
;}}
ok_cancel;}
; error: bad argument type: streamp nil
Bu problemi asmanın bir yolu varmıdır...
Selamlar..
Arkadaşlar merhaba ben bu linki yükledim. fakat hangi komutla çalıştığını bulamadım yardımcı olursanız sevinirim. ilginize şimdiden teşekkürler
proje metrajlarında kullancağım. sorun olmaz değil mi ?
toplam alanın yazılacağı yer diyor.Enter=çıkış diyor sayfayı tıklıyorum komuttan cıkıyor. ben mi yanlış yapıyorum yardım edermisiniz lütfen
Lisp bende çalışmadı.
süper olmuş elinize sağlık çok kullnışlı