* E Posta Adresiniz:
* Kodu Girin:

İleti Yazar
26.10.2009 09:13
52799    
bud_0782

[10] Üstad

Online Durumu

321 ileti
Yapı Öğr.+Teknik Res.
Antalya

ölçülendirme yaparken, ölçü yazısını ölçülendirilen nesneye doğru yazacak bir lisp yazılabilir mi?mümkün mü?

~~~~~~~~~~~~~~~~~~~~~~~~
Düşün , hisset, uygula… İşte hepsi bu…
~~~~~~~~~~~~~~~~~~~~~~~~

27.10.2009 23:36
52859    
aressen

[1] Yeni üye

Online Durumu

1 ileti
teknik
istanbul

merhaba arkadaşlar benimde bi lisp isteğim olacak. ilgilenen üstadlara şimdiden teşekkür ediyorum.
isteğim... pl ile çizilmiş bir kare veya dikdörtken objeyi . kopyaladıktan sonra istediğimiz bir noktaya birinci tıkta yapıştırıp ikinci tıkta ise rotateleyerek istediğimiz konuma getirip bırakan sonra tekrar komuttan çıkmadan yine aynı işlemleri yapan bir lisp...

26.11.2009 10:30
53590    
chico1907

[1] Yeni üye

Online Durumu

6 ileti
tekniker
kocaeli

slm...

egzantrik redüksiyonun sac acılımyla cok karsılasıyorum.bunun hesabı ve çizimi cok zaman alıyor.bu konuy
la ilgili lisp olusturulmasında yardımcı olabilecek birisi varsa cok sevinirim...şimdiden cok tesekkur ederim...

26.11.2009 16:17
53594    
ProhibiT

[80] Yetkili

Online Durumu

1469 ileti
İnşaat Mühendisi
Ankara

Merhaba chico1907,

Aslında daha önce böyle bir lisp yaptım ama, incir çekirdeğine eziyet bir lisp idi.
Önce Katı model olarak eksantrik redüksiyonu oluşturuyor, daha sonra objeyi "shell" işlemi ile verilen sac kalınlığına göre kabuk haline getiriyor. Bu kabuğu, istenilen hassasiyet derecesine göre dilimlere ayırıyor, daha sonra düzleme yatırarak kesme ayrıtlarını align ederek birleştiriyordu.

Eğer Eksantrik Redüksiyon açılımının manuel olarak nasıl yapıldığını bilebilirsek (ki şu anda ben bilmiyorum) bunu AutoLisp ile bir fonksiyon halinde yazmak oldukça kolay.

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

01.12.2009 12:28
53644    
chico1907

[1] Yeni üye

Online Durumu

6 ileti
tekniker
kocaeli

merhaba prohibit,
redüksiyonun acılımını autocad de yaptım ve sorunsuz bi şekilde kaynatıldı.bu konuda öğrenmek istediğiniz kriterler neler ise size yardımcı olabilirim...ilginiz için şimdiden cok tesekkürler...

Lütfen mesajlarınızda küçük harf kullanın


ehya (01.12.2009 12:58 GMT)

01.12.2009 20:49
53660    
ProhibiT

[80] Yetkili

Online Durumu

1469 ileti
İnşaat Mühendisi
Ankara

Merhaba chico1907
Büyük Çap
Küçük Çap
Eksantirisite (merkezler arasındaki kaçıklık)
ve Yükseklik

Girildiğinde, eksantirik redüksiyon açılımını yapabilecek bir Lisp yazmak istiyorum...
Manuel olarak eksantirik redüksiyon açılımı yapmasını bilmiyorum.
Bu açılımı Hangi yolu izleyerek yaptığınızı bana öğretirseniz, bunu program haline getirmek istiyorum...
Selamlar, Sevgiler, Herkese Kolay Gelsin...

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

04.12.2009 10:50
53716    
ozerluleci

[2] Girişimci

Online Durumu

5 ileti
topoğraf
bursa

