ProhibiT - 21.07.2011 14:05
Seçilen objelerin alanlarını ve toplam alanı hesaplayıp yazan Lisp
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
recep_xyz 18.08.2023 08:03 #16141
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
KcRasco 25.09.2019 13:16 #15979
autocad 2020 de çalışmıyor malesef. aşağıdaki hatayı alıyorum
error: bad argument type: streamp nil
akifyk 18.04.2019 09:59 #15957
Sayın Yetkili,
Autocad civil 3d 2018'e yükledim ve ekli resimdeki hatayı veriyor. Nasıl düzeltebilirim?
blnt99lp 28.04.2018 11:45 #15878
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.
blnt99lp 28.04.2018 11:19 #15877
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
admin 06.02.2018 09:45 #15860
AutoCAD'i kapatın ve ikonun üstünde sağ klik yapıp yönetici olarak çalıştır deyin.
mustafakhaliqi 05.02.2018 23:07 #15858
Ö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
karamercimek 20.11.2016 17:37 #15727
malesef ben de çalışmadı bu lispi çalıştırmanın başka bir yolu varmı arkadaşlar sürekli hata veriyor.
akraba 28.04.2016 12:14 #15660
İndirdiğim Lispi çalıştıramadım hata bende mi yoksa sorun mu var anlayamadım
cantarik 24.11.2015 15:55 #15604
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.
eko650 25.02.2015 06:14 #15507
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
eko650 25.02.2015 06:14 #15506
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
melimeli 30.12.2014 12:37 #15484
2013 için uyumsuzluğumu mevcut çalıştıramıyoruz "; error: bad argument type: streamp nil" hatası veriyor.
ugure 12.05.2014 21:33 #15344
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.
ersintora 27.03.2014 08:43 #15311
2007 de diyalog penceresi geldi ama yazdırma işini yapamadım ve neden 2010 da çalışmamış olabilir?
ondertster 17.08.2013 10:54 #15147
Hocam süpersin çok teşekkür ediyorum. Bunu alanın altına çevreyi yazacak şekilde modifiye edebilirsek ellerinden öperim
ProhibiT 16.03.2013 11:38 #15014
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.
engayin 05.03.2013 12:46 #15005
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
brzdm 08.01.2013 14:24 #14928
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.
fatihkur 24.12.2012 18:48 #14909
sevgili ProhibiT ve M. Şahin GÜVERCİN, çok kullanışlı ve güzel bir program.ellerinize sağlık!
kesinhesapci 04.07.2012 14:50 #14696
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..
memitanli 23.05.2012 21:19 #14646
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
kesinhesapci 10.11.2011 09:02 #14370
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