Complex Query

The following query definition combines a location buffer fence condition and a property condition with a range table definition, and property alteration is performed on the query result.

(mapcar 'ade_dwgdeactivate (ade_dslist))
(setq ade_tmpprefval (ade_prefgetval "ActivateDwgsOnAttach"))
(ade_prefsetval "ActivateDwgsOnAttach" T)
(setq dwg_id(ade_dsattach "E:\\ADEDWG\\POPS.DWG"))
(ade_prefsetval "ActivateDwgsOnAttach" ade_tmpprefval)
(ade_qryclear)
(ade_qrysettype "draw")
; location buffer fence
(ade_qrydefine 
   '("" "" "" "Location" ("bufferfence" "inside"  3.000000  
    (4.426217 7.991379 0.000000) 
    (2.385054 5.530788 0.000000) 
    (4.648083 3.912562 0.000000) 
    (5.912716 5.708128 0.000000) 
    (7.754200 3.823892 0.000000) 
    (8.020439 3.646552 0.000000))"")) 
(ade_qrydefine 
   '("OR" "" "" "Property" ("objtype" "=" "ARC,CIRCLE")"")) 
; range table
(ade_rtdefrange 
    "Rtable" "Range table depending upon object type"  
    '(("=" "CIRCLE" "LAYER-CIRCLE") 
      ("=" "ARC" "LAYER-ARC") 
      ("OTHERWISE" "" "LAYER-OTHERS"))) 
(ade_altpclear)
(ade_altpdefine "Layer" "(Range .TYPE Rtable)")
(ade_altpdefine "Color" "YELLOW")
(ade_qryexecute)