EKL构造点和线的基本用法

案例1：曲线上间隔5000mm生成点

let P(Point)
let i(Integer)
i=1
for i while i<=length(`零件几何体\样条线.1` ) /5000mm
{
	P=CreateOrModifyDatum("Point",`左上弦点` ,`关系\知识工程阵列.1\Point` ,i) 
	P=pointoncurve(`零件几何体\样条线.1` ,`零件几何体\点.1` ,5000mm*i,true) 
	P.Name ="左上弦杆"+"_"+i
	P.Color ='red'
}

案例2：两点连线

let L(Line)
let i(Integer)
i=1
for i while i<=`关系\知识工程阵列.1\Point\尺寸` 
{
	L=CreateOrModifyDatum("Line",`左右上弦连杆` ,`关系\知识工程阵列.3\LINE` ,i) 
	L=line(`关系\知识工程阵列.1\Point`->GetItem(i) ,`关系\知识工程阵列.2\Point_R` ->GetItem(i) )    /*获取点列表*/
	L.Name ="连杆"+"_"+i
	L.Color ='BLUE'
}

运行结果如下：