Arkadaşlar bana Sadece noktanın Z değerini yazan lisp lazım! yardımcı olursanız çok sevinirim.Şimdiden teşekkür ederim.

04.12.2009 15:18
53719    
ProhibiT

[80] Yetkili

Online Durumu

1469 ileti
İnşaat Mühendisi
Ankara

Kod:

(defun c:nokz() (princ (strcat "\nZ:" (rtos (caddr (getpoint "\nNokta seçiniz..."))))) (prin1))

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

04.12.2009 15:35
53720    
ozerluleci

[2] Girişimci

Online Durumu

5 ileti
topoğraf
bursa

ProhibiT kardeşim.

çok teşekkür ederim baya şime yarıycak.

04.12.2009 16:36
53722    
ProhibiT

[80] Yetkili

Online Durumu

1469 ileti
İnşaat Mühendisi
Ankara

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

04.12.2009 16:44
53723    
ehya

[90] Yönetici

Online Durumu

3197 ileti
Teknik Ressam
Ankara

konu ile alakası yok ancak, tüm üyelerden özel bir rica. Lütfen mesajlarınızda "Kardeşim, birader" v.s. gibi kelimeler kullanmayın. Prohibit hocam 52 yaşında. Ancak kendisine "kardeşim" diye hitap ediliyor. Hiç hoş bir durum değil. Lütfen bu konuda daha dikkatli olalım.

04.12.2009 21:07
53735    
ProhibiT

[80] Yetkili

Online Durumu

1469 ileti
İnşaat Mühendisi
Ankara

Merhaba ehya hocam

Öncelikle forumda sevgi, saygı ve seviyeyi korumak anlamında gösterdiğiniz özen için teşekkür ediyorum.

Biraz yukarıda gerçekleşen diyaloğu densizlik ve seviyesizlik olarak değerlendirmedim asla, gerçekten güldüm, ve bunu da buraya yansıttım. Forum ortamının sıcaklığı, heyecanlanıp dikkatli okumamak olarak değerlendirdim Yaşını yazmamış arkadaşımız, belki de benim akranımdır diye de düşündüm açıkçası )

Ciddiyet ve seviye konularındaki kaygınıza aynen katılıyorum. Bu arada, da bu ortamı paylaşan arkadaşlara bir şeyi hatırlatmak istiyorum; Yerli, yabancı, dünyanın pek çok ülkesinden insanların bulunduğu, pek çok ortama girip çıkıyorum, buradaki kadar sıcak, güzel ve gerçekten verimli bir ortam az rastlanır bir şey. Bunu değerinin bilinmesini rica ediyorum.

Kendi adıma bir bu ortamda, bir de gitarcıların toplandığı, paylaşımda bulunduğu, müzik severlerin takıldığı ortamda kendimi çok iyi hissediyorum. Keyifle takip ediyorum. Z koordinatını soran arkadaşa, "ID komutunu gir, noktayı seç, ekrandaki listeden Z koordinatını oku" da diyebilirdim biraz bende de muzırlık oldu açıkçası... Tek satırlık bir Lisp yazıverdim. Hiç gerek olmadığını, zaten kısa ve basit komutlarla işini görebileceğini nasılsa keşfeder diye düşünmüştüm

Selamlar, Sevgiler, Herkese Kolay gelsin...

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

11.12.2009 09:51
53925    
chico1907

[1] Yeni üye

Online Durumu

6 ileti
tekniker
kocaeli

Sayın ProhibiT;

Bahsetmiş olduğum açılımı teknik resim olarak aşağıdaki linkte yolluyorum. umarım size yardımcı olur. yardımlarınız için şimdiden çok teşekkürler







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


ehya (19.12.2009 00:41 GMT)

18.12.2009 20:58
54138    
id

[2] Girişimci

Online Durumu

14 ileti
mühendis
diyarbakır

