ilginç bir uygulama ama..

sağol birader ben kurdum denedim problem yok. deneme sürümü değil dimi?
çizimlerde biraz sapma oluyor ama hiç yoktan iyidir. teşekkürler paylaşım için.
Evet mümkün. Appload yaptıktan sonra add history kutucuğunu işaretlemen gerekiyor. Contents e tıkla Add yapıp dosyayı tekrar seçmen gerekiyor kolay gelsin.
sağolasın şükrü arkadaşım dediğin şekilde yaptım ve oldu.
bende deneyeyim bakalım nasıl bir programmış.
Bildiğiniz gibi Distance(di) komutuyla sadece iki nokta arasında ölçüm yapabiliyoruz(line çizgi tiplerinde).Lisp de yazılmış olan bu programı Autocadte ardarda ölçüm yapmaya olanak sağlıyor. Oldukçada kullanışlı.
Aşağıdaki programı notepad açın ve yapıştırıp dp.lsp şeklinde (uzantısı önemli, dosya ismini siz belirleyebilirsiniz) bilgisayarınıza kaydedin.
(defun c:cd ()
(setvar "cmdecho" 0)
(graphscr)
(setq
p1 (getpoint "\nBaslangıç Noktasına Tıklayınız ")
p2 (getpoint p1 "\nBir Sonraki Noktaya Tıklayınız ")
d1 (distance p1 p2)
prdist (strcat "\nUzunluk: " (rtos d1))
 
(princ prdist)
(setq p3 (getpoint p2 "\nBir Sonraki Noktaya Tıklayınız "))
(while p3
(setq
d0 (distance p2 p3)
d1 (+ (distance p2 p3) d1)
p2 p3
prdist (strcat "\nUzunluk: " (rtos d0) ", Toplam Uzunluk: " (rtos d1))
)
(princ prdist)
(setq p3 (getpoint p2 "\nBir Sonraki Noktaya Tıklayınız "))
 
(setq cumd (strcat "Toplam Uzunluk (dogalgazprojesi.com) --> " (rtos d1)))
(prompt cumd)
(princ)
)
Daha sonra Autocadte komut satırına appload yazın. Kaydettiğiniz dosyayı seçin. Load a tıklayın. Komut kullanıma hazır durumdadır. Komutu çağırmak için komut satırına cd yazmanız yeterli. Yada kendinizde bir kısayol komutu belirleyebilirsiniz.Örnek: Programdaki defun c:cd satırında c: den sonra gelen ifade komutun kısayoludur. İstediğiniz gibi değiştirip kullanabilirsiniz. Kolay gelsin.
çok güzel olmuş ama bu işlemi her çizim sayfasında tekrar yapmak zorunda kalıyorum. bunu bir kere kurduktan sonra açılacak tüm çalışma sayfalarında etkin olması mümkün değilmi?
sormasına gerek yok 0,4 veya 0,5 alırsa hiç bir problem çıkmaz.