John, Ask and you shall receive. This version also sets the marker and opacity to be by class. One correction to the description though. This script always sets the defaults to ByClass even if another object is selected when you run it. It could be modified to not do so if so desired. {Developed ?2003 Katerina Panagiotakis} {Opacity and marker by class added 2008 Pat Stanford} Procedure Classdf; var x,y,xo,yo: Real; h,oh,h0,hp,hx,ha,hg: Handle; message:integer; begin ha: