28.01.2022 06:38    

İlgin ve iltifatın için teşekkür ederim Mehmet Hocam. Epeyce oldu bu yazıyı hazırlayalı aslında. Ne hikmetse, (belkide keramet bende ki,) bir tek beni etkileyen malum, HTTP Error 500 hatasından dolayı eklediğim resimler tam olarak görünmüyor. Resimler yerli yerine oturunca çok daha kolay anlaşılır ve takip edilebilir olacaktır.

28.01.2022 16:56    

Evet Mehmet Hocam, her şey yolunda görünüyor. Yukarıdaki paylaşımda da güncel resimler görnüyor artık.
Emeği geçenlere teşekkür ederiz. :)

31.01.2022 14:06    

Ağzınıza,emeğinize,ellerinize sağlık hocam.Teşekkür ederiz.Herzaman ki gibi aydınlatici bilgilerle, dopdolu bir paylaşım.
İyi ki varsınız.

21.02.2022 11:33    

Soruya soruyla cevap vermek pek adetim olmamakla birlikte;
- RAY objesi 2 nokta ile tanımlıdır. p1 ve p2 değeri belli iken neden ang gibi bir açı değeri hesaplama gereği duyuldu. ang değerini polar ile kullanmak için tutulduysa doğrudan p2 noktasını girmek yerine neden aynı yön ve oğrultuda yeni bir nokta üretme gereği duyuldu.
- İkinci sorunun cevabını üçüncü soruda vermişsiniz. RAY objesi Düzlemde tanımlıdır. yani z koordinatı vermezseniz alınmaz, darılmaz. ama z koordinatı verirseniz de görmezden gelir (, daha doğrusu geçerli elevation değerini alır.)
- entmake ile RAY objesini oluşturduktan sonra Zoom Object Last girerseniz büyük ihtimalle çizim nesnesini görebileceksiniz (, nesneyi oluşturduğunuz layer off veya freeze değilse elbette.)

