s=$()

for p in $ do

(

if p.max.y-p.min.y>12 then append s p

/*

如果變量p中物體在y方向（長邊）的最大值減去y方向最小值的結(jié)果>12，

那么，就把其加入空集s

*/

)

select s

----------------------------------

for p in $ do?--p為選中要生成文字的面片物體變量

(

WZ = text()

WZ.text=("ABCDEFGHIJKLMNOPQRSTUVWXYZ")[(random 1 26)]

WZ.size = 6

WZ.pos = p.pos

/*

創(chuàng)建文本空集為變量WZ，

設置WZ的內(nèi)容，并隨即從1~26的順序中選一個輸出，

設置輸出文字的大小為6，小于矩形面片短邊即可，

對齊輸出文字的軸坐標到矩形面片軸坐標

*/

convertToPoly WZ?--將WZ輸出結(jié)果對象塌陷為poly

x1 = WZ.max.x-WZ.min.x

x2 = p.max.x-p.min.x

x = x2/x1

/*

x1是某文字的寬度，比如其最右側(cè)x軸(WZ.max.x)為8，其最左側(cè)x軸(WZ.min.x)為-1，那其文字本身寬度(x1)即為9，

x2是所選某個面片的寬度，比如其最右側(cè)x軸(p.max.x)為5，其最左側(cè)x軸(p.min.x)為1，那其文字本身寬度(x2)即為4，

*/

y1 = WZ.max.y-WZ.min.y

y2 = p.max.y-p.min.y

y = y2/y1

scale WZ [x,y,0] --縮放某個文字的xy軸向為上面計算值，z軸保持為0

)