1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
#include <XSControl_Vars.ixx>
#include <Geom_CartesianPoint.hxx>
#include <Geom2d_CartesianPoint.hxx>
#include <TopoDS_HShape.hxx>
#include <Interface_Macros.hxx>
XSControl_Vars::XSControl_Vars ()
{ thevars = new Dico_DictionaryOfTransient; }
void XSControl_Vars::Set
(const Standard_CString name,
const Handle(Standard_Transient)& val)
{
thevars->SetItem (name,val);
}
Handle(Standard_Transient) XSControl_Vars::Get ( Standard_CString& name) const
{
Handle(Standard_Transient) val;
if (!thevars->GetItem (name,val)) val.Nullify();
return val;
}
Handle(Geom_Geometry) XSControl_Vars::GetGeom ( Standard_CString& name) const
{ return GetCasted(Geom_Geometry,Get(name)); }
Handle(Geom2d_Curve) XSControl_Vars::GetCurve2d ( Standard_CString& name) const
{ return GetCasted(Geom2d_Curve,Get(name)); }
Handle(Geom_Curve) XSControl_Vars::GetCurve ( Standard_CString& name) const
{ return GetCasted(Geom_Curve,Get(name)); }
Handle(Geom_Surface) XSControl_Vars::GetSurface ( Standard_CString& name) const
{ return GetCasted(Geom_Surface,Get(name)); }
void XSControl_Vars::SetPoint (const Standard_CString name, const gp_Pnt& val)
{ Set (name, new Geom_CartesianPoint(val)); }
Standard_Boolean XSControl_Vars::GetPoint (Standard_CString& name, gp_Pnt& pnt) const
{
DeclareAndCast(Geom_CartesianPoint,val,Get(name));
if (val.IsNull()) return Standard_False;
pnt = val->Pnt();
return Standard_True;
}
void XSControl_Vars::SetPoint2d (const Standard_CString name, const gp_Pnt2d& val)
{ Set (name, new Geom2d_CartesianPoint(val)); }
Standard_Boolean XSControl_Vars::GetPoint2d (Standard_CString& name, gp_Pnt2d& pnt) const
{
DeclareAndCast(Geom2d_CartesianPoint,val,Get(name));
if (val.IsNull()) return Standard_False;
pnt = val->Pnt2d();
return Standard_True;
}
void XSControl_Vars::SetShape (const Standard_CString name, const TopoDS_Shape& val)
{ Set (name, new TopoDS_HShape(val)); }
TopoDS_Shape XSControl_Vars::GetShape (Standard_CString& name) const
{
TopoDS_Shape sh;
DeclareAndCast(TopoDS_HShape,val,Get(name));
if (!val.IsNull()) sh = val->Shape();
return sh;
}
|
