| Up a level |
 |
 |
 |
Location Query with Property Alteration: Before and After
This example shows two versions of a property alteration query. The second example is an edited version of the first. Note how changes to the arguments in the ade_altpdefine calls cause different property alteration effects.
Original Version
(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\\ESPMR.DWG")
(ade_dsattach "E:\\ADEDWG\\LINES2.DWG")
(ade_dsattach "E:\\ADEDWG\\POLYGONS.DWG")
(ade_dsattach "E:\\ADEDWG\\POLYLINE.DWG")
(ade_prefsetval "ActivateDwgsOnAttach" ade_tmpprefval)
(ade_qryclear)
(ade_qrysettype "draw")
(ade_qrydefine '("" "" "" "Location" ("all" )""))
; ade_altpdefine calls
(ade_altpdefine "Color" "5")
(ade_altpdefine "Layer" "NEWLYR")
(ade_altpdefine "Elevation" "-2")
(ade_altpdefine "Thickness" "1.5")
(ade_altpdefine "Linetype" "CENTER")
(ade_qryexecute)
Edited Version
(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\\ESPMR.DWG")
(ade_dsattach "E:\\ADEDWG\\LINES2.DWG")
(ade_dsattach "E:\\ADEDWG\\POLYGONS.DWG")
(ade_dsattach "E:\\ADEDWG\\POLYLINE.DWG")
(ade_prefsetval "ActivateDwgsOnAttach" ade_tmpprefval)
(ade_qryclear)
(ade_qrysettype "draw")
(ade_qrydefine '("" "" "" "Location" ("all" )""))
; changes in ade_altpdefine calls
(ade_altpdefine "Color" "BLUE")
(ade_altpdefine "Layer" "XYZ")
(ade_altpdefine "Elevation" "7")
(ade_altpdefine "Thickness" "1.5")
(ade_altpdefine "Linetype" "CENTER")
(ade_qryexecute)