;Script zum xref binden, bereinigen und Datenübergabe _xref binden * -layer entsperren * ;wandelt jeden dynamischen Block in normale Block (Name+_1) (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ö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 _Purge ;löscht alle nicht benutzten Layer _Layer * n _audit j _qsave ; Skriptende