| Up a level |
 |
 |
 |
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)