[ 草稿 ]

a = "PAN"
b = "GO"
c = strcat( a b )
println( c )
; "PANGO"

prog(( cv shapes )
cv = geGetEditCellView()
shapes = cv~>shapes
foreach( x shapes
when( x~>width >= 5
geSelectFig( x )
)
)
); prog

prog(( cv lpps file )
cv = dbOpenCellViewByType( "lib" "cell" "view" nil "r" )
dbOpenHier( cv 31 )
lpps = cv~>lpps
dbClose( cv )
file = outfile( "lpp.info" "w" )
foreach( lpp lpps
layerName = lpp~>layerName
purpose   = lpp~>purpose
fprintf( file "%-20s %s\n" layerName purpose )
)
close(file)
); prog

prog(( cv shapes target )
cv = geGetEditCellView()
shapes = cv~>shapes
target = setof( x shapes x~>width >= 5)
geSelectFigs( target )
); prog

prog(( cv shapes fig tsf )
cv = geGetEditCellView()
shapes = dbShapeQuery(
cv list( "MET3" "drawing" ) cv~>bBox
)
foreach( x shapes
fig = car(last( x ))
tsf = dbGetHierPathTransform( x )
dbCopyFig( fig cv tsf )
)
); prog

car( list( 1 2 3 ))  ; 1

cdr( list( 1 2 3 ))  ; ( 2 3 )

cadr( list( 1 2 3 ))  ; 2

append( list( 1 2 ) list( 3 4 ))

append( list( 1 2 ) list( 3 4 ))

append( list( 1 2 ) list( 3 4 ))

append1( list( 1 2 )  3 )

cons( 3 list( 1 2 ) )

loadi( "/path/file.il" )

调用方法

funcAdd( 1 2 )

procedure( funcLet( )
a = "global a"
b = "global b"
println( list( a b ))
let(( a )
a = "local a"
b = "local b"
println( list( a b ))
)
println( list( a b ))
)

prog(( a )
a = 0
while( t
when( a > 4
return( )
)
println( a++ )
)
)

prog(( a )
a = 0
while( t
when( a > 4
go( EXIT )
)
println( a++ )
)
EXIT
)