isodraw macros

i'm trying to create a macro to place all art (items) to correct layers. (ie: callouts,flowlines,phantom, and parts) having problem where the parts are not going to part layers and the balloon callouts (from palette window) not going to callout layer. everything else goes to there current layers. Unless i'm missing something along the way. please, see below on how i have writtern the format. thanks in advance for your help in this matter.

PS:

i have attach sample for your review for what i'm trying to achieve.

everything is a standard line wt. (.007) this is company standard. (No thck/thin line wts)

Macro To Correct Layer

SELECT ALL

SELECT NONE

Select if Pen is equal to 'Phantom'

ACTIVATE LAYER "Phantom"

SELECTED ELEMENTS TO ACTIVE LAYER

SELECT NONE

Select if Pen is equal to '$ISO_CENTERLINE'

ACTIVATE LAYER "Flow Lines"

SELECTED ELEMENTS TO ACTIVE LAYER

SELECT NONE

Select if Type is equal to 'Callouts'

ACTIVATE LAYER "Callouts"

SELECTED ELEMENTS TO ACTIVE LAYER

SELECT NONE

Select if Type is equal to 'Text'

ACTIVATE LAYER "Callouts"

SELECTED ELEMENTS TO ACTIVE LAYER

SELECT NONE

SELECT if Pen is equal to 'Parts'

ACTIVATE LAYER "Parts"

Selected Elements to active layer

SELECT NONE

End Macro

again thanks in advance for your time and effort in this matter.

bob