Location Query with Property Alteration

This example defines and executes a location query with property alteration.

 
(mapcar 'ade_dwgdeactivate (ade_dslist))
(setq ade_tmpprefval (ade_prefgetval "ActivateDwgsOnAttach"))
(ade_prefsetval "ActivateDwgsOnAttach" T)
(ade_dsattach "E:\\ADEDWG\\AQFA3.DWG")
(ade_prefsetval "ActivateDwgsOnAttach" ade_tmpprefval)
(ade_qryclear)
(ade_qrysettype "draw")
(ade_qrydefine '("" "" "" "Location" ("all" )""))
(ade_altpclear)
(ade_altpdefine "Height" "2")
(ade_altpdefine "Style" "Y")
(ade_altpdefine "TextValue" "test")
(ade_altpdefine "Layer" "newlyr")
(ade_altpdefine "Rotation" "0.5")
(ade_altpdefine "Color" "blue")
(ade_qryexecute)