File "flat_hier.il"

Full Path: /home/analogde/www/VirtualKeyboardSample/SKILL/flat_hier.il
File size: 711 bytes
MIME-type: text/plain
Charset: utf-8

procedure(hier()

	cv = geGetEditCellView()
  	
	newcv = dbOpenCellViewByType(cv~>libName
			             symbolToString(gensym(cv~>cellName))
				     "layout"
			   	     "maskLayout" "s"
	   			    )
	   
	foreach(shape setof(shp cv~>shapes shp~>objType!="textDisplay")
		dbCopyFig(shape newcv)
	       )

	level = 2
    
    	when(level>0
    	     foreach(inst cv~>instances
		    when(newInst=dbCopyFig(inst newcv)
			 dbFlattenInst(newInst level t t t)
			); when 
		    ); foreach
	    ); when 

	m1 = setof(x newcv~>shapes x~>lpp=='("METAL2" "drawing"))
	foreach(mapcar shape m1 dbCopyFig(shape cv))
    	dbClose(newcv)

)


;; ensuite on efface toures les instances
;;foreach(d_inst d_cv~>instances