Mit Unterstützung durch:
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen >
Beiträge: 63Registriert: 24.02.2021
Autocad 2020WiN 10 Pro16GB RAMIntel(R) Core(TM) i7-8700 CPU@3,20GHz 3,19GHz
------------------AUTOCAD-Anwenderin
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Beiträge: 13533Registriert: 30.11.2003
Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
(defun C:LOCKALLVPS(/ AWS) (if(setq AWS(ssget "X" '((0 . "VIEWPORT")))) (mapcar '(lambda(X / Y) (and(=(type(cadr X))'ENAME) (setq Y(vlax-ename->vla-object(cadr X))) (not(vl-catch-all-error-p (vl-catch-all-apply 'vla-put-displaylocked (list Y :vlax-true)) ) ) ) ) (ssnamex AWS) ) ) (princ))
(defun C:UNLOCKALLVPS(/ AWS) (if(setq AWS(ssget "X" '((0 . "VIEWPORT")))) (mapcar '(lambda(X / Y) (and(=(type(cadr X))'ENAME) (setq Y(vlax-ename->vla-object(cadr X))) (not(vl-catch-all-error-p (vl-catch-all-apply 'vla-put-displaylocked (list Y :vlax-false)) ) ) ) ) (ssnamex AWS) ) ) (princ))
------------------Also ich finde Unities gut ... und andere sicher auch--------------------------------------- - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
Anzeige.:X
Anzeige: (Infos zum Werbeplatz >>)
|
(c)2025 CAD.de | Impressum | Datenschutz