> I am inserting a "dummy" line on the layer I want to check and after
> checking
> I am deleting this line
>
> ELMT_SEQ[BA=1, EL="0", ME=1]
> ON_LAYER[LY=71, WP="ZX_PLANE", LV=0, PT=?]
> LINE[XS=0, YS=0, ZS=0, XE=0.5, YE=0, ZE=0, ZI=0, SE=2, SS=2,
> PK=0]
> COLOR_CHG[CO=4, TY=1, TL=71, ST=1]
> NEW_GRP[]
> LAYER_GRP[AR=0, LY=71]
> IF(GRP(0)<>1)
> DELETE[EL="1"]
> NEW_GRP[]
> LAYER_GRP[AR=0, LY=71]
>
> Hope this help
> Peter
>
>
>
>
>
> How does one check if there is or is not geometry on a layer? Is my
> question.
>
> In the macro below I'm loading a mill file and getting it ready for wire
> cutting.
> Layers 45 through 49 are for mill setups like vices, clamps, stops etc.
> These layers are not used in the AGIE wire cut programs so I want to strip
> them out.
> Macro works fine until it tries to LAYER_GRP geometry on a layer that has
> no
> geometry.
> Does anybody out there have any ideas on how to get around this problem?
>
> // Advanced_Wedm 11.5 Windows 10/16/98 16:48:10 Macro File
> // W:\mcl\mil2agie.mcl
> // CREATED: 03/31/00
> //
> // This macro takes any mill program and reads it into the Advanced Wire
> module.
> // It then deletes all the tools and
> // deletes layers 45 thru 49 which are for mill vice, shims, clamps etc
> //
> MAC_EXE[FN="C:\\SM11\\SHARED\\SYSMCL\\GR_OFF"]
> //
> READ[FN="w:\\bo3000\\bo3176c", FT=0]
> //
> ON_LAYER[LY=1, WP="XY_PLANE", LV=0, PT=0]
> MASK[LY="*", SH=0]
> REDRAW[]
> SELECT_ALL[]
> GRP_DELETE[]
> MASK[LY="*", SH=1]
> REDRAW[]
> //
> LAYER_GRP[AR=0, LY="45"]
> LAYER_GRP[AR=0, LY="46"]
> LAYER_GRP[AR=0, LY="47"]
> LAYER_GRP[AR=0, LY="48"] <--- help here! macro stops because there's no
> geometry on layer 48
> LAYER_GRP[AR=0, LY="49"]
> GRP_DELETE[]
> //
> VIEW_ANGLE[A1=0, A2=0, VA=2, VP=0, RS=1, WP=0]
> MAC_EXE[FN="C:\\SM11\\SHARED\\SYSMCL\\GR_ON"]
>
>
> Thanks in advance for any suggestions.
>
>
> Regards,
>
> Michael Senack, X354
> Your local friendly neighborhood CNC Programmer
>
>
> ======================================================================
> To find out more about this mailing list including how to unsubscribe,
> send the message "info mfg-smartcam" to [EMAIL PROTECTED]
> ======================================================================
======================================================================
To find out more about this mailing list including how to unsubscribe,
send the message "info mfg-smartcam" to [EMAIL PROTECTED]
======================================================================
