AutoCAD şeçilen ölçüleri excele aktarma lispi - Metraj Lispi

👱 Bu lisp ile sadece seçilen yani sadece tıkladığım ölçüleri excele aktarır.

Autocad lisp kodlar

(defun c:OLCU-EXCEL-SECILEN (/ ss i sr d l xl n m)
  (if (setq ss (ssget '((0 . "dimension"))))
    (progn
      (repeat (setq i (sslength ss))
        (if (setq sr (vl-position (setq d (rtos (cdr (assoc 42 (entget
              (ssname ss (setq i (1- i)))))) 2 2)) (mapcar '(lambda(a) (car a)) l)))
          (setq l (subst (list (car (nth sr l)) (1+ (cadr (nth sr l)))) (nth sr l) l))
          (setq l (cons (list d 1) l))))
      (setq xl (open (getfiled "" "" "xls" 9) "w") n 0)
      (write-line (strcat "Sira No" "\t" "Dimension" "\t" "Miktar" "\t"
                    "Toplam Miktar") xl)
      (foreach m (vl-sort (mapcar '(lambda(a) (list (atof (car a)) (cadr a))) l)
                   '(lambda(a b) (< (car a) (car b))))
        (write-line (strcat (rtos (setq n (1+ n)) 2 0) "\t" (vl-string-translate "." ","
                      (rtos (car m) 2 2)) "\t" (rtos (cadr m) 2 0) "\t"
                      (strcat "=" "B" (itoa (1+ n)) "*" "C" (itoa (1+ n)))) xl))
      (write-line (strcat "\t" "Toplam" "\t"
                  (strcat "=" "TOPLA" "(" "C2" ":" "C" (itoa (1+ n)) ")") "\t"
                  (strcat "=" "TOPLA" "(" "D2" ":" "D" (itoa (1+ n)) ")")) xl)
      (close xl)
    )
  ) (princ)
)

AutoCAD lisp dosyasını kaydetme

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 "OLCU-EXCEL-SECILEN" yazın ve enterlayın.

Excele aktarmak istediğiniz ölçüleri tek tek secin, ve enter tuşuna basın

Örnekte önce 200
Sonra diğer 200
Sonra 400 tıklıyorum

Dosya yaratma penceresi açılacak.

Ölçülerin aktarılacağı excel dosyası nereye kayedileceğin ve ismini seçin
Kaydet tuşuna basın
Başka bir klasör ve başka bir isim yazmazsanız. çalıştığınız autocad klasörü içine ve autocad dosyası ile aynı isimde kayıt edilir.
örnekte autocad-lisp.xls olarak kayıt ediyorum