26.10.2009 06:13    

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

27.10.2009 20:36    

aressen
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 07:30    

chico1907
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 13:17    

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

01.12.2009 09:28    

chico1907
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 09:58 GMT)

01.12.2009 17:49    

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

04.12.2009 07:50    

ozerluleci
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 12:18    

ProhibiT
Kod:

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

04.12.2009 12:35    

ozerluleci
ProhibiT kardeşim.

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

04.12.2009 13:36    

ProhibiT
:)

04.12.2009 13:44    

ehya
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 18:07    

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

11.12.2009 06:51    

chico1907
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 (18.12.2009 21:41 GMT)

18.12.2009 17:58    

id
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 11:56    

chico1907
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 12:51 GMT)

29.12.2009 21:45    

berferan68
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

29.12.2009 22:35    

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

30.12.2009 13:41    

berferan68
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 19:23    

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

30.12.2009 21:07    

berferan68
İ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] [90] [95] [100] Sonraki Sayfa
Copyright © 2004-2022 SQL: 2.013 saniye - Sorgu: 102 - Ortalama: 0.01973 saniye