;Script zum xref binden, bereinigen und Datenübergabe
;skript ausführen oder für SCC2.vlx Anwendung laden für Mehrfachbearbeitung
;--->https://cadwiesel.de/index.php?hp=downloads&anzeigedatei=downloads&cat=sonstiges&ucat=sons&dbcat=Sonstiges&sprachauswahl=english&sprachauswahl=deutsch
; in der Befehlszeile SDI=1 stellen (Systemvariable, gilt nur bei scc2.vlx)
;Hinweis: Befinden sich Darstellungen ( Blöcke die im Modell auf einem unsichtbaren Layer liegen, innerhalb des Blockes jedoch 
;auf einem sichtbaren Layer) wird der Block aus dem Modell ( ...und damit aus dem Ansichtsfenster, wenn dargestellt) gelöscht!
_xref
binden
*
-layer entsperren
*

;das Skript stoppt und speichert nicht, wenn Layer=0 ausgeschaltet ist, Layer=0 kann in Acad nicht gelöscht werden!
-layer
ein
0

-layer
ein
Defpoints

;wandelt jeden dynamischen Block in einen normalen Block (Name+_1) um
(vlax-for block (vla-get-blocks
  (vla-get-activedocument (vlax-get-acad-object))
)
  (vlax-for obj block
    (if (and (= (vla-get-objectname obj) "AcDbBlockReference")
    (= (vla-get-isdynamicblock
  (vla-item (vla-get-blocks
      (vla-get-activedocument (vlax-get-acad-object))
    )
    (vla-get-effectivename obj)
  )
)
:vlax-true
    )
)
      (progn
(setq n 1)
(while (tblsearch "block"
  (strcat (vla-get-effectivename obj) "_" (itoa n))
      )
  (setq n (1+ n))
)
(vla-converttostaticblock
  obj
  (strcat (vla-get-effectivename obj) "_" (itoa n))
)
      )
    )
  )
)
;löschen aller gefrorennen und ausgeschalteten Layer mit allen Inhalten
(vlax-for layer (vla-get-layers
  (vla-get-activedocument (vlax-get-acad-object))
)
  (if (or (= (vla-get-freeze layer) :vlax-true)
  (= (vla-get-LayerOn layer) :vlax-false)
      )
    (command "_laydel" "_n" (vla-get-name layer) "" "_y")
  )
)
;löscht alle nicht benutzten beschriftungsmaßstäbe
-MSTABLISTEBEARB
löschen
*
Beenden
;anzeigen aller Beschriftungsmaßstäbe
ANNOALLVISIBLE
1
;löscht alle nicht benutzten Elemente
_Purge
Al
*
n
_Purge
Al
*
n
_audit
j
_qsave