how to remove a subclass

Use  axlSubclasses to list all subclasses for a class.

Use axlLayerGet to get the layer parameters. The userDefined attribute tells you whether it is user-defined

Use the selection set  utilities to see if it's empty

Hi Dave,
Thanks for the guide. I managed to write a SKILL program to do this. One of my first program.. I'm pretty sure this code can be further simplified so realy appreciate your comments. Below is my code:-

defun( cleanupSubclass ()
 l_sclass_to_delete = tconc(nil "SMART")
 l_filter = list("noall" "lines" "shapes" "linesegs" "shapesegs" "voidsegs" "figures" "text")
 l_visibility=axlVisibleGet() ;To store the currnet visibility
 axlSetFindFilter(?enabled l_filter ?onButtons l_filter)

 foreach( _subclass axlSubclasses("PACKAGE GEOMETRY" ?field 'userDefined)  ;Check every user defined subclass
  axlClearSelSet()
  axlVisibleDesign(nil)
  axlVisibleLayer(strcat("PACKAGE GEOMETRY/" _subclass) t )
  axlUIWUpdate(nil)
  axlAddSelectAll()
  aChkEmpty = length(axlGetSelSet())

  if( aChkEmpty > 0 then
   ; DO NOTHING AS THE SUBCLASS IS NOT EMPTY
  else
   if( substring(_subclass 1 3) == "DTS" then
    ; do nothing is there is a DTS prefix which is being used in our process
   else
    ;APPEND THE CLASS/SUBCLASS INTO THE LIST
    scls = strcat("PACKAGE GEOMETRY/" _subclass)
    tconc(l_sclass_to_delete scls)   ;append it into a list in the <class/subclasss> format
   ) ;end if
  ); end if
 );end foreach

 axlClearSelSet()
 axlSetFindFilter(?enabled 'noall ?onButtons 'noall)
 deleteUnusedSubclass(cdr(car(l_sclass_to_delete)))
 axlVisibleSet(l_visibility)
 axlUIWUpdate(nil)

)  ; end defun

defun( deleteUnusedSubclass (l_delSubCls)
 foreach( sclsToDelete l_delSubCls  ;delete every user defined subclass which are empty
  axlDeleteObject(axlLayerGet(sclsToDelete))
 );end foreach text items

); end defun

Hi,

This is somewhat simpler:

defun( cleanupSubclass ()

 let((l_filter, l_visibility, layerName)

l_filter = list("noall" "lines" "shapes" "linesegs" "shapesegs" "voidsegs" "figures" "text")

l_visibility = axlVisibleGet() ;To store the currnet visibility

axlSetFindFilter(?enabled l_filter ?onButtons l_filter)

foreach( _subclass axlSubclasses("PACKAGE GEOMETRY" ?field 'userDefined)  ;Check every user defined subclass

axlClearSelSet()

axlVisibleDesign(nil)

axlVisibleLayer(strcat("PACKAGE GEOMETRY/" _subclass) t )

axlUIWUpdate(nil)

axlAddSelectAll()

unless(axlGetSelSet() || substring(_subclass 1 3) == "DTS"

;Delete the layer

layerName = strcat("PACKAGE GEOMETRY/" _subclass)

when(axlUIYesNo(sprintf(nil, "Delete layer: %s", layerName), nil, 'no)

axlDeleteObject( axlLayerGet(layerName) );add it into a list in the <class/subclasss> format

)

) ;end unless

);end foreach

axlClearSelSet()

axlSetFindFilter(?enabled 'noall ?onButtons 'noall)

axlVisibleSet(l_visibility) 

axlUIWUpdate(nil)

))  ; end defun