czarnula_100

Najbliżej mi do rozwiązania Pana ktomaszewski, nie mniej wszystkim Państwu dziękuję za pomoc !

o to mi chodziło od początku, BARDZO DZIĘKUJĘ , przyspieszy to robotę

wiem, że to może głupie ale gdyby tak... nazwa layoutu mogła być blokiem z atrybutami wtedy przez dataextraction można by było "wyciągnąć" potrzebne atrybuty i wyeksportować do plików zewnętrznych, takie jak nr rys, nazwę , skalę, etc

najlepiej jeszcze jak by się dało oddzielić nr rysunku czyli np A-16 od dalszej nazwy typu SEKCJA C- RZUT III PIĘTRA, ( nazwy layouta nie chcę zmieniać bo to znowu mi się przydaje do póżniejszego "drukowania do pdf" funkcją PUBLISH

a czy mogłabym otrzymać z tej funkcji taką formę jak na zdjęciu poniżej czyli tabelę a nie jak opisy w wierszu command, bo coś mi nie wychodzi , może coś żle robię

nie ma takiej komendy, pracuję na wersji ENG wiec opcja z podkreślnikiem też nie powinna być konieczna, a też jej nie ma Reasumując poradziłam sobie, poratowałam się lispem z neta wiem, że są tu "wytrawni gracze" ale może takiemu laikowi jak ja się przyda😀 (defun c:ZESTLAY (/ doc lays laylist i pt rows cols rowh colw tab) (vl-load-com) (setq doc (vla-get-ActiveDocument (vlax-get-acad-object))) (setq lays (vla-get-Layouts doc)) (setq laylist '()) ;; zbierz layouty (bez Model) (vlax-for lay lays (if (/= (strcase (vla-get-Name lay)) "MODEL") (setq laylist (append laylist (list (vla-get-Name lay)))) ) ) ;; punkt wstawienia tabeli (setq pt (getpoint "\nWskaż punkt wstawienia tabeli: ")) (setq rows (+ 1 (length laylist))) ; nagłówek + layouty (setq cols 2) (setq rowh 8.0) (setq colw '(15.0 80.0)) ;; utwórz tabelę (setq tab (vla-AddTable (vla-get-ModelSpace doc) (vlax-3d-point pt) rows cols rowh (car colw) ) ) ;; ustaw szerokości kolumn (vla-SetColumnWidth tab 0 (nth 0 colw)) (vla-SetColumnWidth tab 1 (nth 1 colw)) ;; nagłówki (vla-SetText tab 0 0 "Nr") (vla-SetText tab 0 1 "Nazwa rysunku") ;; wypełnij tabelę (setq i 1) (foreach name laylist (vla-SetText tab i 0 (itoa i)) (vla-SetText tab i 1 name) (setq i (1+ i)) ) (princ "\nZestawienie layoutów utworzone.") (princ) )

a gdzie znajdę tą funkcję (lispa)

Czy jest jakaś funkcja już istniejąca lub lisp który pozwoli zestawić listę layoutów, automatycznie, chodzi o stworzenie listy rysunków np do późniejszego opisu ?

a jaki jest odpowiednik Testu ( audit?) jeśli tak to zrobiłam

Ctrl + A pusto , zoom extend pusto, a warstwy są i nie da się ich usunąć, w blokach pojawiły się jakieś "śmieci", pierwszy raz mam coś takiego

rozumiem ze audytował 4796 obiektów a na ekranie pusto

Prośba o pomoc - plik ma 7 mb a rysunek zniknął , pusto, nie ma ani jednej kreski, o co chodzi ?

Dzień dobry. Dziękuję za podpowiedź.