19.06.2008 19:56    

xxxeee
bu lisp sitede var ama komutlarını konu anlatımından incelemek istedim bazı komutların anlamlarını bulamadım mesela strcat gibi carkoordinat gibi bu lispin baştan aşağı hızlıca bir şekilde türkçesini anlatabilecek uzmanlardan yardım bekliyorum ayrıca lütfen yazarmısınız yardım için lisplerini veren arkadaşlar neden bazı komutları bulamıyoruz burada daha kapsamlı komutların olduğu bir dokümana sahip olamazmıyız?
(defun C:Noyaz ()

(setq yazıyüksekliği (getdist (strcat "
Yazi Yuksekligini Giriniz : ")))
(setq başsayı (getdist (strcat "
Başlangıç sayısını yazınız : ")))
(setq koordinat (getpoint "
yazılacak yeri tıklayınız :"))
(setq koordinatx (car koordinat))
(setq koordinaty (cadr koordinat))
(setq koordinatxy (list koordinatx (+ (/ yazıyüksekliği 2) koordinaty) 0))
(command "text" "m" koordinatxy yazıyüksekliği "0" (fix başsayı))

(while (> 10000)
(setq başsayı (+ 1 başsayı))
(setq koordinat (getpoint "
yazılacak yeri tıklayınız :"))
(setq koordinatx (car koordinat))
(setq koordinaty (cadr koordinat))
(setq koordinatxy (list koordinatx (+ (/ yazıyüksekliği 2) koordinaty) 0))
(command "text" "m" koordinatxy yazıyüksekliği "0" (fix başsayı))
)
)

(PRINC " --> 'www.autocadokulu.com' Çizim yardımları yüklendi !")
(PRINC " Lispi çalıştırmak için komut satırına 'Noyaz' yazınız ")

xxxeee (19.06.2008 20:13 GMT)

20.06.2008 05:37    

ehya
Her işin bir püf noktası olduğu gibi, bu işinde bir püf noktası var. Ben 10 yıldır lisp ile ilgileniyorum. Ancak hiçbir sitede lisp komutlarını tarif edildiğini görmedim. Nedeni belki, vakit alması olarak da düşünebiliriz.
Demişsin ki, bu lispi baştan aşağıya tarif edebilecek bi uzman. iyi de bu lispde topu topu 4-5 tane lisp komutu var. Bu lispi anladın. Peki başka lisplerde ne olacak.
Her lispi tek tek tarif edemeyiz ki.!!

Forumu inceliyorsan, Autolisp dersleri hazırlıyorum. İlk 2 dersi yayınladım. Eğer sabırlı olursan bundan sonraki dersimde autolisp komutlarını yayınlayacağım. O zaman bayağı bir bilgi sahibi olacaksın.

20.06.2008 05:51    

lwend
sabirsizlikla bekliyoeuz ehya kardes :)

> 1 <
Copyright © 2004-2022 SQL: 0.612 saniye - Sorgu: 50 - Ortalama: 0.01225 saniye