我认为称之为“可怕”是慷慨的——它像****** 疾病一样可怕而阴险。
- (defun c:KillItWithFire ( )
- ;; Code is provided as-is with no expressed or implied warranty
- ;; for any particular use. User must assure his or herself of the
- ;; applicability of any portion of this code for their use and
- ;; accepts all direct and indirect consequences resulting from
- ;; said use.
- ( (lambda ( nop doc / dic name1 name2 )
- (vl-catch-all-apply 'eval
- '((progn
- (vla-remove
- (setq dic
- (vla-item
- (vla-get-dictionaries doc)
- (setq name1 "AEC_VARS")
- )
- )
- (setq name2 "AEC_VARS_DWG_SETUP")
- )
- (princ (strcat "\nDeleted " name2 "."))
- ))
- )
- (vl-catch-all-apply 'eval
- '((progn
- (vla-delete dic)
- (princ (strcat "\nDeleted " name1 "."))
- ))
- )
- (princ)
- )
- (vl-load-com)
- (vla-get-activedocument (vlax-get-acad-object))
- )
- )
|