;araya nesne eklenmesi durumunda kullanılacak kod
;HAZIRLAYAN miyatu 12/09/08
;FT-FC V2
(defun c:ft ()
  (setq set1 (ssget (list (cons 0 "TEXT"))))
  (setq index (sslength set1))
  (setq n 0)
  (setq ref_text_no
(atof (getstring "\n DEGISIKLIGIN BASLADIGI NOYU GIR:"))
  )
  (while (/= n index)
    (setq list1 (entget (ssname set1 n)))
    (setq ref_text (cdr (assoc 1 list1)))
    (setq num (atof (substr ref_text 3)))
    (if (< ref_text_no num)
      (progn
(setq num (+ num 1))
(setq num_yazi (strcat "BB" (rtos num 2 0)))
(setq ed (ssname set1 n))
(setq ed (entget ed))
(setq ed (subst (cons 1 num_yazi) (assoc 1 ed) ed))
(entmod ed)))
    (setq n (+ n 1))))

;nesne silinmesi durumunda kullanılacak kod
;HAZIRLAYAN miyatu 12/09/08
;FT-FC V2
(defun c:fc ()
  (setq set1 (ssget (list (cons 0 "TEXT"))))
  (setq index (sslength set1))
  (setq n 0)
  (setq ref_text_no
(atof (getstring "\n DEGISIKLIGIN BASLADIGI NOYU GIR:"))
  )
  (while (/= n index)
    (setq list1 (entget (ssname set1 n)))
    (setq ref_text (cdr (assoc 1 list1)))
    (setq num (atof (substr ref_text 3)))
    (if (< ref_text_no num)
      (progn
(setq num (- num 1))
(setq num_yazi (strcat "BB" (rtos num 2 0)))
(setq ed (ssname set1 n))
(setq ed (entget ed))
(setq ed (subst (cons 1 num_yazi) (assoc 1 ed) ed))
(entmod ed)))
    (setq n (+ n 1))))

;===================================================================
;     COUNT.LSP
;     Belirlenen sayidan baslayarak gosterilen noktalara belirlenen
;     miktar kadar artirarak sayilar yazar. Yani numaralama yapar.
;     Kaldigi sayiyi dosyayı kapatıp açsanız bile daima hatirlar
;     Hazırlayan: M. Şahin Güvercin
;                   sahinguvercin@hotmail.com
;===================================================================
(defun C:COUNT (/ sayi loop yyuk yon ynok)
   (setvar "cmdecho" 0)
   (command "undo" "group")
   (if (= 0 (getvar "useri5")) (setq esayi 1) (setq esayi (- (getvar "useri5") 1)))
   (setq sayi (getint (strcat "\nBaslangic sayisi <" (itoa esayi) "> :")))
   (if (= sayi nil) (setq sayi esayi))
   (if (= amk nil) (setq eamk 1))
   (setq amk (getint (strcat "Artis miktari <" (itoa eamk) "> : ")))
   (if (= nil amk) (setq amk eamk))
   (if (= eyuk nil) (setq eyuk (* (getvar "dimtxt") (getvar "dimscale"))))
   (setq yyuk (getreal (strcat "\nYazi yuksekligi <" (rtos eyuk) "> :")))
   (if (= yyuk nil) (setq yyuk eyuk))
   (if (= eyon nil) (setq eyon 0))
   (setq yon (getreal (strcat "\nYazi acisi <" (rtos eyon) "> :")))
   (if (= yon nil) (setq yon eyon))
   (if (setq ynok (getpoint "\nilgili noktayi seciniz..."))
      (while ynok
         (setq ynok (list (car ynok) (cadr ynok)))
         (command "text" "m" ynok yyuk yon sayi)
         (setq sayi (+ sayi amk) ynok (getpoint "\nYeni nokta seciniz......"))
      )
      (exit)
   )
   (setq eyuk yyuk eyon yon eamk amk)
   (setvar "useri5" (+ sayi amk))
   (command "undo" "e")
   (prin1)
)

