a guest Aug 14th, 2019 108 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
- (defun C:DR ( / notdelete)
- ;;;notdelete список неудаляемых словарей
- (setq notdelete '("ACAD_IMAGE_DICT" "ACAD_IMAGE_VARS"))
- (vl-catch-all-apply '(lambda()(if (not(member d notdelete))(dictremove (namedobjdict) d)))))
- (mapcar 'cdr(vl-remove-if-not '(lambda(x)(= (car x) 3))(entget(namedobjdict))))
RAW Paste Data