30.03.2009 10:01

47799    

Bu lispler ile ilgili detaylı bilgi forum sayfasında mevcuttur:



Linkleri görebilmek için Üye Ol veya Giriş Yap

cizimokulu.com

12.11.2012 16:54

70437    

Koor

30.10.2014 13:55

78953    

Camasirmi yikiyor napiyo bu Lisp. Yazsan yardimci oluruz. Nedir bu "KLS"?

30.10.2014 14:52

78956    

kls lisp i idi şimdi bakıyorum kimsede bu sayfalarda ve sitede yok

30.10.2014 15:02

78958    

video yu izle yin ne yaptını çok iyi anlarsınız

Linkleri görebilmek için Üye Ol veya Giriş Yap

ProhibiT (31.10.2014 04:39 GMT)

31.10.2014 05:58

78966    

(defun nokkntr ()
(if (= nok_kt nil)
(alert "\nPointstyle ayarınızı kontrol etmeyi unutmayın:"))
(setq nok_kt t))

(defun c:kls ()
(nokkntr)
(setvar "modemacro" "Arcme Design")
(setvar "cmdecho" 0)
(setq kls_basno (getint "\nBaşlangıç numarası:"))
(if (= kls_basno nil)
(progn
)
(progn
(setq kls_yyybsno kls_basno)
(setq kls_os (getvar "osmode"))
(if (= kls_yyuk nil)
(setq kls_yyuk 10))
(setq kls_yy (getreal (strcat "\nYazı Yüksekliği :< " (rtos kls_yyuk 2 1) " >:")))
(if (= kls_yy nil)
(setq kls_yy kls_yyuk))
(setq kls_yyuk kls_yy)
(setq kls_nil nil)
(setq kls_dosyaac (open "C:\\windows\\kls.txt" "w"))
(setq kls_noksay 0)
(setq kls_yazi_ara (tblsearch "style" "kls_yazi"))

(if (= kls_yazi_ara nil)
(progn
(command "style" "kls_yazi" "arial.ttf" "0""""""""")
))
(setq kls_yazi_ara_yuk (cdr (assoc 40 kls_yazi_ara)))
(if (/= kls_yazi_ara_yuk 0.0)
;(setq kls_yazi_ara (subst (cons 40 0)(assoc 40 kls_yazi_ara) kls_yazi_ara))
; (entmod kls_yazi_ara)
(command "style" "kls_yazi" "" "0""""""""")
)
(while (= kls_nil nil)
(setq kls_nok (getpoint "\nNoktayı Gösterin:"))
(if (/= kls_nok nil)
(progn
(setq kls_nokx (car kls_nok)
kls_noky (cadr kls_nok))

(setq kls_yyerx (+ kls_nokx (/ kls_yyuk 2.0))
kls_yyer (list kls_yyerx kls_noky))
(setvar "osmode" 0)
(command "point" kls_nok)
(command "text" "j" "ml" kls_yyer kls_yyuk "0" kls_basno)
(write-line (rtos kls_nokx) kls_dosyaac)
(write-line (rtos kls_noky) kls_dosyaac)
(setq kls_noksay (+ kls_noksay 1))
(setq kls_basno (+ kls_basno 1))
(setq kls_nil nil)
(setvar "osmode" kls_os)
)
(progn
(close kls_dosyaac)
(setq kls_1 nil)
(while (= kls_1 nil)
(setq kls_tablonok (getpoint "\nTablo için referans nokta gösterin:"))
(if (= kls_tablonok nil)
(progn
(setq kls_1 nil))
(progn
(setq kls_tablonokx (car kls_tablonok)
kls_tablonoky (cadr kls_tablonok))
(setvar "osmode" 0)
(command "line" kls_tablonok (strcat "@" (rtos (* 35 kls_yyuk))"<0")
(strcat "@" (rtos (* (* kls_yyuk 2.0) (+ kls_noksay 1))) "<270")
(strcat "@" (rtos (* 35 kls_yyuk))"<180") "c")
(setq kls_tab1x (+ kls_tablonokx (* kls_yyuk 3.0))
kls_tab1 (list kls_tab1x kls_tablonoky)
kls_tab2x (+ kls_tablonokx (* kls_yyuk 19.0))
kls_tab2 (list kls_tab2x kls_tablonoky)
)
(command "line" kls_tab1 (strcat "@" (rtos (* (* kls_yyuk 2.0) (+ kls_noksay 1))) "<270") "")
(command "line" kls_tab2 (strcat "@" (rtos (* (* kls_yyuk 2.0) (+ kls_noksay 1))) "<270") "")

(setq kls_tab3 kls_tablonok)
(repeat kls_noksay
(setq kls_tab3x (car kls_tab3)
kls_tab3y (- (cadr kls_tab3)(* kls_yyuk 2.0))
kls_tab3 (list kls_tab3x kls_tab3y))
(command "line" kls_tab3 (strcat "@" (rtos (* 35 kls_yyuk))"<0") ""))
(setq kls_yaz1 kls_tablonok)
(setq kls_yaz1x (+ (car kls_yaz1)(* 1.5 kls_yyuk))
kls_yaz1y (- (cadr kls_yaz1)(* 3 kls_yyuk))
kls_yaz1 (list kls_yaz1x kls_yaz1y))
(setq kls_yty kls_yyybsno)
(repeat kls_noksay
(command "text" "j" "mc" kls_yaz1 kls_yyuk "0" kls_yty)
(setq kls_yaz1y (- (cadr kls_yaz1) (* 2 kls_yyuk))
kls_yaz1 (list (car kls_yaz1)kls_yaz1y))
(setq kls_yty (+ kls_yty 1)))
(setq kls_x_yaz kls_tablonok)
(setq kls_x_yazx (+ (car kls_tablonok)(* 11 kls_yyuk))
kls_x_yazy (- (cadr kls_tablonok)(* 3 kls_yyuk))
kls_x_yaz (list kls_x_yazx kls_x_yazy))
(setq kls_y_yazx (+ (car kls_tablonok)(* 27 kls_yyuk))
kls_y_yazy (- (cadr kls_tablonok)(* 3 kls_yyuk))
kls_y_yaz (list kls_y_yazx kls_y_yazy))
(setq kls_xx_yazx (+ (car kls_tablonok)(* 11 kls_yyuk))
kls_xx_yazy (- (cadr kls_tablonok) kls_yyuk)
kls_xx_yaz (list kls_xx_yazx kls_xx_yazy))
(setq kls_yy_yazx (+ (car kls_tablonok)(* 27 kls_yyuk))
kls_yy_yazy (- (cadr kls_tablonok)kls_yyuk)
kls_yy_yaz (list kls_yy_yazx kls_yy_yazy))
(command "text" "j" "mc" kls_xx_yaz kls_yyuk "0" "X")
(command "text" "j" "mc" kls_yy_yaz kls_yyuk "0" "Y")
(setq kls_oku_dac (open "c:\\windows\\kls.txt" "r"))
(repeat (* kls_noksay 2)
(setq kls_oku_x (read-line kls_oku_dac))
(command "text" "j" "mc" kls_x_yaz kls_yyuk "0" kls_oku_x)
(setq kls_oku_y (read-line kls_oku_dac))
(command "text" "j" "mc" kls_y_yaz kls_yyuk "0" kls_oku_y)
(setq kls_x_yazy (- (cadr kls_x_yaz) (* 2 kls_yyuk))
kls_x_yaz (list kls_x_yazx kls_x_yazy))
(setq kls_y_yazy (- (cadr kls_y_yaz) (* 2 kls_yyuk))
kls_y_yaz (list kls_y_yazx kls_y_yazy))
)))
(setq kls_1 t)(setq kls_nil t)
))))))
(setvar "osmode" kls_os)
(close kls_oku_dac)
(princ))

31.10.2014 08:42

78968    

senin lisple yukaridaki Lisp ayni isi yapiyor. SAdece noktalarini koyarken "nokta" layerinda "Point" objesi olarak yerlestir tek fark o. Zaten bu lispi de Ehya yazmis galiba.

özkan-wien (31.10.2014 09:19 GMT)

31.10.2014 11:33

78973    

özkan-wien
(setq kls_dosyaac (open "C:\\windows\\kls.txt" "w"))
Windows a text dosyası açıyor, yeterli erişim yetkisi yoksa bundan dolayı hata veriyor olsa gerek ; )
BUNU NASIL DÜZELTECEĞİM

31.10.2014 12:12

78975    

allah razı olsun çözüldü