09.08.2012 12:10    

arkadaşlar kanalizasyon projesinde kullanmak için profil programı arıyorum. Yağmur ve kanalın çakışmalarını yapabileceğim bir lisp varsa o da olur teşekkür şimdiden

29.08.2012 09:48    

Travaci

---

Öncelikle şahin hocam bu mesajını görseydi Türkçe'yi yanlış kullanmandan ve bozuk cümle kurulumundan dolayı güzel bir fırça çekerdi.

Sorunun cevabına gelince, yazdığından birşey anlamadığım için birşey diyemiyorum.
Alttaki kodu yukarıdaki bölüme mi uyarlamak istiyorsun? Öyle ise, neden kodunu yukarıdaki gibi düzenlemiyorsun?

29.08.2012 15:23    

Çizimde 10.9 ve 10,9'un dışında 10 ve 9 olan rakamlarıda seçiyor ? Sebebi nedir ? Sadece seçim setindekilerini seçtirmek için ne yapmalıyım.

03.09.2012 08:34    

tugrulsahin

---

Bu konu, autolisp ile ilgili soruların sorulduğu bölümdür. Lisp isteklerinin olduğu bölüm değildir.



travaci

---

Müsait olduğumda soruna bakacağım.

03.09.2012 22:03    

Bir sorum daha olucak, ikisini birden aradan çıkartırsanız sevinirim : )




Burda yapmak istediğim layer açtıktan sonra, açılan layer a geçip daha sonra xline veya xline larımı attıktan sonra, yanlışlıkla çıkması durumunda veya komutu bitirdiğimde eski layer a tekrar dönmesiydi. Fakat ilk line ımı attıktan sonra layer ilk haline dönüyor.

04.09.2012 18:41    

Hocam teşekkürler, bu şekilde yapmadım değil, fakat böyle olduğunda xline'ı çağırdığını göremiyorum, tıkladıktan sonra direk yerleştiriyor. Daha orjinal bişi olsun istedim olmadı : )

10.09.2012 17:38    

Okurken dikkatli okuyunuz, ya da sağlam kaynaklara başvurunuz.

Entnext: Returns the name of the next object (entity) in the drawing
(entnext [ename])
Arguments: ename (The name of an existing entity.)
Return Values : If entnext is called with no arguments, it returns the entity name of the first nondeleted entity in the database. If an ename argument is supplied to entnext, the function returns the entity name of the first nondeleted entity following ename in the database. If there is no next entity in the database, it returns nil. The entnext function returns both main entities and subentities.

Bahsedilen hangi kitaptır bilemiyorum ama, AutoCAD Help'ten yaptığım alıntının koyu yazdığım bölümünde açıkça, "entnext komutu argümansız olarak kullanıldığında, drawing database içindeki ilk silinmemiş obje döner." şeklinde açıklanmış. Bilindiği gibi AutoCAD ve AutoLSIP help dosyalarında köşeli parantez içindeki argümanların kullanımı, duruma ve isteğe bağlıdır, mecburi değildir, ihtiyaca göre kullanırız ya da kullanmayabiliriz. ename verirseniz, ondan bir sonraki obje döner. ename vermezseniz, çizim içindeki ilk silinmemiş obje döner.

11.09.2012 19:05    

Kimin yazdığı ve yazarın titri hiç önemli değil, kitap yazmak ciddi bir iştir. Bunca emek verip bir ürün ortaya koyan insanın bu tür bir hata yapacağını sanmıyorum. Bir önceki, bir sonraki paragraflarda mutlaka açıklanmıştır. Bu problem çözüldüğüne göre, yazdıklarımın ve eleştirilerimin doğru anlaşılıp değerlendirileceğini umarak, soru içindeki kod için başka bir eleştirim daha var.

Pek çok defalar yazdığım gibi, yazılan kod genel olmalıdır. Bu tür uyarılara genelde aldığımız cevap, "ben böyle de işimi görüyorum" oluyor. Çok zor olmayan bir disiplini edinmek yerine, yan yollara kaçmanın hiç bir gereği yok ki.

(setq es-sbuk (assoc 1 (entget (entnext (entnext (entnext (entnext (entnext (entnext (entnext pozno))))))))))
şeklinde askeri kıta gibi entnext dizmek eninde sonunda hataya sebep olacaktır. BLock tanımı (BLock definition) içinde yer alan attribute'lerin her zaman aynı sırada olacağını varsayamayız. Söz konusu bLock'u explode eder objelerini edit edip bLock'umuzu yeniden tanımlarsak (redefine edersek) Attribute'lerin sırası ters dönecektir (reverse order). Veya yeni bir çizime bLock'umuzu dışarıdan insert edersek Attribute'lerin sıralaması gene değişecektir. Böyle olunca da yazdığımız fonksiyon doğru çalışmayacaktır.

Bu noktada size bir ipucu daha vermem gerek. AutoCAD Database'indeki objeler hiyerarşik açıdan iki gurupta incelenir. Ana objeler (main Objects) ve alt objeler (sub objects).

entnext komutuna parametre olarak bir main object verirsek, o objeden sonra varsa sub object, yoksa bir sonraki main object döner. parametre olarak verdiğimiz main object çizimin son objesi ise nil döner.

entnext komutuna parametre olarak bir sub object verirsek, varsa bir sonraki sub object döner, sırada bir sub object yoksa nil döner, bir sonraki main object dönmez. Yani entnext komutu açısından sub object'lerin sonu çıkmaz sokaktır (dead end).

Bu durumda, bir Block objesi ele alınarak nil dönmediği sürece şartına bağlı bir döngü (loop) kurarsak, bLock main Object'inin altındaki tüm sub objects (örneğimizde attribute'ler) taranmış elden geçirilmiş olur.

Daha elle tutulur örneklersek; POZ isimli bir bLock'umuz ve be bLock altında da CAP, BOY ve ADET Tag'lı 3 tane attribute'ümüz olsun. Bu Attribute'lerin değerlerini Cap, Boy ve Adt değişkenlerine alalım.
Biz inatla yazdıkça sabırla okuyanlara kolay gelsin. :)

13.09.2012 13:04    

Appload yardımı
Merhaba arkadaşlar,
Yardımlarınız için şimdiden herkese teşekkür ederim.
Benim sorum lisplerin autocade yüklendikten sonra tekrar çalışması hakkında. Lispleri appload yaptıktan bir müddet sonra çalıştıramıyorum. Tekrar appload yapmam gerekiyor. Bunun sebebi ne olabilir acaba. Yardımcı olabilirseniz sevinirim.
Saygılarımla yfkyusuf

14.09.2012 09:19    

Content ile lispleri yüklediğimizde Regedite yüklenen lispleri kaydediyor..
Ben bunu lisp ile kaydetmesini istiyorum... Aşağıda ki şekilde de Regedite yazdırıyorum... Regedit açınca yazdığı görünüyo ancak regedit de ki NumStartup değeri de değişmiyo ve Appload / Content gibi de Autocade yüklenmiyor...
Bu dosyalar ayrıca başka biyere de kayıt yapılıyo mu? Başka şekilde bunları nasıl yükleriz?