Açıklamaya çalıştığım düşünce akışındaki hataların kaynağı konusunda tahminde bulunarak bir konuya dikkatinizi çekmek isterim. (setq l (car (entsel))) örneğinde olduğu gibi entsel fonksiyonunun neden daima (car ile kullanıldığını hiç merak ettiniz mi? (setq l (entsel)) şeklinde kullanıldığında, (<Entity name: 2b85c9cbeb0> (811040.0 914543.0 0.0)) şeklinde iki elemanlı bir liste elde edilir. İlk eleman seçilen objenin varlık adı (entity name), ikinci liste ise seçim yapılırken tıklanan noktanın x, y ve z koordinatlarıdır. Böyle bir kullanımla seçim yapılırken tıklanan noktanın çizginin hangi ucuna yakın olduğunu sorgulayabilir, dolayıyla sezgisel olarak seçilen çizginin hangi ucunun sonraki işlemde kullanılacağını belirleyebilirsiniz.

Kolay gelsin.

25.02.2022 16:12    

Alıntı

---

turgaygirgin :

Alıntı

---

ProhibiT :

---

İki noktan belli
Kordinatlara göre tek çizdiğin hattı Mehmet hocamızın dediği gibi polardan yapabilirsin ilk açıyı hesapla sonra 90 dereceyi hesapla sonrada kanal genişliğinin yarısı kadar ileri git sonra 4 köşeyi bulmuş olacaksın polyline belli olan kordinatları polyline ile çiz ray niye kullandığını anlamadım raydaki amacın ne ?


Merhaba Mehmet Hocam,
Hızlı yanıtınız için Teşekkür ederim. Mekanik Tesisat Projeleri çizen bir firmada çalışmaktayım. Havalandırma kanalı çizimi için bir lisp yazmaya çalışıyorum. Başlangıçta tek hat olarak line ile kanalın çizileceği güzergah ı çizip bir ağaç yapısı oluşturuyorum. Menfez noktalarına da text olarak menfezlerin debilerini yazıyorum. Programım dallanmanın uc kısımlarından başlangıc kısmına (Havalandırma Cihazı) kadar debileri toplayarak geliyor. Eş sürtünme yöntemine göre kanal ebatlarını hesaplıyor. Sistemin sürtünme basınç kayıplarını hesaplıyor. Bu aşamaya kadar geldim. Şimdi hesaplanan kanalları lisp ile çizdirmek için bir program yazmaya çalışıyorum. RAY benim yardımcı klavuz çizgilerim olacak. Bu amaçla entmake ile RAY oluşturmaya çalışıyorum.
Kanal listem bu tür bilgiler içeren bir dat dosyasında tutuluyor.
(("Pas" . 21) (10 8403.26 350.099) (11 8403.26 600.099) ("SNo" . "1") ("Fr" . "0") ("Styp" . "A") ("Shp" . "D") ("Mlz" . "4") ("H" . "350") ("W" . "450") ("L" . "2.5") ("Q" . "840") ("VE" . "5.3") ("EQTYP" . "NONE") ("FTTYP" . "None") ("AKST" . "H") ("ISIZO" . "E") ("SCK" . "H") ("FRZ" . "H") ("MXH" . "500") ("MXW" . "1500") ("OTL" . "0.0"))
(("Pas" . 20) (10 8403.26 600.099) (11 8553.26 600.099) ("SNo" . "2") ("Fr" . "1") ("Styp" . "A") ("Shp" . "D") ("Mlz" . "4") ("H" . "350") ("W" . "450") ("L" . "1.5") ("Q" . "840") ("VE" . "5.3") ("EQTYP" . "NONE") ("FTTYP" . "CR3-3") ("AKST" . "H") ("ISIZO" . "E") ("SCK" . "H") ("FRZ" . "H") ("MXH" . "500") ("MXW" . "1500") ("OTL" . "0.0"))
.....
(10 8403.26 350.099) (11 8403.26 600.099) tek hat çizgilerin koordinatları. Kanalın enine göre bu tekhat çizgileri referans alarak çizim yaptırmaya çalışacağım.
"- RAY objesi 2 nokta ile tanımlıdır. p1 ve p2 değeri belli iken neden ang gibi bir açı değeri hesaplama gereği duyuldu. "
RAY ile ilgili araştırma yaparken.
(entmake (list (cons 0 "RAY") (cons 8 "0") (cons 100 "AcDbEntity") (cons 100 "AcDbRay") (cons 10 p1)
(cons 11 p2 ) )) ile yapıldığında başlangıç noktası aynı, yönü doğrultusu farklı oluyor.
Başka forumlarda
(cons 11 (polar '(0 0 ) ang 1)) olduğunu gördüm. Bilgileri data dosyasından aldığım için, ve yeni bir sayfada entmake yapınca RAY ları zoom all yaptıgımda da görmediğimden, denemeler sonunda benim (cons 11 (polar '(0 0 ) ang 1)) oldu
(cons 11 (polar p1 ang 1)) . :)
Sorunlarımı çözdüm bu arada.
(entmake (list (cons 0 "RAY") (cons 8 "0") (cons 100 "AcDbEntity") (cons 100 "AcDbRay") (cons 10 p1)
(cons 11 (polar '(0 0 ) ang 1)) )) benim istediğim yön ve doğrultuda RAY çiziyor.
Ray in görünmesi olayınıda çözdüm ama burada nasıl tarif edebilirim bilmiyorum.
İlginiz için tekrar tesekkür ederim hocam. Sağolun.

---

27.02.2022 09:26    

Alıntı

---

turgaygirgin :

Alıntı

---

mttlp :

---

Onda başlangıç bitiş alınacak çizerken yine
Rayda toplamayı nasıl düşünüyorsun




Yalnızca tek bir kanal çizecek olsam yada bir dikdörtgen oluşturmaya çalışsaydım, dediğiniz olurdu. Tekhat çizgilerim kanal güzergahı için harita yalnızca. Fittingsleri çizerken ray klavuz olacak. Sadece şunu düşünün,4 mt arayla 2 adet pantalon yaptınız. İlk kanalınız 130x50 pantalondan sonraki 90x50 2.pantalondan sonraki kanal 40x50. Yalnızca tek hat çizgilerim yeterli olur mu?

---

28.02.2022 07:53    

Alıntı

---

turgaygirgin :

Alıntı

---

mttlp :
Onda başlangıç bitiş alınacak çizerken yine

---

Toplamayı nasıl yapmayı düşünüyorsun
Startpoint endpoint lineda var ondan dedim
ray ı kullanmadaki amacın ne onu anlamadım


Derken? Ne demek istediginizi anlamadim.

---