29.10.2010 19:07

60402    

Bahsettiğiniz işlem bu kadar basit olmasa gerek:) Dirsekleri ne yapacaksınız? Resim düzlemine dik (Dikey) Kanalları nasıl metraja katacaksınız? Gibi pek çok noktada eksik kalır...

Bir diğer nokta da; AutoCAD programı ya da AutoLisp Fonksiyon müneccim değildir. Yazdığınız gibi "Arife tarif ne gerek" alsın hesaplasın yazsın diyemezsiniz.

Böyle bir metraj işlemini sık yapıyorsanız ve sizin için önemliyse, yani değerliyse; Piyasada bu işi bihakkın yapan programlar var. İçlerinden birini de, (belki de en kötüsünü) ben yazdım. Bedelini öder kullanırsınız. Bu yolu tercih ederseniz; tıklarsınız planda mekanın içine, Alan bulunur. Sorar yüksekliği Hacmi hesaplar. Verirsiniz Hava Değişim/Saat değerini Debiyi hesaplar. Belirlersiniz kanal içindeki maksimum/minimum hızları Kanallarınızı boyutlandırır. Kanallarda ve Dirseklerdeki sürtünme kayıplarını da göz önüne alarak, Üfleme ve emiş kanallarınızı Santralinize kadar düzenleyip dengeler. Ve sonunda da elbet Metrajlarınız da emrinize amadedir.

Şimdi birileri çıkıp, "Vay anasını sayın seyirciler, böyle bir program var kopyalayabileceğim. Ama Hardware Lock korumalı. Benim güzel hatırıma bunu crack'lermisiniz?" diyeceklerdir. Yok öyle yağma Hasan'ın böreği! Hilal-ı Ahmer'e çalışmıyoruz. Kendi ayağımıza da kurşun sıkacak birileri olmadığımıza göre...!

İhtiyacı, ilgisi, bilgisi olana burada bir fonksiyon paylaşıyorum. "Orası da şöyle olsa, burası da böyle olsa" türünden hiç bir değişiklik teklifine kulak asmayacağımı peşinen belirtmek isterim.

Apaçık kod veriyoruz, bileği yeten alır düzenler, değiştirir. Biz de bu alemde aramıza biri daha katıldı diye mutlu oluruz. Program yazan arkadaşlarımızın eleştirilerine her zaman açığım elbette, o başka bir boyut. Bunun dışında "...şurasına da kuş kondursak" şeklindeki kullanıcı isteklerine kulak asmaya başlayınca evin yolunu bulamıyoruz. Kimse kusura bakmasın! Kusura bakanlar da bi zahmet imzamı okusunlar :)

Kodların buradan alınıp Lisp dosyası oluştururken yapılan hatalar nedeniyle, kullanıma hazır dosyayı 174410-kame.rar tıklayarak indirebilirsiniz.

Hava kanalı metraj fonksiyonu download linki: 174410-kame.rar



Herkese Kolay Gelsin...

admin (05.04.2018 16:56 GMT)

Beğenmek için anlamak lazım...

31.10.2010 00:04

60413    

