(setq ade_cmddia_before_qry (getvar "cmddia"))
(setvar "cmddia" 0)
(mapcar 'ade_dwgdeactivate (ade_dslist))
(setq ade_tmpprefval (ade_prefgetval "ActivateDwgsOnAttach"))
(ade_prefsetval "ActivateDwgsOnAttach" T)
(setq dwg_id(ade_dsattach "
path(s) of drawings to query"))
(ade_prefsetval "ActivateDwgsOnAttach" ade_tmpprefval)
(ade_qryclear)
(ade_qrysettype "draw")
(ade_qrydefine '("" "" "" "Location" ("window" "inside"
(681885.371764 920871.924347 0.000000)(683411.390529 919379.271217 0.000000))""))
(ade_qrydefine '("AND" "" "" "Property" ("objtype" "=" "
object types")""))
(ade_qrydefine '("AND" "" "" "Property" ("layer" "=" "
layers")""))
(ade_qrysetaltprop nil)
(ade_qryexecute)
(setvar "cmddia" ade_cmddia_before_qry)