Ciao Andrea,
I've given some thought to your query. At first, it appeared that :vlr-beginDwgOpen, or FileOpen... would be the go; unfortunately these reactors do not react! If memory serves me well, I think Daron had trouble with them? Even if they'd work, there were always the possibilities that your users would open a DXF [not trapped by beginDwgOpen] or double-clicking a dwg from explorer! So, went to trap OPEN command and checking number of documents. In this code, if more than 3 drawings are open, I was able to cancel commands such as EXPLODE, ERASE - You can play with cancelling MOVE, COPY... - but cannot abort the call on OPEN!! Can someone explain why, or better still take it from there?
(vl-load-com)
(defun CancelOpen (calling-reactor commandInfo / iNum sComm )
(setq sComm (car CommandInfo))
(if (equal (getvar "SDI") 1)
(setq iNum 1)
(setq ;If in MDI mode
iNum (vla-get-count (vla-get-documents (vlax-get-acad-object))) ;get number of dwgs currently open
)
) ;_ EndOf if
(if (and (> iNum 3) (wcmatch sComm "ERASE,EXPLODE,OPEN"))
(progn
(vla-sendcommand
(vlax-get (vlax-get-acad-object) "activedocument")
"(vl-cmdf) "
)
)
)
)
(if *My_Reactor*
(vlr-remove *My_Reactor*) ;Avoid multiple loading
)
(setq *My_Reactor*
(vlr-editor-reactor ;or vlr-Command-reactor
nil
'(
(:vlr-commandWillStart . CancelOpen)
)
)
)
As the routine stands now, it is gonna work only if from drawing A [where the code would be loaded], one opens B, C, D... but not if you open from A B, then from B open C... unless you load routine for each drawing. The cancelling of the commands only happens when using the verb-->nouns conventional way for AutoCAD to work - starting the command then selecting objects. Provision was not made for the reverse approach, my intention was to catch OPEN then disable it, so went along to test on other commands to see if they'd be cancelled when I realised it did not work on OPEN. Did not bother to make a Defun, is active upon loading!
