AUTOCAD 2015
%30 İndirimli
SOLIDWORKS 2014
%30 İndirimli
 Üye Ol 
Ücretsiz Kullanıcı Adı Şifre Beni Hatırla Şifremi unuttum
Online
Eski Galeri  
> 1 <

İleti Yazar
21.05.2011 21:22 GMT
64402      




sisecam

[2] Acemi

Online Durumu

12 ileti
teknik ressam
mersin

Selamlar..

öncelikle sitede aradım sadece 1 konu bulabildim ama oda eskimiş ve linki çalışmıyor.

bana lazım olan başlıktanda anlaşılacağı gibi bir lisp..
bu lispin benden isteyeceği mesela ukg yazacağım lisp bana "kaçlık u" diye soracak "120" lik u yazdığımda boyunu soracak "2000" mm yazdığımda kilosunu bulacak.

birde benim düşüncem u profilin kesit alanları her birinde farklı olduğu için sizide uğraştırmamak için gerekirse sadece 100 lük u nun kesit alanından hesab edin bana geri kalanı şu şekilde devam ettirebilirsin diyin..Ama "ukg" yazdığımda bütün "u" ların ağırlıklarını bulabileyim.. yani 100 lük 120 lik 300 lük vs.Vs..

aynı döngüyü ı profil ve köşebentlerdede kullanacağım..

teşekkür ederim

22.05.2011 11:28 GMT
64404      




yazgunesi

[70] Editör

Online Durumu

524 ileti
Teknik Ressam
Çanakkale

Sitemizde yeterince araştırma yapmamışsınız sanırım.. aşağıdaki linkleri incelemenizi öneriyorum.



Linkleri görebilmek için ÜYE olmalısınız.





Linkleri görebilmek için ÜYE olmalısınız.

----------------------------------
www.cizimokulu.com

22.05.2011 18:45 GMT
64405      




sisecam

[2] Acemi

Online Durumu

12 ileti
teknik ressam
mersin

Yazgüneşi öncelikle teşekkürler cevapladığınız için,

1. vermiş olduğunuz linkte benimde yazılarım var düz plaka için onu kullanıyorum zaten.

2. linkteki lisp ler benim ihtiyacımı karşılamıyor yani ben istiyorumki lispi çalıştırdığımda benden sadece aşağıdakileri istesin..

command: ukg

lütfen unp seçiniz : 120

lütfen boy giriniz : 2500

sonuç : ..... kg.

yani ben 1 metre ağırlığı girmeyim istiyorum.. bu şekilde tüm npu ların 1 metre ağırlığını yada 1 birim ağırlığını ben lispin içinde halledeyim istiyorum.. bilmem daha açıklayıcı olmuşmudur.. bu şekli ile daha kullanışlı olacağı kanısındayım. en azından elimin altında 1 metre npu ağırlığı olmadanda ağırlık çıkarabilmiş olurum.

teşekkürler.

22.05.2011 21:46 GMT
64407      




ProhibiT

[70] Editör

Online Durumu

1457 ileti
İnşaat Mühendisi
Ankara

Böyle bir işlem için neden ilk aklınıza gelen lisp'ten bahsediyorsunuz ki? toplama, çıkarma veya çaprma gibi işlemler için de lisp fonksiyon yazılmaz, buldozerle saksı dibi eşelenmez. bahsettiğiniz işlemleri standart autocad komutlarıyla zaten yapabilirsiniz. autocad komut satırından cal girin hesap makinesi satırında bahsettiğiniz işlemi yapın, hatta buna bile gerek yok, bir excel tablosunu ole object olarak bağlayın, istediğinizden de fazlasını burada yapabilirsiniz.

illede istiyorsanız; bir block oluşturun, block içinde bir lookup table ile profil ağırlıklarını girin (yani dinamik bir block oluşturun). block içinde oluşturacağınız bir attribute'e value olarak bir field tanımlayın. oluşturduğunuz block'u profilin yanına insert edip, profil uzunluğunu field'a bağlayın... hem yukarıda bahsettiğiniz ağırlık hesaplama işlemini yapmış olursunuz, hem de profil boyunu tanımlayan çizginiz edit edildiğinizde ağırlık değeriniz otomatik olarak update edilmiş olur.

bunlar çok karmaşık geldiyese, bir tek attribute'ten oluşan bir block oluşturun, block'unuzu insert ettikten sonra attribute edit'e girin buradan attribute value bölümünün yanındaki field ikonuna tıklayarak profil boyunu bağlayın. field'ı tanımlarken çizgi boyu ile profilin birim boy ağırlığını çarpacak şekilde additional format bölümünü düzenleyin.

sonuç olarak, bir konuda fonksiyon yazmaktan bahsetmek için, ortada bir algoritma, bir mantık dokusu ve akış olmalıdır, öyle dört işlem yapan bir lisp fonksiyon kendini kandırmaktan ibaret kalacaktır. yukarıda bahsettiğim yöntemler size uzun ve karmaşık geliyorsa, kim uğraşacak diyorsanız; böyle sanat değeri olmayan bir lisp fonksiyonu yazmak için kim ve neden uğraşsın ki?

son olarak, bir yandan lisp öğrenmek bir yardan da işinizi görmek için oturun buradan başlayın lisp yazmaya. O kadar zor değil,
Kod: (Seç)

(setq Profil (getint "\nProfil ebadı: "))
(setq Boy (getreal "\nProfil uzunluğu: "))
(cond ((= Profil 80) (setq BirimBoyAgirliği 12.1))
         ((= Profil 100) (setq BirimBoyAgirliği 13.4))
          .
          .
          .
)
(setq Agirlik (* Boy Agirlik))
(princ (strcat "\n" (rtos Agirlik)))

şeklinde bir fonksiyon yazmayı deneyin bence. burada 12.1 ve 13.4 değerlerini örnek olması bakımından uyduruk değerler olarak yazdım.

kolay gelsin.


Bu mesaj ProhibiT tarafından düzenlendi (23.05.2011 05:35 GMT, --- önce)

Where there is a will, there is a way... Beğenmek için anlamak lazım...

23.05.2011 05:32 GMT
64410      




sisecam

[2] Acemi

Online Durumu

12 ileti
teknik ressam
mersin

Hocam yanlış anlamayın yaptığınıza sonsuz saygım var. olmamasıda mümkün değil çünkü bilmiyorum..

sizde haklısınız unp nin ağırlığının nasıl çıkacağına dair bir lisp var zaten, bu adam ufak tefek değişiklik istiyor ve sadece kendisi için istiyor.Belkide bencillik. evet haklısınız..

mevcut yazlılmış unp ler etli boru vs için öyle bir konu var olunca dedimki bunu daha kullanışlı kılabilirmiyiz.

siz olaya sanat yönüyle bakarken ,günümüz şartlarında ben işi hızlandırma, yaptığım işe + katma yönünde böyle bir talepte bulunmuştum.

bu lispte 1 metre unp ağırlıkları autocad e gömülü olsun istemiştim. herhangi bir program yada evrak kullanmadan direk autocad de işimi görmek istemiştim.

küstahlık gibi algılanmasın ama öğrendiğim kadarı ile lisplerinde amacı listeleme , matematiksel işlemler yaptırma , zamandan tasarruf diye düşünüyorum.

bir kusurumuz var ise affola..

teşekkürler ilgi alakanıza..

> 1 <
Yukarı Çık
Copyright © 2004-2014 | Tüm Hakları Saklıdır | 79 | Site haritası | İstatistikler | Hakkımızda | Kadromuz | Gizlilik | Reklam
AKPINAR Eğitim ve Yazılım Merkezi