Autocad yazıları ardışık sıralama lispi - Metraj Lispi

Autocad içerisinde yazıları istediğiniz harfler ile kodlandırarak, istediğiniz rakamdan başlayarak ardışık olarak sıralar.

Autocad lisp kodlar

(defun c:YAZI-ARDISIK-SIRALA ()
(setq tc_met (getstring t "\nSayıların başına gelecek metni yazın:"))
  (if (= tc_met nil)
    (progn)
    (progn
 
  (setq tc_num (getint "\nBirinci Numara:"))
  (if (= tc_num nil)
    (progn)
    (progn
      (setvar "errno" 0)
      (setq tc_num_uy tc_num)
      (setq tc_ent nil)
      (while (= tc_ent nil)
(initget "C")
(setq tc_ent (entsel "\nYazıyı Seç / Cıkış:"))
(if (= tc_ent nil)
  (progn
    (if (= (getvar "errno") 0)
      (progn
(setq tc_ent nil)
(setvar "errno" 0)
      )
    )
    (if (= (getvar "errno") 52)
      (progn
(setq tc_ent t)
(setvar "errno" 0)
      )
    )
  )
  (progn
    (setq tc_tan (cdr (assoc 0 (entget (car tc_ent)))))
    (if (/= tc_tan "TEXT")
      (progn
(princ "\nSeçilen nesne yazı değil...")
(setq tc_ent nil)
      )
      (progn
(setq tc_stil (cdr (assoc 7 (entget (car tc_ent)))))
(setq tc_stil_yuk
       (cdr (assoc 40 (tblsearch "style" tc_stil))
       )
)
(if (= tc_stil_yuk 0.0)
  (progn
    (command "change" tc_ent "" "" "" "" "" "" (strcat tc_met (rtos tc_num_uy 2 0)))
    (setq tc_num_uy (1+ tc_num_uy))
    (setq tc_ent nil)
  )
  (progn
    (command "change" tc_ent "" ""
     ""       ""       "" (strcat tc_met (rtos tc_num_uy 2 0)
    ))
    (setq tc_num_uy (1+ tc_num_uy))
    (setq tc_ent nil)
  )
)
      )
    )
  )
)
      )
    )
  )))
  (princ)
)
(princ)

Lisp dosyasını oluşturmayı ve AutoCAD"e yüklemeyi bilmiyorsanız. Lispi bilgisayara kaydetmek ve AutoCAD"e yüklemek için AutoCAD lisp dosyasını kaydetme ve yükleme nasıl yapılır yazısını okuyun

Autocad lisp çalıştırma

Komut satırına "YAZI-ARDISIK-SIRALA" yazın ve enterlayın

Sayıların başına gelecek metni yazın : Buraya yazdığınız kelime tıkladığınız bütün yazılara uygulanacak, yani eski kelime silinecek ve yerine bu kelime yazılacak.
Burada ben aaa yazıp enter tusuna basın
Birinci numara : yazdığınız kelimenin arkasına gelecek ilk sayıyı seçin, bu sayıdan başlayarak ardışık sıralayacak. Burada 1 yazıp enter tuşuna basıyorum.