Property Queries

The following examples define and execute property queries:

(mapcar 'ade_dwgdeactivate (ade_dslist))
(setq ade_tmpprefval (ade_prefgetval "ActivateDwgsOnAttach"))
(ade_prefsetval "ActivateDwgsOnAttach" T)
(ade_dsattach "E:\\ADEDWG\\ARCS2.DWG")
(ade_dsattach "E:\\ADEDWG\\CIRCLES2.DWG")
(ade_dsattach "E:\\ADEDWG\\DONUTS.DWG")
(ade_dsattach "E:\\ADEDWG\\LINES2.DWG")
(ade_dsattach "E:\\ADEDWG\\MAKE.DWG")
(ade_dsattach "E:\\ADEDWG\\POLYGONS.DWG")
(ade_dsattach "E:\\ADEDWG\\POLYLINE.DWG")
(ade_prefsetval "ActivateDwgsOnAttach" ade_tmpprefval)
(ade_qryclear)
(ade_qrysettype 2)
(ade_qrydefine '("" "" "" "Property" ("color" "=" "5")""))
(ade_qryexecute)

(mapcar 'ade_dwgdeactivate (ade_dslist))
(setq ade_tmpprefval (ade_prefgetval "ActivateDwgsOnAttach"))
(ade_prefsetval "ActivateDwgsOnAttach" T)
(ade_dsattach "AUTO:\\AQP5.DWG")
(ade_dsattach "AUTO:\\AQP5A.DWG")
(ade_dsattach "AUTO:\\MAKE.DWG")
(ade_prefsetval "ActivateDwgsOnAttach" ade_tmpprefval)
(ade_qryclear)
(ade_qrysettype "draw")
(ade_qrydefine 
    '("" "" "" "Property" ("objtype" "=" "SPLINE")"")) 
(ade_qrydefine 
    '("OR" "" "" "Property" ("objtype" "=" "ELLIPSE")"")) 
(ade_qryexecute)