Acemi AutoLISP kullanıcıları bu bölüme

Forum Menüsü

AutoCAD Genel

AutoCAD Eğitimi

3ds Max

Ziyaretçi: 606, Üye: 2
emin-dogan, macros55

Detaylar »

Forumlar > Acemi AutoLISP > Acemi AutoLISP kullanıcıları bu bölüme

Bu başlığı inceleyenler : 1 ziyaretçi, 0 üye : ---

İleti	Yazar
28.01.2022 06:38 89331	ProhibiT Yetkili 1611 ileti İnşaat Mühendisi Ankara
İ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. Beğenmek için anlamak lazım...
admin
28.01.2022 13:30 89334	ehya Yönetici 3554 ileti Teknik Ressam Ankara
Hocam bildiğim kadarıyla bugün itibariyle bu sorunlar tamamen çözüldü. Aydın hocam site üzerinde güncellemeleri yaptı. Site önceki halinden daha hızlı artık. Forumda en çok talep ettiğimiz Beğen! butonu da geldi.. İnşallah bundan sonra daha da iyi olacaktır.
admin, BLack\|E, halilozcakir, ProhibiT
28.01.2022 16:56 89335	ProhibiT Yetkili 1611 ileti İnşaat Mühendisi Ankara
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. :) Beğenmek için anlamak lazım...
admin, ehya, halilozcakir
29.01.2022 09:44 89342	ProhibiT Yetkili 1611 ileti İnşaat Mühendisi Ankara
Bu başlık altındaki vl, vla ve vlax paylaşımımız alumina arkadaşımızın uyarısı üzerine değiştirilip düzenlenmiştir. Böyle kod zaptiyelerimiz olduğu sürece sırtımız yere gelmez. :) Şaka bir yana, paylaşımlarımızı ayrıntısıyla inceleyen, gördüğü hataları da nezaketinden özel mesaj yazarak ileten arkadaşlarımız sayesinde sitemizin müdavimleri ve takipçilerimiz filtreden geçmiş, hatalardan arınmış paylaşımlarımızla kendilerini güvende hissedebilirler. Selam ve saygılarımla herkese kolaylıklar dilerim. Beğenmek için anlamak lazım...
ehya, alumina
31.01.2022 14:06 89344	turgaygirgin Kıdemli Girişimci 37 ileti
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.
ProhibiT
20.02.2022 13:44 89431	turgaygirgin Kıdemli Girişimci 37 ileti
Slm, Model Ekranında herhangi bir açıda bir doğru parçası çiziyorum. (setq l (entget(car(entsel))) p1 (cdr(assoc 10 l)) p2 (cdr(assoc 11 l)) ang (angle p1 p2) ) ile doğru parçasının özelliklerini alıyorum.Ve, (entmake (list (cons 0 "RAY") (cons 8 "0") (cons 100 "AcDbEntity") (cons 100 "AcDbRay") (cons 10 p1) (cons 11 (polar p1 ang 1)) )) ile RAY çizmek istediğimde, doğru parçası ile aynı başlangıç noktasına sahip ,aynı yön ve doğrultuda bir Ray beklerken; başlangıç noktası aynı. yönü ve doğrultusu farklı oluyor. S1: Nedeni ne olabilir ? Ne kaçırıyorum? S2: Elimde bir liste var ve bu işlemleri listenin elemanlarına uygulayacağım.Ama eleman koordinat noktaları (10 x , y) (11 x , y) şeklinde. entmake ile RAY çizebilmek için noktaların (10 x , y , z) (11 x , y , z) olması şartmıdır? S3: Yaptıgım denemelerde z ile de, z olmadan da entmake Ray i oluşturuyor. Ama ekranda göremiyorum.Neden? Teşekkür ederim.Saygılar.

21.02.2022 11:33 89434	ProhibiT Yetkili 1611 ileti İnşaat Mühendisi Ankara
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. Beğenmek için anlamak lazım...
ehya, turgaygirgin
22.02.2022 09:55 89436	ProhibiT Yetkili 1611 ileti İnşaat Mühendisi Ankara
Merhaba, Ben de tam bir düzenleme yazıyordum ki, mesajınız benden bir kaç saniye önce siteye düştü. ehya (Mehmet Şamil Demiryürek) hocamın özel mesajla uyarısı üzerine yapılan düzeltme: entmake fonksiyonunda RAY nesnesinin (assoc 11 ile beklediği, Unit Direction Vector yani birim vektör. bu durumda entmake fonksiyonunuzu (entmake (list (cons 0 "RAY") (cons 8 "0") (cons 100 "AcDbEntity") (cons 100 "AcDbRay") (cons 10 p1) (cons 11 (list (cos ang) (sin ang)))) şeklinde düzenlerseniz ideal çözüme ulaşırsınız. İlk paylaşımınızda, polar fonksyionu büyük ihtimalle object snap'e yakalandığından (çizginin kendi endpoint'i mesela) hata oluyordu. Polar fonksiyonunu 0.0 referans alarak kullandığınızda, şansınıza orada herhangi bir nesne olmadığı için object snap'e yakalanmamış. Her zaman bu kadar şanslı olmayabilirsiniz. Eğer ille de polar kullanacağım derseniz, "osmode" değişkenini mutlaka kontrol altına almalısınız. Ya da, yukarıda verilen biçimde Birim vektörü cosinüs ve sinüs değerleriyle tanımlamanız gerekecektir. Vakit darlığından diğer sorularınıza (sorunuzun diğer kısmına) bakamadım. Kolay gelsin. Beğenmek için anlamak lazım...
ehya, halilozcakir, turgaygirgin
25.02.2022 16:12 89437	mttlp Kıdemli Uzman 183 ileti Makine mühendisi ankara
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. Size özel gelişmiş arayüzlerle yazılımlar yapılır. C#, Vb, .Net, python, Revit, Autocad, Autolisp ve Visuallisp yazılım.

26.02.2022 10:51 89438	turgaygirgin Kıdemli Girişimci 37 ileti
Alıntı mttlp : 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?

27.02.2022 09:26 89441	mttlp Kıdemli Uzman 183 ileti Makine mühendisi ankara
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? Size özel gelişmiş arayüzlerle yazılımlar yapılır. C#, Vb, .Net, python, Revit, Autocad, Autolisp ve Visuallisp yazılım.

27.02.2022 14:19 89443	turgaygirgin Kıdemli Girişimci 37 ileti
Alıntı mttlp : Onda başlangıç bitiş alınacak çizerken yine Derken? Ne demek istediginizi anlamadim.

28.02.2022 07:53 89444	mttlp Kıdemli Uzman 183 ileti Makine mühendisi ankara
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. Size özel gelişmiş arayüzlerle yazılımlar yapılır. C#, Vb, .Net, python, Revit, Autocad, Autolisp ve Visuallisp yazılım.

28.02.2022 08:19 89445	turgaygirgin Kıdemli Girişimci 37 ileti
Alıntı mttlp : 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. Polarla yaparım diye düşünüyorum.

Önceki Sayfa

[1] [2] [3] [4] > 5 <