SHARE
TWEET

Untitled

a guest Aug 14th, 2019 108 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (defun C:DR ( / notdelete)
  2.   ;;;notdelete список неудаляемых словарей
  3.   (setq notdelete '("ACAD_IMAGE_DICT" "ACAD_IMAGE_VARS"))
  4.     (mapcar
  5.     '(lambda(d)
  6.     (vl-catch-all-apply '(lambda()(if (not(member d notdelete))(dictremove (namedobjdict) d)))))
  7.     (mapcar 'cdr(vl-remove-if-not '(lambda(x)(= (car x) 3))(entget(namedobjdict))))
  8.     )
  9.   )
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top