;==================================================================
;     INCDEC.LSP
;     Secilen text gurubu icindeki belirli araliktaki sayilari
;     belirlenen miktar kadar artirir veya eksiltir
;     Hazırlayan: M. Şahin Güvercin
;                   sahinguvercin@hotmail.com
;==================================================================
(defun C:INCDEC ()
   (setvar "cmdecho" 0) (command "undo" "group")
   (if (= nil dpp) (setq bdpp (getvar "luprec")) (setq bdpp dpp))
   (princ "\n               Artis Miktari <") (if eamk (princ eamk))(setq amk (getint "> : "))
   (princ "\n Artirilacak sayi alt siniri <") (if eamk (princ as)) (setq as (getint "> : "))
   (princ "\n Artirilacak sayi ust siniri <") (if eamk (princ us)) (setq us (getint "> : "))
   (if (and (not amk) eamk) (setq amk eamk))
   (if (and (not as) eas) (setq as eas))
   (if (and (not us) eus) (setq us eus))
   (if (< amk 0)(setq ty "dcr") (setq ty "inc"))
   (setq eamk amk amk (abs amk) eas as eus us)
   (setq as (- as 1) us (+ us 1))
   (setq p (ssget))
   (setq l 0 n (sslength p))
   (while (< l n)
      (if (= "TEXT" (cdr (assoc 0 (setq a (entget (ssname p l))))))
         (progn
            (setq esayi (atof (cdr (assoc 1 a))))
            (if (and (> esayi as) (< esayi us))
               (Progn
                  (if (= ty "inc") (setq ysayi (rtos (+ esayi amk)))
                                   (setq ysayi (rtos (- esayi amk))))
                  (setq a (subst (cons 1 ysayi) (assoc 1 a) a))
                  (entmod a)
                  (entupd (cdr (assoc -1 a)))
               )
            )
         )
      )
      (setq l (1+ l))
   )
   (command "undo" "e")
   (prin1)
)

(defun c:nxyz(/ NR NP ZN PD B old_cmdecho)
    (setq old_cmdecho (getvar "cmdecho"))
    (setvar "cmdecho" 0)
    (initget (+ 1 2 4))
    (setq NR (getint "\nBASLANGIC NO GIRINIZ :"))
    (setq B (getreal "\NUMARA BOYUNU GIRINIZ:"))
    (setq NP (getfiled "KAYIT YAPILACAK DISYAYI SECINIZ :" "" "txt;csv;xls;xyz" 1))
    (setq ZN (getstring "\Noktaya balastro istermisiniz ?  [ e / h ]:"))
    (SETQ PD (open NP "W"))
    (WRITE-line (strcat "N.No" ";" "Y" ";" "X" ";" "Z" ) PD)
        (while
  (setq WSKAZ_PUNKT (getpoint "\nNOKTA SEC:"))
  (setq WSPÓ£RZEDNA_X (RTOS (car WSKAZ_PUNKT) 2 4))
  (setq WSPÓ£RZEDNA_Y (RTOS (cadr WSKAZ_PUNKT) 2 4))
  (setq WSPÓ£RZEDNA_Z (RTOS (caDdr WSKAZ_PUNKT)2 4))
  (setq LINIA
  (strcat (rtos NR) ";" WSPÓ£RZEDNA_X ";" WSPÓ£RZEDNA_Y ";" WSPÓ£RZEDNA_Z );strcat
  )
      (WRITE-line LINIA PD)
  (if (or (= ZN "E")(= ZN "e"))
    (progn
     (DRAW_PUNKT)
     (DRAW_TEXT)
    )
     (DRAW_TEXT)
  )
  (setq NR (1+ NR))
);WHILE
    (close PD)
    (setvar "cmdecho" old_cmdecho)
    (princ "\nKoniec")
    (princ)
  );defun
;;; ---------------------------------------------------------------------------------- ;;;
(defun DRAW_TEXT (/)
  (command "_layer" "_m" "nxyz-nno" "_c" "3" "" "")
  (command "_text" WSKAZ_PUNKT B "0" NR)
  );defun
;;; ---------------------------------------------------------------------------------- ;;;
(defun DRAW_PUNKT (/ d kat_90 kat_270 p1 p2 p3 p4)
      (command "_layer" "_m" "nxyz-nokta" "_c" "3" "" "")
(setq d (/ B 10))
  (command "_circle" WSKAZ_PUNKT d )
  );defun
;;; ---------------------------------------------------------------------------------- ;;;
(princ
  (strcat
    "NXYZ.Lsp (C) Dariusz Ptaszkiewicz"
    " [e-mail:dp@cad.pl]"
    "\nKomut: nxyz "
  )
)