点线连杆
点生成
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'
}
连杆生成
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'
}
运行结果如下: