AutoCAD da yazıları excele aktarma lispi (sutuna aktar) - Metraj Lispi

👱 Autocad de seçilen yazıları excele aktarır. Seçtiğiniz herbir yazıyı excele sütuna yazar.

Autocad teki yazıları tek tek excele yazma veya kopyalayıp excele yazmaktan kurtulacaksınız.

Autocad lisp kodlar

;      (princ "\t" dosya) OLARAK YAZILIRSA TAB'a basılmış gibi kaydeder....
;      Dosya sonra Excell de açılırken hüçrelere bölünmüş olarak açılır...
;      Yani Excell dosyası export edilmiş gibi olur.
(defun c:YAZI-EXCEL-SUTUN ( / )
(command "layer" "new" "zyapimuhendisi.blogspot.com" "c" "3" "zyapimuhendisi.blogspot.com" "")
(setq donati_text (ssget '((0 . "TEXT")) ) )
(if (/= donati_text nil)
  (progn
    (setq donati_text_adet (sslength donati_text))
    (setq i 0 )
    (setq metraj_dosya (strcat (getvar "dwgprefix") (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 4 )) "-YAZI-EXCEL-SUTUN.xls"))
    (setq dosya (open metraj_dosya "a"))
   )
   (progn
    (princ "\n Dosyaya ara veriyoruz.......")
    (setq donati_text (ssget '((0 . "TEXT")) ) )
    (setq donati_text_adet (sslength donati_text))
    (setq i 0 )
    (setq dosya (open metraj_dosya "a"))
    (princ "\n " dosya)
    (princ "\n " dosya)
    (princ "\n " dosya)
    (princ "\n " dosya)
   )
)
   (while (< i donati_text_adet)
      (princ (cdr (assoc  1 (entget (ssname donati_text i))))  dosya)
      (setq d_eleman (entget (ssname donati_text i)))
      (setq old_feature (cdr (assoc 8 d_eleman)))
      (setq d_eleman (subst (cons 8 "zyapimuhendisi.blogspot.com") (assoc 8 d_eleman) d_eleman))
      (entmod d_eleman)
;*******************************************************************************
;                                                                              *
;     Bu satırın sonundaki t yi n yaparsanız tüm yazılar alt alta yazılır.     *
;                                                           "\t" -> "\n"       *
;*******************************************************************************
      (if (= i (- donati_text_adet 1))
        (princ "\n" dosya)
        (princ "\n" dosya)
      )
;*******************************************************************************
      (setq i (+ i 1))
   )
(close dosya)
(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-EXCEL-SUTUN" yazın ve enterlayın

📜 Excele aktarmak istediğiniz yazıları seçin. Sırası ile yazı3, yazı2, yazı1,yazı7 tıklıyorum.

📜Seçme işi bittikten sonra entera tıklayın. Entera bastıktan sonra yazılar yeşile dönüşecek, yeşil renge dönüşmüş yazılar. excele aktarıldı demektir.

📜Şimdi excel dosyasını bulalım

Önce autocad dosyanız hangi klasörde kayıtlı ise o klasörü açın
Autocad dosyanızla aynı isimde sonunda -YAZI-EXCEL-SUTUN yazan excel dosyasını bulun ve açın
Örnek olarak benim çalıştığım autocad dosyası autocad-lisp isimli dosya, aynı klasor içinde autocad-lisp-YAZI-EXCEL-SUTUN isinli dosyayı buluyorum ve açıyorum.