ACAD wipeout dictionary creating

[kpblc2000]

Hello all!
There is a question - how could i create standard AutoCAD dictionary named "ACAD_WIPEOUT_VARS"? I thied to do it by (dictadd), but my ACAD (2005 Eng + SP1) has been crashed :(
I'd like to do it without using (command) interface. Is it possible?
Thank you.

[ElpanovEvgeniy]

Hello Alexey :)
See an example of creation WIPEOUT:
http://www.theswamp.org/index.php?topic=13842.msg166907#msg166907

[ElpanovEvgeniy]

to add "acad_wipeout_vars"


(defun add-acad_wipeout_vars (/ e)
;; By ElpanovEvgeniy
;; add acad_wipeout_vars to DICTIONARY...
;; tested acad 2005, 2007
(and
(setq
e (entmakex
(list
'(0 . "WIPEOUTVARIABLES")
'(102 . "{ACAD_REACTORS")
(cons 330 (NAMEDOBJDICT))
'(102 . "}")
(cons 330 (NAMEDOBJDICT))
'(100 . "AcDbWipeoutVariables")
'(70 . 1)
) ;_ list
) ;_ entmakex
) ;_ setq
(entmod
(append
(entget (NAMEDOBJDICT))
(list
'(3 . "ACAD_WIPEOUT_VARS")
(cons 350 e)
) ;_ list
) ;_ append
) ;_ entmod
) ;_ and
) ;_ defun

[kpblc2000]

Thank you, Evgeniy. You're great!
Sometimes (i think it's problem of my ACAD) it doesn't works. After restariting ACAD it works correctly.

[ElpanovEvgeniy]

Thank you, Evgeniy. You're great!
Sometimes (i think it's problem of my ACAD) it doesn't works. After restariting ACAD it works correctly.

Fix problem - add (ARXLOAD "AcWipeout.arx")

(defun add-acad_wipeout_vars (/ e)
;; By ElpanovEvgeniy
;; add acad_wipeout_vars to DICTIONARY...
;; tested acad 2005, 2007
(and
(ARXLOAD "AcWipeout.arx")
(setq
e (entmakex
(list
'(0 . "WIPEOUTVARIABLES")
'(102 . "{ACAD_REACTORS")
(cons 330 (NAMEDOBJDICT))
'(102 . "}")
(cons 330 (NAMEDOBJDICT))
'(100 . "AcDbWipeoutVariables")
'(70 . 1)
) ;_ list
) ;_ entmakex
) ;_ setq
(entmod
(append
(entget (NAMEDOBJDICT))
(list
'(3 . "ACAD_WIPEOUT_VARS")
(cons 350 e)
) ;_ list
) ;_ append
) ;_ entmod
) ;_ and
)