Reklam

Çizim Paylaş

Bülten Aboneliği
*  E-posta adresiniz:



* Güvenlik kodu:

Seçilen objelerin alanlarını ve toplam alanı hesaplayıp yazan Lisp

This AutoLisp function calculates the area and total area of the selected objects, and writes to the selected point.
ProhibiT - 21.07.2011 18:05
Yazar: ProhibiT
İçerik: autocadokulu.com

(Kontrol panelinizde görünür)
Komut adı: ALn
-.Rar dosyasının şifresi: www.cizimokulu.com



    °°° 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.

Şifre: www.cizimokulu.com
Download sayısı: 5587, Boyut: 0.04 mb
Yorumlar :
karamercimek   20.11.2016 20:37 #15727  

malesef ben de çalışmadı bu lispi çalıştırmanın başka bir yolu varmı arkadaşlar sürekli hata veriyor.

3demre   28.10.2016 10:51 #15715  

Lisp çalışmıyor (autocad 2013)

akraba   28.04.2016 16:14 #15660  

İndirdiğim Lispi çalıştıramadım hata bende mi yoksa sorun mu var anlayamadım

manyaks99   17.02.2016 14:39 #15637  

sağolasın eline sağlık

cantarik   24.11.2015 18: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 09: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 09: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 15:37 #15484  

2013 için uyumsuzluğumu mevcut çalıştıramıyoruz "; error: bad argument type: streamp nil" hatası veriyor.

erka28   27.08.2014 10:53 #15391  

Güzel bir lisp olmuş. Elinize sağlık Herkese tavsiye ederim.

murat023   13.07.2014 18:56 #15375  

lisp bnde çalışmadı nasıl çalıştırabilirim

ugure   13.05.2014 01: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 11: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 14: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 14: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 15: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 17: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 21:48 #14909  

sevgili ProhibiT ve M. Şahin GÜVERCİN, çok kullanışlı ve güzel bir program.ellerinize sağlık!

namalad   15.12.2012 12:28 #14894  

2010 çalıştı

kesinhesapci   04.07.2012 18: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   24.05.2012 01: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

handanturan   19.01.2012 17:29 #14471  

proje metrajlarında kullancağım. sorun olmaz değil mi ?

kesinhesapci   10.11.2011 12: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

ilterdurmaz   19.10.2011 23:30 #14334  

Lisp bende çalışmadı.

sercanozkan   06.09.2011 18:38 #14249  

süper olmuş elinize sağlık çok kullnışlı

Copyright © 2004-2018 | Tüm Hakları Saklıdır | 2752 | Site haritası | İstatistikler | Hakkımızda | Kadromuz | Gizlilik | Reklam