4.39.grs

来自「UG二次开发很好的东西 需要的朋友可以下载来看看 很好用啊」· GRS 代码 · 共 15 行

entity/pt(3),obj
number/xyz1(3),xyz2(3)
data/xyz1,25,50,0
data/xyz2,-25,50,0

l10:
ident/'pick points',pt,cnt,num,resp
jump/l10:,trm:,,resp

l20:
obj=gconic/pt(1),pt(2),pt(3),vect,xyz1,xyz2

trm:
halt