Arkadaşlar bana bir line veya pl altındaki ve üzerindeki yazıları zıt yönlerde, komut satırı yoluyla gireceğim bir dik uzaklığa taşıyacak bir lisp lazım. Yardımcı olacak arkadaşlara şimdiden teşekkürler.
İyi çalışmalar....

26.12.2009 14:56
54397    
chico1907

[1] Yeni üye

Online Durumu

6 ileti
tekniker
kocaeli

sayın prohibit

eksantrik redüksiyon ile ilgili göndermiş olduğum resim sizin için yeterli oldumu?eğer resim üzerinde yardımcı olamadıgım bir ölçü varsa bilgi verebilirim.saygılarımla...


ehya (26.12.2009 15:51 GMT)

30.12.2009 00:45
54511    
berferan68

[1] Yeni üye

Online Durumu

5 ileti
İn. Tek
ankara

Arkadaşlar

autocadde çizilen bir line ı excele liste halinde yazdırabilir miyiz.Bu mümkün mü? Yani line olarak çizdiğimiz bir şekil olacak ve lispi çalıştırınca bir excel sayfasında mesela iki sütüna X ve Y olarak koordinatlarını yazdırabiliyor muyuz.

Eğer bu olmuyorsa en azında txt ye yazdırılabilir mi

Selamlar

30.12.2009 01:35
54514    
ProhibiT

[80] Yetkili

Online Durumu

1469 ileti
İnşaat Mühendisi
Ankara

merhaba chico1907,
gönderdiğiniz eksantirik redüksiyon açılımına hiç bakma şansım olmadı. Sıkça olduğu gibi gene çöken zavallı bilgisayarıma kavuşunca bakabileceğim. Ek açıklamalara ihtiyaç duyarsam sizinle irtibat kurup, yardımınızı rica edeceğim.

berferan68,
Sizin sorunuza gelince; bahsettiğiniz elbette mümkün.
Her konuda olduğu gibi, özellikle böyle bir konuda çözüm üretmek için öncelikle, problemi ve hedefi iyi tanımlamak lazım. Bundan sonra da, attığımız taş ürküttüğümüz kuşa değer mi? değerlendirmesini yapmak lazım

AutoCAD'de Line objesi yalnızca iki nokta koordinatlarından ibaret değildir.
Layer'ı, LineType'ı, Color'ı,...,v.b başka öznitelikleri de vardır normal olarak.
Bir başka detay da; biribirini izleyen bir çizgiler gurubunu ele alırsak. Bir çizginin bitimi diğerinin başlangıcı olacağından nokta koordinatları tekrarlanacaktır. Bunun yerine Çoklu Çizgi (Polyline) mantığıyla, bir başlangıç noktası koordinatı tanımlandıktan sonra, her yeni nokta koordinatı ile yeni bir çizgi (segment) tanımlanmış olur. excel dosyasına yada -.txt dosyasına hangi mantıkta yazdırmak hedefleniyor.

Bunlar tanımlandıktan sonra, AutoLisp veya VisualLisp ile excel dosyasına da yazdırılabilir, -.txt dosyasına da. Hatta VisulaLisp ile yazılırsa, fonksiyon AutoCAD içinden de, excel içinden de kullanıabilecek bir fonksiyon olarak yazılabilir...

Bahsedilen değerler bir dosyaya yazdırılıdığında nasıl kullanmayı düşünüyorsunuz? Ne işimize yarayacak? Belki de ilk adımda akla gelmeyen başka çözümler daha mantıklı olabilir.

Burada ihtiyacın şiddetine bağlı olarak, taş/kuş oranını iyi değerlendirmek lazım

Kolay Gelsin...

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

30.12.2009 16:41
54534    
berferan68

[1] Yeni üye

Online Durumu

5 ileti
İn. Tek
ankara

Sayın ProhibiT merhaba

Öncelikle konuya ilgi gösterdiğiniz için teşekkür ederim.

Su yapıları ile ilgili kayma ve devrilme,donatı hesabı yaparken autocadde çizdiğim ve içinden boru ve su geçen bir tespit kütlesinin koordinatları elle excele hesabına geçirerek, koordinatlardan alan,ağırlık merkezi,gerilme kontrolü,donatı hesabı yapıyorum.

