;|===========================================================================|;
;| chbaL: Change bLock and Atrribute Layer                                   |;
;|        Seçilen Insert objelerini ve bunun altında tanımlı Attribute'lerin |;
;|        Layer'ını belirlenen (seçilen) Layer'a deÄŸiÅŸtirir.                 |;
;|        Hazırlayan: M. Åžahin Güvercin  www.autocadokulu.com  15.06.2012    |;
;|---------------------------------------------------------------------------|;
(defun c:chbaL (/ LyR bLn n PvT)
  (setvar "cmdecho" 0) (command "_.undo" "group") (vl-load-com)
  (setq LyR (getstring "\nLayer Name [Enter to Select]: "))
  (if (= "" LyR) (setq LyR (cdr (assoc 8 (entget (car (entsel)))))))
  (princ "\nSelect Reference bLock(s): ")
  (setq bLn (ssget (list (cons 0 "Insert") (cons 2 "EbL"))) n -1)
  (while (< (setq n (1+ n)) (sslength bLn))
    (setq PvT (ssname bLn n))
    (vlax-put-property (vlax-ename->vla-object PvT) 'Layer LyR)(entupd PvT)
    (while (/= (cdr (assoc 0 (entget (setq PvT (entnext PvT))))) "SEQEND")
      (vlax-put-property (vlax-ename->vla-object PvT) 'Layer LyR)(entupd PvT)))
  (command "_.undo" "e") (prin1))

;|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| DECC: Seçilen Objenin ilgili deÄŸeri Aktif Excel Hücresinden baÅŸlayarak,  |
|       sütun düzeninde yazılır. ilk Objenin ilgili deÄŸeri, Aktif Excel    |
|       Hücresine yazılır. Excel hücrelerinin formatı deÄŸiÅŸtirilmez, varsa |
|       mevcut deÄŸer veya formül kaybedilecektir. Yeni Obje seçilmeye devam|
|       edildikçe, bir alt hücreye geçilerek yazmaya devam edilir. Objeler,|
|       Dimension, Line, Polyline, Lwpolyline veya Arc olabilir.           |
|       Dimension objesi seçilmiÅŸse deÄŸeri, baÅŸka tür objeler seçilmiÅŸse,  |
|       uzunluÄŸu Excel hücresine yazılır. Excel Decimal Seperator'ü nokta  |
|       olarak kullanılır. AutoCAD ortamında DIMDSEP sistem deÄŸiÅŸkeni      |
|       farklı kullanılmış ise oluÅŸan hata kullanıcının sorumluluÄŸundadır. |
|       Açık Excel Uygulaması yoksa, hata iletisiyle sonlanır.             |
|        M. Åžahin Güvercin (ProhibiT) www.cizimokulu.com  27.03.2013       |
|--------___________________________________________________________-------|;
(defun c:DECC  (/ ExcLApp ExcLLs oLc Stn Str)

;|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| aLnEx: Seçilen Text nesnelerinin içeriği önek ve soneklerinden sıyrılarak |
|        sayısal deÄŸerleri Aktif Excel Hücresinden baÅŸlayarak, sütun        |
|        düzeninde yazılır. Seçilen Objenin ilgili deÄŸeri, Aktif Excel      |
|        Hücresine yazılır. Excel hücrelerinin formatı deÄŸiÅŸtirilmez, varsa |
|        mevcut deÄŸer veya formül kaybedilecektir. Yeni Obje seçilmeye      |
|        devam edildikçe, bir alt hücreye geçilerek yazmaya devam edilir.   |
|        Seçilen nesneler Text olmak zorundadır. Excel Decimal Seperator'ü  |
|        nokta olarak kullanılır. AutoCAD ortamında DIMDSEP sistem deÄŸiÅŸkeni|
|        farklı kullanılmış ise oluÅŸan hata kullanıcının sorumluluÄŸundadır. |
|        Açık Excel Uygulaması yoksa, fonksiyon hata iletisiyle sonlanır.   |
|          M. Åžahin Güvercin (ProhibiT) www.cizimokulu.com  12.06.2014      |
|--------___________________________________________________________--------|;
(defun c:aLnEx (/ ExcLApp ExcLLs onE snE Stn Str)
  (setvar "cmdecho" 0) (command "undo" "group") (vl-load-com)
.
.
.