TranslateCoordinates

[sam-123]

Bonjour tout le monde,

Quelqu’un pourrait il me dire l’équivalence de (TranslateCoordinates) en VB.net

En VBA c’étais comme cela :

 

[Dim PtStart, PtEnd As Variant]

[PtStart = ThisDrawing.Utility.GetPoint(, vbCrLf & "Point de Dépard :")]

[PtEnd = ThisDrawing.Utility.GetPoint(ThisDrawing.Utility.TranslateCoordinates(PtStart, [acWorld, acUCS, False), "Point d'Arrivé:")]

 

Merci d’avance a celui ou a celle qui perdrait du temps à me répondre. ;)

 

[(gile)]

Les bbcodes :

 

[surligneur][[/surligneur][surligneur]code[/surligneur][surligneur]][/surligneur] ici le code [surligneur][[/surligneur][surligneur]/code[/surligneur][surligneur]][/surligneur]

 

donne :

 ici  le code 

 

Accessibles avec l'icône # :

http://img94.imageshack.us/img94/8380/bbcode.png

 

En ce qui concerne la transformation des coordonnées en .NET, on utilise la méthode TransformBy() avec une matrice de transformation.

Les points retournés par Editor.Getpoint() (ou ceux utilisés pour PromptPointOptions.BasePoint)sont définis en coordonnées SCU courant.

La matrice de transformation du SCU courant vers le SCG est retournée par Editor.CurrentUserCoordinateSystem.

 

using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.EditorInput;;

...

Document doc = Application.DocumentManager.MdiActiveDocument;
Editor ed = doc.Editor;
Matrix3d ucs = ed.CurrentUserCoordinateSystem;
PromptPointResult ppr = ed.GetPoint("\nPoint de départ : ");
if (ppr.Status  != PromptStatus.OK)
   return;
Point3d ptStart = ppr.Value; // coordonnées SCU
PromptPointOptions ppo = new PromptPointOptions (\nPoint d'arrivée: ");
ppo.BasePoint = ptStart;
ppo.UseBasePoint = true;
ppr = ed.GetPoint(ppo);
if (ppr.Status  != PromptStatus.OK)
   return;
Point3d ptEnd = ppr.Value.TransformBy(ucs) // coordonnées SCG
ptStart = ptStart.TransformBy(ucs) // coordonnées SCG