Eğer ilk olarak autocadde çizdiğim şekil (kapalı alan) hesap olarak kurtarmazsa autocadde yeni bir şekil çizip tekrar koordinatları alıyorum. Ve excele yeniden giriş yapıyorum.Kurtarmazsa yeniden.

Hesap oldukça uzuyor. O nedenle ben ilk şekli (line ya da polyline olarak) çizdiğimde hemen excele aktarıp, kesitin kurtarmadığını görebilirsem kesiti biraz büyütüp yeniden aktarmam gerektiğinde işim çok kolaylaşacak.

Aslında şeklin autocaddeki koordinatını hafif değiştirdiğimde exceldeki koordinatı interaktif değişse inanılmaz olacak ama o kadarı da fantazi tabii.

İşin bir diğer yanı da elimdeki excel her koordinattan hesap yapmıyor koordinatları hep pozitif bölgeden alması gerekiyor. O nedenle ben bir "0" noktası tayin edip kesiti hep o noktanın sağında çiziyorum.

Bu anlamda ihtiyacım olan şey sadece seçili polyline koordinatlarını excelde 2 sütüna aktaran bir lisp.Olmadı txt den de alırım. Renk layer önemli değil

Selamlar

30.12.2009 22:23
54549    
ProhibiT

[80] Yetkili

Online Durumu

1469 ileti
İnşaat Mühendisi
Ankara

Merhaba berferan68,
İlk etapta işinizi göreceğini umduğum bir kaç satır paylaşmak istiyorum;
Kod:

(defun c:NokLs ()
  (setvar "cmdecho" 0)
  (setq cikut (open (getfiled "Nokta Listesi" "" "txt" 1) "w")
plln (entget (car (entsel "\nPolyline seciniz."))))
  (while (setq nokta (cdr (assoc 10 plln)))
    (setq xko (car nokta) yko (cadr nokta)
  plln  (subst (list 11 (cdr (assoc 10 plln))) (assoc 10 plln) plln))
    (write-Line (strcat (rtos xko 2 2) (chr 9) (rtos yko 2 2)) cikut)
  )
  (close cikut) (princ)
)

X ve Y koordinat değerlerinin arasına TAB (ascii 9) karakteri koydum ki; copy-paste işlemiyle excel'e aldığınızda 2 ayrı kolona yerleşsinler. Fonksiyonu çalıştırdığınızda açılacak diyalog kutusu ile mevcut bir -.txt dosyası seçerseniz, mevcut dosyadaki bilgilerin üzerina yazılacak ve eski bilgiler kaybolacaktır. Bu konuda program sizi uyaracaktır.


Bu noktada, excel ortamında yapılan işlemler aslında çok karmaşık bir algoritmaya sahip değillerdir.
Bu tür iterasyon, veya tatonman gerektiren işlemlerde, ya excel'de formülasyonu recursive yapmalı (ki bu durumda sonsuz döngüye -infinite loop- girme riski oluyor. Ben olsam excel'deki algoritmayı AutoCAD ortamına aktarmayı tercih ederdim.

Konuyu dağıttımsa kusuruma bakmayın

Kolay Gelsin...

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

31.12.2009 00:07
54550    
berferan68

[1] Yeni üye

Online Durumu

5 ileti
İn. Tek
ankara

İnanılmazsınız

Çok teşekkür ederim.

İyi çalışmalar

Önceki Sayfa [1] [2] [3] [4] [5] [6] [7] [8] > 9 < [10] [15] [20] [25] [30] [35] [40] [45] [50] [55] [60] [65] [70] [75] [80] [85] [86] Sonraki Sayfa
Copyright © 2004-2018 | Tüm Hakları Saklıdır | 1715 | Site haritası | İstatistikler | Hakkımızda | Kadromuz | Gizlilik | Reklam