Let S(Surface)
Let A(Surface)
Let B(Surface)
Let i(Integer)
i=1
for i while i<=`Geometrical Set.3\Integer.2`
{
S=List_ALL ->GetItem(i)
A=assemble(B,S)
B=A
}
`Geometrical Set.3\Surface.46` =B
Sorting List
Let tmplist(List)
Let newlist(List)
tmplist.Append(tmpLine\Line.1 )
tmplist.Append(tmpLine\Line.2 )
tmplist.Append(tmpLine\Line.3 )
tmplist.Append(tmpLine\Line.4 )
newlist=tmplist.Sort(">","Line","length","y=length(x)")
Sorting\Line_Getitem_1 =newlist->GetItem(1)
Sorting\Line_GetItem_2 =newlist->GetItem(2)
Let newlist(List)
tmplist.Append(tmpLine\Line.1 )
tmplist.Append(tmpLine\Line.2 )
tmplist.Append(tmpLine\Line.3 )
tmplist.Append(tmpLine\Line.4 )
newlist=tmplist.Sort(">","Line","length","y=length(x)")
Sorting\Line_Getitem_1 =newlist->GetItem(1)
Sorting\Line_GetItem_2 =newlist->GetItem(2)
Retrieving Point Coordinate and Converting to Single String
Let P1(Point)
Let XL(Length)
Let YL(Length)
Let ZL(Length)
Let XR(Real)
Let YR(Real)
Let ZR(Real)
Let XS(String)
Let YS(String)
Let ZS(String)
Let XYZ(String)
P1=`Geometrical Set.2\SelPT`
XL =P1->coord(1)
YL =P1->coord(2)
ZL =P1->coord(3)
' --- ※Point >coord (rank: Integer): Length
' --- ※Returns the coordinates of a point. Returns X if 1 is specified, Y if 2 is specified, Z if 3 is specified.
XR=int(XL/1mm)
YR=int(YL/1mm)
ZR=int(ZL/1mm)
XS=ToString(XR)
YS=ToString(YR)
ZS=ToString(ZR)
XYZ=XS+", "+YS+", "+ZS
`Geometrical Set.2\ResultString` =XYZ
Let XL(Length)
Let YL(Length)
Let ZL(Length)
Let XR(Real)
Let YR(Real)
Let ZR(Real)
Let XS(String)
Let YS(String)
Let ZS(String)
Let XYZ(String)
P1=`Geometrical Set.2\SelPT`
XL =P1->coord(1)
YL =P1->coord(2)
ZL =P1->coord(3)
' --- ※Point >coord (rank: Integer): Length
' --- ※Returns the coordinates of a point. Returns X if 1 is specified, Y if 2 is specified, Z if 3 is specified.
XR=int(XL/1mm)
YR=int(YL/1mm)
ZR=int(ZL/1mm)
XS=ToString(XR)
YS=ToString(YR)
ZS=ToString(ZR)
XYZ=XS+", "+YS+", "+ZS
`Geometrical Set.2\ResultString` =XYZ
Knowledge Pattern : Sample (Suwon 2nd Gym Project)
Let udf(UserFeature)
Let i(Integer)
Let li(Line)
Let st(String)
i=1
For i while i <= `List_SpaceFrameLine\Size`
{
li=`List_SpaceFrameLine` ->GetItem(i)
st="SpPipe_"+ToString(i)
udf= CreateOrModifyTemplate("Knowledge_Pattern_Catalog|SpaceFrame_PipeGeo",`SpaceFrame_Pipe` ,`Relations\Knowledge Pattern_SpacePipe\UDFs` ,i)
udf->SetAttributeObject("CenterLine", li )
udf.Name=st
udf.Color=`Pipe_Color`
EndModifyTemplate(udf)
i=i+1
}
Let i(Integer)
Let li(Line)
Let st(String)
i=1
For i while i <= `List_SpaceFrameLine\Size`
{
li=`List_SpaceFrameLine` ->GetItem(i)
st="SpPipe_"+ToString(i)
udf= CreateOrModifyTemplate("Knowledge_Pattern_Catalog|SpaceFrame_PipeGeo",`SpaceFrame_Pipe` ,`Relations\Knowledge Pattern_SpacePipe\UDFs` ,i)
udf->SetAttributeObject("CenterLine", li )
udf.Name=st
udf.Color=`Pipe_Color`
EndModifyTemplate(udf)
i=i+1
}
Using the Object Browser
The object browser guides you when writing a script. It allows you to access the keywords, operators and feature attributes that can be used when working with Product Knowledge Template.
피드 구독하기:
글 (Atom)

