topic Re: Jigging DIFF coordinates FROM BASE POINT in .NET Forum

Jigging DIFF coordinates FROM BASE POINT

hosneyalaa — Tue, 17 Nov 2020 07:47:40 GMT

Hello all
Hello ... Mr _gile

Is it possible to modify the code he wrote Mr _gile
in the page forums.autodesk.com/t5/net/jigging-mtext-includes-coordinates-along-selected-polyline/td-p/9861335

If possible, I want as it is in the picture
Hold until the user cancels the right-click of the mouse

LISP FOR Jigging DIFF coordinates FROM BASE POINT

(defun c:TEST ( / #READ C3D C3DDOC ETXT INVERTX INVERTY INVERTZ OBJ OCOGO P PNTNUMS POINTS PRVTEXT PT PTZ SCL SLOPZ STR TXT TXTP XOF YOF) (vl-load-com) (setvar "CMDECHO" 0) (command "-osnap" "off") (setq xof 1 yof -1 scl (/ (getvar 'viewsize) (cadr (getvar 'screensize))) ) ;;; (if (SETQ ptb (GETPOINT "\n-> Specify a point :")) (PROGN (while (not (eq 25 (car (setq #Read (grread T 15 0))))) (if (vl-consp (cadr #Read)) (PROGN (setq pt (trans (cadr #Read) 0 1)) (setq INVERTX (rtos (- (car pt)(car ptb)) 2 3));LEVEL FOR TEXT (setq INVERTY (rtos (- (cadr pt) (cadr ptb)) 2 3));LEVEL FOR TEXT (setq p (cadr #Read) str (mapcar 'rtos p) txtp (list (+ (car p) (* xof scl)) (+ (cadr p) (* yof scl))) txt (strcat "X2-X1= " INVERTX "\\P Y2-Y1= " INVERTY ) ) (setq etxt (list (cons 0 "MTEXT") (cons 100 "AcDbEntity") (cons 62 2) (cons 100 "AcDbMText") (cons 10 txtp) (cons 40 (* 10 scl)) (cons 1 txt) ) ) (if prvtext (entdel prvtext)) (setq prvtext (entmakex etxt)) (princ "\nWORKing.") ) );_ if (if (eq 3 (car #Read)) (PROGN (entmakex (list (cons 0 "MTEXT") (cons 100 "AcDbEntity") (cons 100 "AcDbMText") (cons 10 (LIST (CAR (cadr #Read))(CADR (cadr #Read)))) (cons 1 txt))) ;;; (entmakex (list (cons 0 "TEXT") ;;; (cons 10 (LIST (CAR (cadr #Read))(CADR (cadr #Read)))) ;;; (cons 62 3) ;;; (cons 40 0.5) ;;; (cons 8 "00_out") ;;; (cons 1 txt)) ;;; ;;;);_ entmake ) ) ;_ if );;;;;;;;WHILE (entdel (entlast)) ) ) (command "_undo" "_end") (setvar "CMDECHO" 1) (princ) )

If possible, I want as it is in the picture
Hold until the user cancels the right-click of the mouse

[CommandMethod("JIGMTEXT")] public static void JigMTextAlongPolyline() { var doc = Application.DocumentManager.MdiActiveDocument; var db = doc.Database; var ed = doc.Editor; var entityOptions = new PromptEntityOptions("\nSelect curve: "); entityOptions.SetRejectMessage("\nMust be a Curve."); entityOptions.AddAllowedClass(typeof(Curve), false); var entityResult = ed.GetEntity(entityOptions); if (entityResult.Status != PromptStatus.OK) return; using (var tr = db.TransactionManager.StartTransaction()) { var curve = (Curve)tr.GetObject(entityResult.ObjectId, OpenMode.ForRead); using (var line = new Line() { ColorIndex = 1 }) using (var mtext = new MText() { ColorIndex = 2 }) { var curSpace = (BlockTableRecord)tr.GetObject(db.CurrentSpaceId, OpenMode.ForWrite); curSpace.AppendEntity(line); tr.AddNewlyCreatedDBObject(line, true); curSpace.AppendEntity(mtext); tr.AddNewlyCreatedDBObject(mtext, true); var jig = new MTextJig(line, mtext, curve); var promptResult = ed.Drag(jig); if (promptResult.Status != PromptStatus.OK) { line.Erase(); mtext.Erase(); } } tr.Commit(); } } class MTextJig : DrawJig { Line line; MText mtext; Curve curve; Point3d startPt, endPt; public MTextJig(Line line, MText mtext, Curve curve) { this.line = line; this.mtext = mtext; this.curve = curve; } protected override SamplerStatus Sampler(JigPrompts prompts) { var options = new JigPromptPointOptions("\nSpecicfy insertion point: "); options.UserInputControls = UserInputControls.Accept3dCoordinates | UserInputControls.UseBasePointElevation; var result = prompts.AcquirePoint(options); if (result.Value.IsEqualTo(startPt)) return SamplerStatus.NoChange; startPt = result.Value; endPt = curve.GetClosestPointTo(startPt, false); return SamplerStatus.OK; } protected override bool WorldDraw(WorldDraw draw) { WorldGeometry geo = draw.Geometry; if (geo != null) { line.StartPoint = startPt; line.EndPoint = endPt; geo.Draw(line); mtext.Location = line.StartPoint; mtext.Contents = $@"X = {endPt.X:0.00}\PY = {endPt.Y:0.00}"; mtext.Attachment = startPt.X < endPt.X ? AttachmentPoint.MiddleRight : AttachmentPoint.MiddleLeft; geo.Draw(mtext); } return true; } }

Thanks to all

Re: Jigging DIFF coordinates FROM BASE POINT

fieldguy — Tue, 17 Nov 2020 16:04:16 GMT

the C# code you posted is not what is running in your video.

try changing:

mtext.Contents = $@"X = {endPt.X:0.00}\PY = {endPt.Y:0.00}";

to this:

mtext.Contents = $@"X2 - X1 = {endPt.X - startPt.X:0.00}\PY2 - Y1 = {endPt.Y - startPt.Y:0.00}";

also test on a polyline that is not ortho.

Re: Jigging DIFF coordinates FROM BASE POINT

hosneyalaa — Tue, 17 Nov 2020 17:59:23 GMT

Hi @fieldguy

Thank you response helped me

But I want to make the difference between A point that the user enters

var entityOptions = new PromptPointOptions(System.Environment.NewLine + "\nSpecicfy insertion point: "); var entityResult = ed.GetPoint(entityOptions);

And the second point that when you click the mouse

protected override SamplerStatus Sampler(JigPrompts prompts) { var options = new JigPromptPointOptions("\nSpecicfy insertion point: "); options.UserInputControls = UserInputControls.Accept3dCoordinates | UserInputControls.UseBasePointElevation; var result = prompts.AcquirePoint(options); if (result.Value.IsEqualTo(startPt)) return SamplerStatus.NoChange; startPt = result.Value; return SamplerStatus.OK; }

Can you guide me to the error in this code

using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Threading.Tasks; using Autodesk.AutoCAD.DatabaseServices; using Autodesk.AutoCAD.EditorInput; using Autodesk.AutoCAD.Geometry; using Autodesk.AutoCAD.Runtime; using AcAp = Autodesk.AutoCAD.ApplicationServices.Application; using Autodesk.AutoCAD.ApplicationServices; using Autodesk.AutoCAD.GraphicsInterface; namespace CsMoveSelectionSet { public class Commands { [CommandMethod("JIGMTEXT")] public static void JigMTextAlongPolyline() { var doc = Application.DocumentManager.MdiActiveDocument; var db = doc.Database; var ed = doc.Editor; var entityOptions = new PromptPointOptions(System.Environment.NewLine + "\nSpecicfy insertion point: "); var entityResult = ed.GetPoint(entityOptions); if (entityResult.Status != PromptStatus.OK) return; using (var tr = db.TransactionManager.StartTransaction()) { using (var mtext = new MText() { ColorIndex = 2 }) { var curSpace = (BlockTableRecord)tr.GetObject(db.CurrentSpaceId, OpenMode.ForWrite); curSpace.AppendEntity(mtext); tr.AddNewlyCreatedDBObject(mtext, true); var jig = new MTextJig(mtext); var promptResult = ed.Drag(jig); if (promptResult.Status != PromptStatus.OK) { //line.Erase(); //mtext.Erase(); } } tr.Commit(); } } class MTextJig : DrawJig { MText mtext; Point3d startPt, entityResult; public MTextJig(MText mtext ) { //this.line = line; this.mtext = mtext; //this.curve = curve; } protected override SamplerStatus Sampler(JigPrompts prompts) { var options = new JigPromptPointOptions("\nSpecicfy insertion point: "); options.UserInputControls = UserInputControls.Accept3dCoordinates | UserInputControls.UseBasePointElevation; var result = prompts.AcquirePoint(options); if (result.Value.IsEqualTo(startPt)) return SamplerStatus.NoChange; startPt = result.Value; return SamplerStatus.OK; } protected override bool WorldDraw(WorldDraw draw) { WorldGeometry geo = draw.Geometry; if (geo != null) { mtext.ColorIndex = 2; mtext.Height = 2; mtext.Location = startPt; mtext.Contents = string.Format("X2-X1: {0}\nY2-Y1: {1}", entityResult.X - startPt.X, entityResult.X - startPt.X); geo.Draw(mtext); } return true; } } } }

Re: Jigging DIFF coordinates FROM BASE POINT

_gile — Tue, 17 Nov 2020 18:08:54 GMT

You should have been able to do it by yourself.

[CommandMethod("JIGDIFFCOORDS")] public static void JigDiffCoords() { var doc = Application.DocumentManager.MdiActiveDocument; var db = doc.Database; var ed = doc.Editor; var ppr = ed.GetPoint("\nSpecify base point: "); if (ppr.Status != PromptStatus.OK) return; var basePoint = ppr.Value; using (var tr = db.TransactionManager.StartTransaction()) { var curSpace = (BlockTableRecord)tr.GetObject(db.CurrentSpaceId, OpenMode.ForWrite); while (true) { using (var mtext = new MText()) { curSpace.AppendEntity(mtext); tr.AddNewlyCreatedDBObject(mtext, true); var jig = new JigDiff(mtext, basePoint); var pr = ed.Drag(jig); if (pr.Status != PromptStatus.OK) { mtext.Erase(); break; } db.TransactionManager.QueueForGraphicsFlush(); } } tr.Commit(); } } class JigDiff : EntityJig { MText mtext; Point3d basePoint, dragPoint; public JigDiff(MText mtext, Point3d basePoint) : base(mtext) { this.mtext = mtext; this.basePoint = basePoint; } protected override SamplerStatus Sampler(JigPrompts prompts) { var options = new JigPromptPointOptions("\nSpecicfy insertion point: "); options.UserInputControls = UserInputControls.Accept3dCoordinates | UserInputControls.NullResponseAccepted | UserInputControls.UseBasePointElevation | UserInputControls.GovernedByUCSDetect; options.BasePoint = basePoint; options.UseBasePoint = true; options.Cursor = CursorType.RubberBand; var result = prompts.AcquirePoint(options); if (result.Value.IsEqualTo(dragPoint)) return SamplerStatus.NoChange; dragPoint = result.Value; return SamplerStatus.OK; } protected override bool Update() { mtext.Location = dragPoint; mtext.Contents = $@"X2 - X1 = {dragPoint.X - basePoint.X:0.00}\PY2 - Y1 = {dragPoint.Y - basePoint.Y:0.00}"; return true; } }

Re: Jigging DIFF coordinates FROM BASE POINT

fieldguy — Tue, 17 Nov 2020 18:18:53 GMT

you are showing X DIFF twice.

mtext.Contents = string.Format("X2-X1: {0}\nY2-Y1: {1}", entityResult.X - startPt.X, entityResult.X - startPt.X);

should be

mtext.Contents = string.Format("X2-X1: {0}\nY2-Y1: {1}", entityResult.X - startPt.X, entityResult.Y - startPt.Y);

Re: Jigging DIFF coordinates FROM BASE POINT

hosneyalaa — Tue, 17 Nov 2020 19:49:22 GMT

Mr @_gile

Thank you very much . you are a great man
I am sorry for the many questions
But I tried it out a lot so much, I could not reach a solution to the idea