Kod başlangıcında görünen (defun c:KaMe () ... den de anlaşılacağı gibi fonksiyonun adı KaMe.
Burada verdiğim kodu Copy/Paste ile alıp (mesela Notpad'e) uzantısı -.Lsp olan bir dosya olarak kaydedin (mesela c:\.......\AutoCAD 2011\Support\KaMe.Lsp şeklinde)
Bundan sonra AppLoad ile bu fonksiyonu yükleyin... Fonksiyon kullanıma hazırdır.
AutoCAD Komut Satırından KaMe<┘ girmeniz yeterli...

Kolay Gelsin.

Beğenmek için anlamak lazım...

04.11.2010 12:40

60497    

AppLoad ile yüklediğinizde, "KaMe.lsp successfully loaded." türü mesaj alıyor musunuz? Yani fonksiyonumuz gerçekten yükleniyor mu?

Eğer Burada verdiğim Program kodunu, "c:\Program Files\Autodesk\AutoCAD 2011\Support" (bu yolu örnek olarak yazdım sizde farklı olabilir) klasörüne, mesela KaMe.Lsp olarak kaydettiyseniz... Dosya isminin KaMe.Lsp.Txt şeklinde yanlış olmadığından eminseniz...

AutoCAD Komut satırından
Command: (load "KaMe.Lsp")<┘ ;;girdiğinizde,
C:KAME ;;mesajını alıyorsanız...

Fonksiyonumuz başarıyla yüklendi ve KaMe komutumuz kullanıma hazırdır.

Yukarıda bahsettiğim dosya adı hatası Not defteri (NotPad) programı kullanılırken, kayıt işlemi sırasında "Kayıt türü" olarak "Metin Belgesi (*.txt)" seçili olduğunda ortaya çıkıyor. Bu tür AutoLisp Program dosyalarını kaydederken, "Kayıt Türü" olarak "Tüm dosyalar (*.*)" seçili olmalıdır. Aksi halde "DosyaAdı.Lsp.Txt" gibi aslında uzantısı txt olan dosya kaydetmiş olursunuz ve haliyle AutoCAD bunu AutoLisp Source Code olarak yükleyemez...

Kolay gelsin.

Beğenmek için anlamak lazım...

07.02.2011 04:48

62468    

Hata yakalam rutini içinde bir hata oluşuyor. ilk satırdaki; (princ er) yerine (princ e) yazarsanız hallolacaktır.

neden hata oluşup, hata yakalama rutinine gidildiği konusunda bir fikrim yok.
- read only bir klasörde dosya açmaya çalışıyor olabilirsiniz.
- kanal ebadı olarak seçtiğiniz obje text değil mtext veya block olabilir.
----------------------------------
(while (/= (cdr (assoc 0 (entget
(setq ebat (car (entsel "\nkanal ebadı yazısını seçiniz. . . ")))))) "text") (princ "\nsectiginiz obje bir text objesi olmalıdır!"))
----------------------------------
yerine
----------------------------------
(princ "\nkanal ebadı yazısını seçiniz. . . ")
(while (not (setq ebat (ssget ":s" (list (cons 0 "*text"))))) (princ "\nsectiginiz obje bir text objesi olmalıdır!"))
(setq ebat (ssname ebat 0))
----------------------------------
yazarsanız, fonksiyon hem text hem de mtext objeleriyle işlem yapacaktır.

kanal ebadının block veya attribute olması durumları, fonksiyonun maksadını aşan bambaşka durumlar.

kolay gelsin.

Beğenmek için anlamak lazım...

14.03.2011 00:25

63312    

Yaukarıda bahsettiğim değişikliklerin uygulanmış hali,

Linkleri görebilmek için Üye Ol veya Giriş Yap

den alınabilir.

ProhibiT (07.02.2012 07:26 GMT)

Beğenmek için anlamak lazım...

22.05.2011 22:00

64408    

Ilginç! bu fonksiyon burada paylaşılmadan çok sayıda ve değişik parametrelerle denendi, bahsettiğiniz türden bir hata ile hiç karşılaşılmadı. olası hata durumlarına göre yukarıdaki kodu *error* bölümünü tekrar düzenleyerek yeniledim, buradan tekrar alıp denerseniz, probleminiz çözülebilir. Eğer gene hata alıyorsanız;
satırını kaldırıp öyle çalıştırmayı deneyin. burada error trap fonksiyonu çok hayati değil aslında, tek amacı modemacro değerini boşaltmak ve eğer açık kaldıysa açılan dosyayı kapatmaktan ibaret.

ProhibiT (22.05.2011 22:10 GMT)

Beğenmek için anlamak lazım...

22.12.2011 17:19

67093    

KaMe fonksiyonun düzenlenmiş son halini

Linkleri görebilmek için Üye Ol veya Giriş Yap

linkinden alabilirsiniz.

ProhibiT (07.02.2012 09:53 GMT)

Beğenmek için anlamak lazım...

02.02.2012 11:56

67789    

"bad argument type: fixnump: ""bad argument type: streamp nil "hatası veriyor.

Saygılarımla Hocam.

07.02.2012 09:05

67809    

bad argument type: fixnump: ""
Hatasını verdi hocam. En iyisi autocad'i tekrar kurayim :)

09.02.2012 12:51

67835    

Hocam Elinize saglık 10 numara olmus sorunsuz calısıyor tesekkurler.