试试我的方法，不一定好，但是可以用。

基本思想是建立点集后，添加一步选择输出点集，代码如下：

$$选择要输出的点集
l40:
ident/'pick several point',ptarr,cnt,numPt,resp
jump/l40:,l50:,,resp

通过上面的代码，取得了点的数组ptarr，还有点集中点的个数，numPt。

用循环输出就可以了：

l70:
create/txt,1,'D:\New\UGTest\grip\' filename

l30:
do/trm:,index,1,numPt
pt=results(index)
a(1..3)=