28.03.2011 05:33

63606    

Hat doğrusal mı? eğer öle ise array komutu ile noktaları oluşturup mevcut polyline a ekleyebilirsiniz son oluşturulan noktaları.

28.03.2011 06:59

63611    

Eğer öyle ise sanırım yolu yok

28.03.2011 10:00

63618    

Soruyu ben yanlış anlamıyorsam, ara mesafeler eşit değil. böyle ise divide ile çözülemez. ara mesafeler eşit ise elbette divide doğru çözüm...

Beğenmek için anlamak lazım...

28.03.2011 19:15

63626    

Ilginç bir soru :) pek çok çözüm yolu bulunabilir, aklıma gelen çözüm yollarının pek çoğu oldukça çetrefil. attığımız taş ürküttüğümüz kuşa değmeyebilir.

aklıma gelen çözüm yollarından en mantıklısı;
- obje seçildikten sonra, bölüm sayısı (ya da istasyon sayısı) belirlenir.
- belirlenen sayıda ara mesafe (veya başlangıca mesafe) girilir.
- ara mesafelerin ebob (en büyük ortak bölen, gcd greatest common devisor) değeri bulunur.
- bunun için ara mesafe değerleri tam sayı değilse önce tam sayıya dönüştürülmelidir.
- atolisp'te gcd fonksiyonu var ama, 2 sayının gcd'ını buluyor, bir seri sayının gcd değerini bulmak imkansıza yakın zor.
- bu noktada madem ara mesafeleri tam sayıya dönüştürdük, ebob yerine 1 kullanılabilir.
- bulunan ebob değerine göre polyline eşit aralıklara bölünür.
- istasyonlarla çakışmayanlar elimine edilerek sonuç elde edilir.

şeklinde bir algoritma ile çözülebilir.
okur yazar üstadlar verdiğim algoritmaya kafa yorarlarsa çözülebilir diye düşünüyorum.
şu anda seyahat hazırlığındayım, fırsatım olursa yazarım.

eğer soru sahibi arkadaşımız contar, ara mesafeler daima tam sayı derse çözüm oldukça basitleşecektir...

herkese kolay gelsin...

ProhibiT (28.03.2011 19:20 GMT)

Beğenmek için anlamak lazım...

30.03.2011 06:59

63649    

Arkadaşlar lisp yazana kadar
lengthen komutu ile tek tek yapabilirsin.

Command: len LENGTHEN
Select an object or [DElta/Percent/Total/DYnamic]: t
Specify total length or [Angle] <1250.00)>:
Select an object to change or [Undo]:

seçilen nesneyi istediğin uzunluğa getirmek için.

09.04.2011 22:57

63800    

Sayın prohibit hocam,
emeğinize ve aklınıza saygı duyarak bir küçük isteğim olacak,
yukardaki lispte kullanıcının seçtiği taraftan yapabilir mi nokta atma işlerini,
şuanda lisp sadece polyline'nın oluşturulma yönünden başlıyor nokta atmaya

şimdiden çok teşekkürler...

15.09.2017 08:52

85496    

Alıntı

---

ProhibiT :
Birden çok aralıktan bahsettiğimiz için, lengthen ile çözemeyiz. :)
yukarıda bahsettiğim algoritmayı çok daha basitleştirerek yazmıştım, şimdi paylaşma fırsatım oluyor.
kullanıcı, istasyon sayısını girdikten sonra, ihtiyacına göre ister ara mesafeleri, isterse başlangıca mesafeleri girebilir.

Kod:

;;;Prepared by: M. Şahin Güvercin 03.04.2011 - Herat
(defun c:NeD ()
  (setvar "cmdecho" 0) (command "undo" "group")
  (initget 1 "Baslangica Ara")
  (setq sttyp (getkword "\nBaslangica Mesafe / Ara Mesafe :"))
  (princ "\n Bölümlenecek PoLyLine'ı seçiniz...")
  (setq obj (ssname (ssget ":s" (list (cons 0 "*polyline"))) 0)
        sttnm (getint "\nİstasyon sayısı :") n 0 mlst nil)
  (while (<= (setq n (1+ n)) sttnm)
    (set (read (strcat "Ms" (itoa n)))
         (getreal (strcat "  " (itoa n) ". " sttyp " mesafe: ")))
    (if (and (= sttyp "Ara") (> n 1))
      (set (read (strcat "Ms" (itoa n)))
           (+ (eval (read (strcat "Ms" (itoa (1- n)))))
              (eval (read (strcat "Ms" (itoa n)))))))) (setq n 0)
  (while (<= (setq n (1+ n)) sttnm)
    (setq sob (entlast))
    (command "_.measure" obj (eval (read (strcat "Ms" (itoa n)))))
    (setq sob (entnext sob))
    (while (setq sob (entnext sob)) (entdel sob)))
  (command "undo" "e") (prin1)
)

Kolay gelsin.

---

Merhaba Prohibit Hocam,
yazdığınız lisp tam da aradığım gibi... Emeğinize sağlık. 6 sene önce verilen bir bilgiyi şu an kullanabiliyor olmak çok güzel. Bilgi eskimiyor.
Ancak bir sorunum var bu lispi çalıştırdığımda atılan noktaların yerleri hep benim verdiğim başlangıca olan mesafelerin 3 katı oluyor. Yanı 3 katı ileride bir mesafeye atıyor. Bunun sebebi ne olabilir?

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