Numerowanie arkuszy

Skrypt pozwala na szybcie opisanie arkuszy ich aktualnymi numerami. Wystarczy wstawić odpowiedni blok do każdego arkusza, a po wczytaniu skryptu LISP i użyciu odpowiedniego polecenia, wszystkie arkusze zostaną ponumerowane.

Należy pobrać oba pliki, nastepnie wypakować Numer Arkusza. Następnie można go wstawić w formie bloku poprzez polecenie WSTAW do dowolnego arkusza, a skrypt LISP zaktualizuje jego numer do obecnego przy użyciu.

Pobierz LISP Numerowanie Arkuszy  Pobierz Numer Arkusza

Polecenie do uruchomienia skryptu LISP: NUMERUJARKUSZE

Kod źródłowy z opisem

(princ (strcat "
Dostępne polecenia:
NumerujArkusze - automatyczne numerowanie arkuszy w bloku Numer Arkusza wstawionym w arkuszu
") )

(defun c:NumerujArkusze ( / doc layouts layoutList count idx)

(defun getLayoutsSortedByTabOrder ( / layoutCollection layoutList layoutObj tabOrderList )
 (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
 (setq layoutCollection (vla-get-Layouts doc))
 (setq layoutList '())

(vlax-for layout layoutCollection
 (if (not (equal (strcase (vla-get-Name layout)) "MODEL"))
 (setq layoutList
 (cons (cons (vla-get-Name layout) (vla-get-TabOrder layout)) layoutList))
 )
 )

(mapcar 'car
 (vl-sort layoutList
 (function (lambda (a b) (< (cdr a) (cdr b))))
 )
 )
 )

(defun updateBlockAttributes (layoutName current total / ss i ent entData tag)
 (if (setq ss (ssget "x" (list (cons 0 "INSERT") (cons 2 "Numer Arkusza") (cons 410 layoutName))))
 (progn
 (setq i 0)
 (while (< i (sslength ss))
 (setq ent (ssname ss i))
 (setq entData (entget ent))
 (if (= (cdr (assoc 66 entData)) 1)
 (progn
 (setq ent (entnext ent))
 (while (and ent (/= (cdr (assoc 0 (entget ent))) "SEQEND"))
 (setq tag (strcase (cdr (assoc 2 (entget ent)))))
 (cond
 ((= tag "AKTUALNYARKUSZ")
 (entmod (subst (cons 1 (itoa current)) (assoc 1 (entget ent)) (entget ent)))
 )
 ((= tag "WSZYSTKIEARKUSZE")
 (entmod (subst (cons 1 (itoa total)) (assoc 1 (entget ent)) (entget ent)))
 )
 )
 (entupd ent)
 (setq ent (entnext ent))
 )
 )
 )
 (setq i (1+ i))
 )
 )
 )
 )

(setq layoutList (getLayoutsSortedByTabOrder))
 (setq count (length layoutList))
 (setq idx 1)
 (foreach layout layoutList
 (updateBlockAttributes layout idx count)
 (setq idx (1+ idx))
 )

(princ "\nBloki 'Numer Arkusza' zostały zaktualizowane.")
 (princ)
)

Wykonanie w ZWCADzie 2026