Salome HOME
Copyright update 2021
[modules/geom.git] / src / BasicGUI / BasicGUI_WorkingPlaneDlg.cxx
1 // Copyright (C) 2007-2021  CEA/DEN, EDF R&D, OPEN CASCADE
2 //
3 // Copyright (C) 2003-2007  OPEN CASCADE, EADS/CCR, LIP6, CEA/DEN,
4 // CEDRAT, EDF R&D, LEG, PRINCIPIA R&D, BUREAU VERITAS
5 //
6 // This library is free software; you can redistribute it and/or
7 // modify it under the terms of the GNU Lesser General Public
8 // License as published by the Free Software Foundation; either
9 // version 2.1 of the License, or (at your option) any later version.
10 //
11 // This library is distributed in the hope that it will be useful,
12 // but WITHOUT ANY WARRANTY; without even the implied warranty of
13 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14 // Lesser General Public License for more details.
15 //
16 // You should have received a copy of the GNU Lesser General Public
17 // License along with this library; if not, write to the Free Software
18 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
19 //
20 // See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
21 //
22
23 // GEOM GEOMGUI : GUI for Geometry component
24 // File   : BasicGUI_WorkingPlaneDlg.cxx
25 // Author : Lucien PIGNOLONI, Open CASCADE S.A.S.
26 //
27 #include "BasicGUI_WorkingPlaneDlg.h"
28
29 #include <DlgRef.h>
30 #include <GeometryGUI.h>
31 #include <GEOMBase.h>
32
33 #include <SUIT_ResourceMgr.h>
34 #include <SUIT_Session.h>
35 #include <SalomeApp_Application.h>
36 #include <LightApp_SelectionMgr.h>
37
38 // OCCT Includes
39 #include <BRep_Tool.hxx>
40 #include <TopoDS_Edge.hxx>
41 #include <TopoDS_Vertex.hxx>
42 #include <TopExp.hxx>
43 #include <gp_Pnt.hxx>
44 #include <gp_Dir.hxx>
45 #include <TColStd_MapOfInteger.hxx>
46 #include <TopoDS_Shape.hxx>
47 #include <TColStd_IndexedMapOfInteger.hxx>
48 #include <TopTools_IndexedMapOfShape.hxx>
49
50 // QT Includes
51 #include <QCheckBox>
52
53 #include <GEOMImpl_Types.hxx>
54
55 //=================================================================================
56 // class    : BasicGUI_WorkingPlaneDlg()
57 // purpose  : Constructs a BasicGUI_WorkingPlaneDlg which is a child of 'parent', with the
58 //            name 'name' and widget flags set to 'f'.
59 //            The dialog will by default be modeless, unless you set 'modal' to
60 //            TRUE to construct a modal dialog.
61 //=================================================================================
62 BasicGUI_WorkingPlaneDlg::BasicGUI_WorkingPlaneDlg( GeometryGUI* theGeometryGUI, QWidget* parent,
63                                                     bool modal, Qt::WindowFlags fl )
64   : GEOMBase_Skeleton( theGeometryGUI, parent, modal, fl )
65 {
66   QPixmap image0( SUIT_Session::session()->resourceMgr()->loadPixmap( "GEOM", tr( "ICON_SELECT" ) ) );
67   QPixmap image1( SUIT_Session::session()->resourceMgr()->loadPixmap( "GEOM", tr( "ICON_DLG_WPLANE_FACE" ) ) );
68   QPixmap image2( SUIT_Session::session()->resourceMgr()->loadPixmap( "GEOM", tr( "ICON_DLG_WPLANE_VECTOR" ) ) );
69   QPixmap image3( SUIT_Session::session()->resourceMgr()->loadPixmap( "GEOM", tr( "ICON_DLG_WPLANE_ORIGIN" ) ) );
70
71   setWindowTitle( tr( "GEOM_WPLANE_TITLE" ) );
72
73   /***************************************************************/
74   mainFrame()->GroupConstructors->setTitle( tr( "GEOM_WPLANE" ) );
75   mainFrame()->RadioButton1->setIcon( image1 );
76   mainFrame()->RadioButton2->setIcon( image2 );
77   mainFrame()->RadioButton3->setIcon( image3 );
78
79   Group1 = new DlgRef_1Sel( centralWidget() );
80
81   Group1->GroupBox1->setTitle( tr( "GEOM_WPLANE_FACE" ) );
82   Group1->TextLabel1->setText( tr( "GEOM_SELECTION" ) );
83   Group1->PushButton1->setIcon( image0 );
84   Group1->LineEdit1->setReadOnly( true );
85
86   Group2 = new DlgRef_2Sel( centralWidget() );
87
88   Group2->GroupBox1->setTitle( tr( "GEOM_WPLANE_VECTOR" ) );
89   Group2->TextLabel1->setText( tr( "GEOM_WPLANE_VX" ) );
90   Group2->TextLabel2->setText( tr( "GEOM_WPLANE_VZ" ) );
91   Group2->PushButton1->setIcon( image0 );
92   Group2->PushButton2->setIcon( image0 );
93   Group2->LineEdit1->setReadOnly( true );
94   Group2->LineEdit2->setReadOnly( true );
95   Group2->PushButton1->setDown( true );
96   Group2->LineEdit1->setEnabled( true );
97   Group2->LineEdit2->setEnabled( false );
98
99   Group3 = new DlgRef_3Check( centralWidget() );
100
101   Group3->GroupBox1->setTitle( tr( "GEOM_WPLANE_ORIGIN" ) );
102   Group3->RadioButton1->setText( tr( "GEOM_WPLANE_OXY" ) );
103   Group3->RadioButton2->setText( tr( "GEOM_WPLANE_OYZ" ) );
104   Group3->RadioButton3->setText( tr( "GEOM_WPLANE_OZX" ) );
105
106   /***************************************************************/
107   QGroupBox* aReverseGroupBox = new QGroupBox( centralWidget() );
108   QHBoxLayout* aReverseGroupBoxLayout = new QHBoxLayout( aReverseGroupBox );
109   aReverseGroupBoxLayout->setMargin( 9 );
110   aReverseGroupBoxLayout->setSpacing( 6 );
111
112   myReverseCB = new QCheckBox( aReverseGroupBox );
113   myReverseCB->setText( tr( "GEOM_REVERSE_PLANE" ) );
114   aReverseGroupBoxLayout->addWidget( myReverseCB );
115
116   QVBoxLayout* layout = new QVBoxLayout( centralWidget() );
117   layout->setMargin( 0 ); layout->setSpacing( 6 );
118   layout->addWidget( Group1 );
119   layout->addWidget( Group2 );
120   layout->addWidget( Group3 );
121   layout->addWidget( aReverseGroupBox );
122
123   setHelpFileName( "create_wplane_page.html" );
124
125   Init();
126 }
127
128 //=================================================================================
129 // function : ~BasicGUI_WorkingPlaneDlg()
130 // purpose  : Destroys the object and frees any allocated resources
131 //=================================================================================
132 BasicGUI_WorkingPlaneDlg::~BasicGUI_WorkingPlaneDlg()
133 {
134 }
135
136 //=================================================================================
137 // function : Init()
138 // purpose  :
139 //=================================================================================
140 void BasicGUI_WorkingPlaneDlg::Init()
141 {
142   /* init variables */
143   myEditCurrentArgument = Group1->LineEdit1;
144   myWPlane = myGeomGUI->GetWorkingPlane();
145
146   // myGeomGUI->SetState( 0 );
147
148   myFace  = GEOM::GEOM_Object::_nil();
149   myVectX = GEOM::GEOM_Object::_nil();
150   myVectZ = GEOM::GEOM_Object::_nil();
151
152   aOriginType = 1;
153
154   /* Filter definition */
155   globalSelection( GEOM_PLANE );
156
157    /* signals and slots connections */
158   connect( myGeomGUI, SIGNAL( SignalDeactivateActiveDialog() ), this, SLOT( DeactivateActiveDialog() ) );
159   connect( myGeomGUI, SIGNAL( SignalCloseAllDialogs() ),        this, SLOT( ClickOnCancel() ) );
160
161   connect( buttonOk(),     SIGNAL( clicked() ), this, SLOT( ClickOnOk() ) );
162   connect( buttonApply(),  SIGNAL( clicked() ), this, SLOT( ClickOnApply() ) );
163
164   connect( this,           SIGNAL( constructorsClicked( int ) ), this, SLOT( ConstructorsClicked( int ) ) );
165
166   connect( Group1->LineEdit1,   SIGNAL( returnPressed() ), this, SLOT( LineEditReturnPressed() ) );
167   connect( Group1->PushButton1, SIGNAL( clicked() ),       this, SLOT( SetEditCurrentArgument() ) );
168   connect( Group2->LineEdit1,   SIGNAL( returnPressed() ), this, SLOT( LineEditReturnPressed() ) );
169   connect( Group2->PushButton1, SIGNAL( clicked() ),       this, SLOT( SetEditCurrentArgument() ) );
170   connect( Group2->LineEdit2,   SIGNAL( returnPressed() ), this, SLOT( LineEditReturnPressed() ) );
171   connect( Group2->PushButton2, SIGNAL( clicked() ),       this, SLOT( SetEditCurrentArgument() ) );
172
173   connect( Group3->GroupBox1, SIGNAL( clicked( int ) ), this, SLOT( GroupClicked( int ) ) );
174
175   connect( myReverseCB, SIGNAL( clicked() ), this, SLOT( onReverse() ) );
176
177   connect( ( (SalomeApp_Application*)( SUIT_Session::session()->activeApplication() ) )->selectionMgr(),
178            SIGNAL( currentSelectionChanged() ), this, SLOT( SelectionIntoArgument() ) );
179
180   initName( tr( "GEOM_WPLANE" ) );
181
182   setConstructorId( 2 ); // simplest constructor
183   ConstructorsClicked( 2 );
184 }
185
186 //=================================================================================
187 // function : ConstructorsClicked()
188 // purpose  : Radio button management
189 //=================================================================================
190 void BasicGUI_WorkingPlaneDlg::ConstructorsClicked( int constructorId )
191 {
192   LightApp_SelectionMgr* aSelMgr = myGeomGUI->getApp()->selectionMgr();
193
194   disconnect( aSelMgr, 0, this, 0 );
195
196   switch ( constructorId ) {
197   case 0:
198     {
199       TColStd_MapOfInteger aMap;
200       aMap.Add( GEOM_PLANE );
201       aMap.Add( GEOM_MARKER );
202       globalSelection( aMap );
203       Group2->hide();
204       Group3->hide();
205       Group1->show();
206       Group1->PushButton1->setDown(true);
207       myEditCurrentArgument = Group1->LineEdit1;
208       Group1->LineEdit1->setText( "" );
209       myFace = GEOM::GEOM_Object::_nil();
210
211       connect( aSelMgr, SIGNAL( currentSelectionChanged() ), this, SLOT( SelectionIntoArgument() ) );
212       break;
213     }
214   case 1:
215     {
216       globalSelection( GEOM_LINE );
217       Group1->hide();
218       Group3->hide();
219       Group2->show();
220       myEditCurrentArgument = Group2->LineEdit1;
221       Group2->LineEdit1->setText( "" );
222       Group2->LineEdit2->setText( "" );
223       Group2->PushButton1->setDown( true );
224       Group2->PushButton2->setDown( false );
225       Group2->LineEdit1->setEnabled( true );
226       Group2->LineEdit2->setEnabled( false );
227       myVectX = GEOM::GEOM_Object::_nil();
228       myVectZ = GEOM::GEOM_Object::_nil();
229
230       connect( aSelMgr, SIGNAL( currentSelectionChanged() ), this, SLOT( SelectionIntoArgument() ) );
231       break;
232     }
233   case 2:
234     {
235       Group1->hide();
236       Group2->hide();
237       Group3->show();
238       Group3->RadioButton1->setChecked( true );
239       aOriginType = 1;
240       break;
241     }
242   }
243
244   qApp->processEvents();
245   updateGeometry();
246   resize( minimumSizeHint() );
247
248   updateWPlane();
249 }
250
251 //=================================================================================
252 // function : GroupClicked()
253 // purpose  : Radio button management
254 //=================================================================================
255 void BasicGUI_WorkingPlaneDlg::GroupClicked( int groupId )
256 {
257   aOriginType = groupId;
258   updateWPlane();
259 }
260
261 //=================================================================================
262 // function : ClickOnOk()
263 // purpose  :
264 //=================================================================================
265 void BasicGUI_WorkingPlaneDlg::ClickOnOk()
266 {
267   setIsApplyAndClose( true );
268   if ( ClickOnApply() )
269     ClickOnCancel();
270 }
271
272 //=================================================================================
273 // function : ClickOnApply()
274 // purpose  :
275 //=================================================================================
276 bool BasicGUI_WorkingPlaneDlg::ClickOnApply()
277 {
278   buttonApply()->setFocus();
279   myGeomGUI->application()->putInfo( "" );
280
281   if ( updateWPlane( false ) ) {
282     myGeomGUI->SetWorkingPlane( myWPlane );
283     myGeomGUI->ActiveWorkingPlane();
284   }
285
286   return true;
287 }
288
289 //=================================================================================
290 // function : SelectionIntoArgument()
291 // purpose  : Called when selection as changed or other case
292 //=================================================================================
293 void BasicGUI_WorkingPlaneDlg::SelectionIntoArgument()
294 {
295   myEditCurrentArgument->setText( "" );
296   QString aName;
297
298   LightApp_SelectionMgr* aSelMgr = myGeomGUI->getApp()->selectionMgr();
299   SALOME_ListIO aSelList;
300   aSelMgr->selectedObjects(aSelList);
301
302   const int id = getConstructorId();
303   if (aSelList.Extent() != 1) {
304     if ( id == 0 )
305       myFace = GEOM::GEOM_Object::_nil();
306     else if ( id == 1 ) {
307       if ( myEditCurrentArgument == Group2->LineEdit1 )
308         myVectX = GEOM::GEOM_Object::_nil();
309       else if ( myEditCurrentArgument == Group2->LineEdit2 )
310         myVectZ = GEOM::GEOM_Object::_nil();
311     }
312     return;
313   }
314
315   // nbSel == 1
316   Standard_Boolean aRes = Standard_False;
317   GEOM::GEOM_Object_var aSelectedObject = GEOMBase::ConvertIOinGEOMObject(aSelList.First(), aRes);
318
319   if ( !aRes || CORBA::is_nil( aSelectedObject ) )
320     return;
321
322   aName = GEOMBase::GetName(aSelectedObject);
323
324   if ( myEditCurrentArgument == Group1->LineEdit1 )
325     myFace = aSelectedObject;
326   else if ( myEditCurrentArgument == Group2->LineEdit1 ||
327             myEditCurrentArgument == Group2->LineEdit2 ) {
328     if ( aRes && !aSelectedObject->_is_nil() ) {
329       TopoDS_Shape aShape;
330       if ( GEOMBase::GetShape( aSelectedObject, aShape, TopAbs_SHAPE ) && !aShape.IsNull() ) {
331         TColStd_IndexedMapOfInteger aMap;
332         aSelMgr->GetIndexes(aSelList.First(), aMap);
333         if ( aMap.Extent() == 1 ) {
334           int anIndex = aMap( 1 );
335           aName = aName + ":edge_" + QString::number( anIndex );
336
337           GEOM::GEOM_IShapesOperations_var aShapesOp =
338             getGeomEngine()->GetIShapesOperations();
339           if ( myEditCurrentArgument == Group2->LineEdit1 )
340             myVectX = aShapesOp->GetSubShape( aSelectedObject, anIndex );
341           else
342             myVectZ = aShapesOp->GetSubShape( aSelectedObject, anIndex );
343         }
344         else {
345           if ( aShape.ShapeType() != TopAbs_EDGE ) {
346             aSelectedObject = GEOM::GEOM_Object::_nil();
347             aName = "";
348           }
349         }
350         aSelMgr->clearSelected();
351       }
352     }
353   }
354
355   myEditCurrentArgument->setText( aName );
356
357   if ( myEditCurrentArgument == Group2->LineEdit1 ) {
358     myVectX = aSelectedObject;
359     if ( !myVectX->_is_nil() && myVectZ->_is_nil() )
360       Group2->PushButton2->click();
361   }
362   else {
363     myVectZ = aSelectedObject;
364     if ( !myVectZ->_is_nil() && myVectX->_is_nil() )
365       Group2->PushButton1->click();
366   }
367
368   updateWPlane();
369 }
370
371
372 //=================================================================================
373 // function : SetEditCurrentArgument()
374 // purpose  :
375 //=================================================================================
376 void BasicGUI_WorkingPlaneDlg::SetEditCurrentArgument()
377 {
378   QPushButton* send = (QPushButton*)sender();
379
380   if ( send == Group1->PushButton1 ) {
381     myEditCurrentArgument = Group1->LineEdit1;
382     globalSelection( GEOM_PLANE );
383   }
384   else if ( send == Group2->PushButton1 ) {
385     myEditCurrentArgument = Group2->LineEdit1;
386     GEOM::GEOM_Object_var anObj;
387     //    localSelection( anObj, TopAbs_EDGE );
388     globalSelection( GEOM_LINE );
389     Group2->PushButton2->setDown( false );
390     Group2->LineEdit1->setEnabled( true );
391     Group2->LineEdit2->setEnabled( false );
392   }
393   else if ( send == Group2->PushButton2 ) {
394     myEditCurrentArgument = Group2->LineEdit2;
395     GEOM::GEOM_Object_var anObj;
396     //    localSelection( anObj, TopAbs_EDGE );
397     globalSelection( GEOM_LINE );
398     Group2->PushButton1->setDown( false );
399     Group2->LineEdit1->setEnabled( false );
400     Group2->LineEdit2->setEnabled( true );
401   }
402
403   myEditCurrentArgument->setFocus();
404   //  SelectionIntoArgument();
405   send->setDown(true);
406   displayPreview(true);
407 }
408
409
410 //=================================================================================
411 // function : LineEditReturnPressed()
412 // purpose  :
413 //=================================================================================
414 void BasicGUI_WorkingPlaneDlg::LineEditReturnPressed()
415 {
416   QLineEdit* send = (QLineEdit*)sender();
417   if ( send == Group1->LineEdit1 || send == Group2->LineEdit1 || send == Group2->LineEdit2 ) {
418     myEditCurrentArgument = send;
419     GEOMBase_Skeleton::LineEditReturnPressed();
420   }
421 }
422
423
424 //=================================================================================
425 // function : onReverse()
426 // purpose  :
427 //=================================================================================
428 void BasicGUI_WorkingPlaneDlg::onReverse()
429 {
430   updateWPlane();
431 }
432
433
434 //=================================================================================
435 // function : ActivateThisDialog()
436 // purpose  :
437 //=================================================================================
438 void BasicGUI_WorkingPlaneDlg::ActivateThisDialog( )
439 {
440   GEOMBase_Skeleton::ActivateThisDialog();
441   connect( ( (SalomeApp_Application*)( SUIT_Session::session()->activeApplication( ) ) )->selectionMgr(),
442            SIGNAL( currentSelectionChanged() ), this, SLOT( SelectionIntoArgument() ) );
443
444   ConstructorsClicked( getConstructorId() );
445 }
446
447
448 //=================================================================================
449 // function : DeactivateActiveDialog()
450 // purpose  : public slot to deactivate if active
451 //=================================================================================
452 void BasicGUI_WorkingPlaneDlg::DeactivateActiveDialog()
453 {
454   // myGeomGUI->SetState( -1 );
455   GEOMBase_Skeleton::DeactivateActiveDialog();
456 }
457
458 //=================================================================================
459 // function : enterEvent()
460 // purpose  :
461 //=================================================================================
462 void BasicGUI_WorkingPlaneDlg::enterEvent( QEvent* )
463 {
464   if ( !mainFrame()->GroupConstructors->isEnabled() )
465     ActivateThisDialog();
466 }
467
468 //=================================================================================
469 // function : updateWPlane
470 // purpose  :
471 //=================================================================================
472 bool BasicGUI_WorkingPlaneDlg::updateWPlane( const bool showPreview )
473 {
474   erasePreview();
475
476   const int id = getConstructorId();
477
478   if ( id == 0 ) { // by planar face selection
479     if ( CORBA::is_nil( myFace ) ) {
480       if ( !showPreview )
481         showError( "Face has to be selected" );
482       return false;
483     }
484
485     // PAL12781: set center of WPL to face's center of mass
486     // like it is done for LCS creation
487     CORBA::Double Ox, Oy, Oz,   Zx, Zy, Zz,   Xx, Xy, Xz;
488     Ox = Oy = Oz = Zx = Zy = Xy = Xz = 0.;
489     Zz = Xx = 1.;
490
491     GEOM::GEOM_IMeasureOperations_ptr aMeasureOp =
492       myGeomGUI->GetGeomGen()->GetIMeasureOperations();
493     aMeasureOp->GetPosition( myFace, Ox, Oy, Oz, Zx, Zy, Zz, Xx, Xy, Xz);
494
495     if ( aMeasureOp->IsDone() ) {
496       gp_Pnt aPnt ( Ox, Oy, Oz );
497       gp_Dir aDirN ( Zx, Zy, Zz );
498       gp_Dir aDirX ( Xx, Xy, Xz );
499       myWPlane = gp_Ax3( aPnt, aDirN, aDirX );
500     }
501     else {
502       if ( !showPreview )
503         showError( "Wrong shape selected (has to be a planar face)" );
504       return false;
505     }
506   }
507   else if ( id == 1 ) { // by two vectors (Ox & Oz)
508     if ( CORBA::is_nil( myVectX ) || CORBA::is_nil( myVectZ ) ) {
509       if ( !showPreview )
510         showError( "Two vectors have to be selected" );
511       return false;
512     }
513
514     TopoDS_Edge aVectX, aVectZ;
515     TopoDS_Vertex VX1, VX2, VZ1, VZ2;
516     gp_Vec aVX, aVZ;
517
518     if ( !GEOMBase::GetShape( myVectX, aVectX, TopAbs_EDGE ) ||
519          !GEOMBase::GetShape( myVectZ, aVectZ, TopAbs_EDGE ) ) {
520       if ( !showPreview )
521         showError( "Wrong shape selected (two vectors(edges) have to be selected)" );
522       return false;
523     }
524
525     TopExp::Vertices( aVectX, VX1, VX2, Standard_True );
526     TopExp::Vertices( aVectZ, VZ1, VZ2, Standard_True );
527
528     if ( VX1.IsNull() || VX2.IsNull() ) {
529       if ( !showPreview )
530         showError( "Bad OX vector" );
531       return false;
532     }
533     if ( VZ1.IsNull() || VZ2.IsNull() ) {
534       if ( !showPreview )
535         showError( "Bad OZ vector" );
536       return false;
537     }
538
539     aVX = gp_Vec( BRep_Tool::Pnt( VX1 ), BRep_Tool::Pnt( VX2 ) );
540     aVZ = gp_Vec( BRep_Tool::Pnt( VZ1 ), BRep_Tool::Pnt( VZ2 ) );
541
542     if ( aVX.Magnitude() < Precision::Confusion() ) {
543       if ( !showPreview )
544         showError( "Bad OX vector" );
545       return false;
546     }
547     if ( aVZ.Magnitude() < Precision::Confusion() ) {
548       if ( !showPreview )
549         showError( "Bad OZ vector" );
550       return false;
551     }
552
553     gp_Dir aDirX = gp_Dir( aVX.X(), aVX.Y(), aVX.Z() );
554     gp_Dir aDirZ = gp_Dir( aVZ.X(), aVZ.Y(), aVZ.Z() );
555
556     if ( aDirX.IsParallel( aDirZ, Precision::Angular() ) ) {
557       if ( !showPreview )
558         showError( "Parallel vectors selected" );
559       return false;
560     }
561
562     myWPlane = gp_Ax3( BRep_Tool::Pnt( VX1 ), aDirZ, aDirX );
563
564   }
565   else if ( id == 2 ) { // by selection from standard (OXY or OYZ, or OZX)
566     gp_Ax2 anAx2;
567
568     if      ( aOriginType == 1 ) anAx2 = gp::XOY();
569     else if ( aOriginType == 2 ) anAx2 = gp::YOZ();
570     else if ( aOriginType == 0 ) anAx2 = gp::ZOX();
571
572     myWPlane = gp_Ax3( anAx2 );
573
574   }
575   else {
576     return false;
577   }
578
579   if ( myReverseCB->isChecked() ) {
580     myWPlane.YReverse();
581     myWPlane.ZReverse();
582   }
583
584   if ( showPreview ) {
585     GEOM::GEOM_IBasicOperations_var aBasicOp = getGeomEngine()->GetIBasicOperations();
586     GEOM::GEOM_Object_var anObj = aBasicOp->MakeMarker
587       ( myWPlane.Location().X(),   myWPlane.Location().Y(),   myWPlane.Location().Z(),
588         myWPlane.XDirection().X(), myWPlane.XDirection().Y(), myWPlane.XDirection().Z(),
589         myWPlane.YDirection().X(), myWPlane.YDirection().Y(), myWPlane.YDirection().Z() );
590     displayPreview( anObj );
591   }
592
593   return true;
594 }