👱 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



• Şimdi autocad-lisp dosyasını bulup açıyorum. 
• 3 adet ölçüye tıkladım. excele toplamda 3 ölçü aktarılmış
• 3 ölçünün genel toplamı verilir.
  

 

👱 OLCU-EXCEL-LAYER lispi ile sadece bir ölçüye tıklayın. O olcü değeri hangi layerda ise , o layerdaki bütün ölçüler excel de listelenir.

Autocad lisp kodlar

(defun c:OLCU-EXCEL-LAYER (/ obj n dsy OnA PvT oLc) (setvar "cmdecho" 0) (command "undo" "group") (setq obj (ssget "x" (list (cons 0 "DIMENSION") (cons 8 (cdr (assoc 8 (entget (car (entsel "\nSelect Dimension to the desired Layer")))))))) n (sslength obj) dsy (open (getfiled "Çıkış Kütüğü" "" "xls" 1) "w") OnA (ascii (substr (getstring "\nKullanılacak ondalık ayracı: ") 1 1))) (while (not (minusp (setq n (1- n)))) (setq PvT (entget (ssname obj n))) (if (= (cdr (assoc 1 PvT)) "") (setq oLc (rtos (cdr (assoc 42 PvT)))) (setq oLc (cdr (assoc 1 PvT)))) (cond ((and (= OnA 44) (not (vl-string-position OnA oLc))) (setq oLc (vl-string-subst (chr OnA) (chr 46) oLc))) ((and (= OnA 46) (not (vl-string-position OnA oLc))) (setq oLc (vl-string-subst (chr OnA) (chr 44) oLc)))) (write-line oLc dsy)) (close dsy) (command "undo" "e") (prin1) )

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-LAYER" yazın ve enterlayın



• Excele aktarmak istediğiniz ölçüye tıklayın.



• Açılan pencerede excel dosyasının kayıt yeri seçin ve dosya adını yazın.
• Kaydet tıklayın
• Bir değişiklik yapmazsanız, excel dosyası otomatik olarak çalıştığınız autocad klasörü içine autocad dosyası ile aynı isimde kayıt edilir.
  


• Kullanılacak ondalık ayracı yazın :
• Burada excele aktarılan ölçülerin noktadan sonra kaç rakam görünmesini istiyorsanız yazın
• 2 yazarsanız noktadan sonra 2 küsürak görünür.  2 yazıp enter tuşuna basın.



• Excel dosyasını bulun ve açın. farklı bir isim yazıp farklı bir klasor seçilmediyse, autocad dosyasını çalıştığınız klasore gidin ve çalıştığınız autocad dosyası ile aynı isimde excel dosyası olarak kayıt edilmiştir.
• Tıkladığınız layera ait bütün ölçüler excele aktarılmış olacak. biz 1 adet ölçü tıkladık ama layerdaki bütün ölçüler aktarıldı