;AUTOLISP PROGRAMLAMA DILI
(defun c:CETVEL1()
(SETVAR "OSMODE" 1087)
(SETQ X1 (GETINT "\nX1: "))
(SETQ X2 (GETINT "\nX2: "))
(SETQ ADIM(GETINT "\nADIM: "))
(SETQ ARALIK (GETINT "\nARALIK(+-): "))
(SETQ HIZALAMA(GETSTRING "\n[Left/Center/Right/Align/Middle/Fit/TL/TC/TR/ML/MC/MR/BL/BC/BR]: "))

(SETQ P1(GETPOINT"\nBASLANGIC NOKTASI"))
(SETQ P0 P1)
(SETVAR "OSMODE" 0)

(WHILE(<= X1 X2)(PROGN
(SETQ P2 (liST(CAR P1) (+(CADR P1)5) )) 
(COMMAND "LINE" P1 P2 "")
(COMMAND "TEXT" "J" HIZALAMA P2 "4" "0" X1)

(SETQ P1(LIST (+(CAR P1)ARALIK) (CADR P1) ))
(SETQ X1(+ X1 ADIM))
))

(SETQ P1 (liST(-(CAR P1)ARALIK) (CADR P1) )) 
(COMMAND "LINE" P0 P1 "")
(SETVAR "OSMODE" 1087)
)
CETVEL1

(defun c:CETVEL2()
(SETVAR "OSMODE" 1087)
(SETQ X1 (GETINT "\nX1: "))
(SETQ X2 (GETINT "\nX2: "))
(SETQ ADIM(GETINT "\nADIM: "))
(SETQ ARALIK (GETINT "\nARALIK(+-): "))
(SETQ HIZALAMA(GETSTRING "\n[Left/Center/Right/Align/Middle/Fit/TL/TC/TR/ML/MC/MR/BL/BC/BR]: "))

(SETQ P1(GETPOINT"\nBASLANGIC NOKTASI"))
(SETQ P0 P1)
(SETVAR "OSMODE" 0)

(WHILE(<= X1 X2)(PROGN
(SETQ P2 (liST(CAR P1) (+(CADR P1)5) )) 
(COMMAND "LINE" P1 P2 "")
(COMMAND "TEXT" "J" HIZALAMA P2 "4" "90" X1)

(SETQ P1(LIST (+(CAR P1)ARALIK) (CADR P1) ))
(SETQ X1(+ X1 ADIM))
))

(SETQ P1 (liST(-(CAR P1)ARALIK) (CADR P1) )) 
(COMMAND "LINE" P0 P1 "")
(SETVAR "OSMODE" 1087)
)
CETVEL2


(defun c:SAYILAR1()
(SETVAR "OSMODE" 1087)
(SETQ X1 (GETINT "\nX1: "))
(SETQ X2 (GETINT "\nX2: "))
(SETQ ADIM(GETINT "\nADIM: "))
(SETQ ARALIK (GETINT "\nARALIK(+-): "))
(SETQ HIZALAMA(GETSTRING "\n[Left/Center/Right/Align/Middle/Fit/TL/TC/TR/ML/MC/MR/BL/BC/BR]: "))

(SETQ P1(GETPOINT"\nBASLANGIC NOKTASI"))
(SETVAR "OSMODE" 0)

(WHILE(<= X1 X2)(PROGN
(COMMAND "TEXT" "J" HIZALAMA P1 "4" "0" X1)

(SETQ P1(LIST (+(CAR P1)ARALIK) (CADR P1) ))
(SETQ X1(+ X1 ADIM))
))
(SETVAR "OSMODE" 1087)
)
SAYILAR1

(defun c:SAYILAR2()
(SETVAR "OSMODE" 1087)
(SETQ X1 (GETINT "\nX1: "))
(SETQ X2 (GETINT "\nX2: "))
(SETQ ADIM(GETINT "\nADIM: "))
(SETQ ARALIK (GETINT "\nARALIK: "))
(SETQ HIZALAMA(GETSTRING "\n[Left/Center/Right/Align/Middle/Fit/TL/TC/TR/ML/MC/MR/BL/BC/BR]: "))

(SETQ P1(GETPOINT"\nBASLANGIC NOKTASI"))
(SETVAR "OSMODE" 0)

(WHILE(<= X1 X2)(PROGN
(COMMAND "TEXT" "J" HIZALAMA P1 "4" "0" X1)

(SETQ P1(LIST (+(CAR P1)ARALIK) (CADR P1) ))
(SETQ X1(+ X1 ADIM))
))
(SETVAR "OSMODE" 1087)
)
SAYILAR2