Measure-like Command

wannabe · 发表于 2022-7-6 14:55:31

Good morning,

I'd like to know if anyone has a way of copying a point or block along a line/pline the way the measure command does; but only one instance of a point or block; and rotating the point/block to follow the curvature of the line/pline in the same way the measure command does.

Cheers

stevsmith · 发表于 2022-7-6 15:00:49

I design balustrades and most of the time I have to put posts at certain ctrs around a radius or arc. I have a spreadsheet that helps me with this.

Im pretty sure LeeMac will have a lisp for what you require.
but I hope this can help. (someway)
Drawing Aids.zip

wannabe · 发表于 2022-7-6 15:05:07

Sounds like the array command would be ideal for you?

My application is about copying a block along a path e.g a road, railway etc. where the path has many intricate curves and 3D movements. All I want to do is copy a block X amount of distance along the line in plan view, ignoring Z values.

Cheers.

SEANT · 发表于 2022-7-6 15:08:01

Time was limited so there is ridiculously minimal testing and error checking, but:

copy

        [CommandMethod("rdap")]       static public void RefDistAlongPath()       {           Database db = HostApplicationServices.WorkingDatabase;           Editor ed = Acad.DocumentManager.MdiActiveDocument.Editor;           using (Transaction trans = db.TransactionManager.StartTransaction())           {               // Put your command code here               PromptEntityOptions peo = new PromptEntityOptions("Select target curve: ");               peo.SetRejectMessage("\nPlease only select a curve entity!");               peo.AddAllowedClass(typeof(Autodesk.AutoCAD.DatabaseServices.Curve), false);               PromptEntityResult per = ed.GetEntity(peo);               if (per.Status != PromptStatus.OK) return;               ObjectId oid = per.ObjectId;               Curve crv = (Curve)trans.GetObject(oid, OpenMode.ForRead, false);               Plane pl = new Plane(ed.CurrentUserCoordinateSystem.CoordinateSystem3d.Origin, ed.CurrentUserCoordinateSystem.CoordinateSystem3d.Zaxis);               Curve projCrv = crv.GetOrthoProjectedCurve(pl);               PromptStringOptions pso = new PromptStringOptions("Enter name of block to create reference: ");               PromptResult pr = ed.GetString(pso);               String blkName = pr.StringResult;               BlockTable bt = (BlockTable)trans.GetObject(db.BlockTableId, OpenMode.ForRead);                    if (!bt.Has(blkName))                {                    ed.WriteMessage ("Current Database does not contain a block of that name!");                   return;               }               BlockTableRecord btr = (BlockTableRecord)trans.GetObject(bt[blkName], OpenMode.ForRead);               PromptDistanceOptions pdo = new PromptDistanceOptions("Indicate distance along path: ");               pdo.AllowArbitraryInput = false;               PromptDoubleResult pdr = ed.GetDistance(pdo);               if (pdr.Status != PromptStatus.OK) return;               Point3d p3d = projCrv.GetPointAtDist(pdr.Value);               Vector3d v3d = projCrv.GetFirstDerivative(p3d);               Double ang = Math.Atan(v3d.Y / v3d.X);               BlockTableRecord currSpace = trans.GetObject(db.CurrentSpaceId, OpenMode.ForWrite) as BlockTableRecord;               BlockReference insert = new BlockReference(p3d, btr.ObjectId);               insert.Rotation = ang;               currSpace.AppendEntity(insert);               insert.SetDatabaseDefaults();               trans.AddNewlyCreatedDBObject(insert, true);               projCrv.Dispose();               trans.Commit();           }        }

wannabe · 发表于 2022-7-6 15:10:03

I'm working on something similar at home where I also use C#. Can't give you any feedback until I do return home - no Visual Studio to compile it here at work.

Thanks for your time

lpseifert · 发表于 2022-7-6 15:13:49

quick and dirty

copy

;;;inserts a block at specified station along a polyline, measured from start LPS 2009(defun c:test () (vl-load-com)(defun rtd (a) (/ (* a 180.0) pi)) (setq oldosnap (getvar "osmode")) (setvar "osmode" 0) (command "ucs" "w") (setq    ob     (entsel "Select curve: ")   dist   (getreal "\n Specify Distance from beginning of curve : ")   obj    (vlax-ename->vla-object (car ob))   pt1    (vlax-curve-getPointAtDist obj dist)   param1 (vlax-curve-getParamAtPoint obj pt1)   deriv1 (vlax-curve-getFirstDeriv obj param1)   ang    (rtd (angle '(0 0) deriv1)) ) ;_ end of setq (command "-insert" "[color=Red]BLOCKNAME[/color]" pt1 "" ang) (command "ucs" "p") (setvar "osmode" oldosnap) (princ)) ;_ end of defun

David Bethel · 发表于 2022-7-6 15:16:32

Or even a more ancient style:

copy

[b][color=BLACK]([/color][/b]defun c:mscopy [b][color=FUCHSIA]([/color][/b]/ n d ln lc ss i en[b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]not n[b][color=NAVY])[/color][/b]        [b][color=NAVY]([/color][/b]setq n [b][color=MAROON]([/color][/b]getstring [color=#2f4f4f]"\nBLOCK To INSERT:   "[/color][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]        [b][color=NAVY]([/color][/b]cond [b][color=MAROON]([/color][/b][b][color=GREEN]([/color][/b]not [b][color=BLUE]([/color][/b]snvalid n[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]               [b][color=GREEN]([/color][/b]princ [color=#2f4f4f]"\nInvalid Block Name - "[/color] n[b][color=GREEN])[/color][/b]               [b][color=GREEN]([/color][/b]setq n nil[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]              [b][color=MAROON]([/color][/b][b][color=GREEN]([/color][/b]tblsearch [color=#2f4f4f]"BLOCK"[/color] n[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]              [b][color=MAROON]([/color][/b][b][color=GREEN]([/color][/b]findfile [b][color=BLUE]([/color][/b]strcat n [color=#2f4f4f]".DWG"[/color][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]               [b][color=GREEN]([/color][/b]command [color=#2f4f4f]"_.INSERT"[/color] n[b][color=GREEN])[/color][/b]               [b][color=GREEN]([/color][/b]command[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]              [b][color=MAROON]([/color][/b][b][color=GREEN]([/color][/b]setq n nil[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]initget 7[b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]setq d [b][color=NAVY]([/color][/b]getdist [color=#2f4f4f]"\nMeasure Segment Length:   "[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]setq ln [color=#2f4f4f]"TEMP1"[/color] lc 1[b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]tblsearch [color=#2f4f4f]"LAYER"[/color] ln[b][color=NAVY])[/color][/b]        [b][color=NAVY]([/color][/b]setq lc [b][color=MAROON]([/color][/b]1+ lc[b][color=MAROON])[/color][/b] ln [b][color=MAROON]([/color][/b]strcat [color=#2f4f4f]"TEMP"[/color] [b][color=GREEN]([/color][/b]itoa lc[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]command [color=#2f4f4f]"_.LAYER"[/color] [color=#2f4f4f]"_M"[/color] ln [color=#2f4f4f]""[/color][b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]= [b][color=MAROON]([/color][/b]getvar [color=#2f4f4f]"CMDACTIVE"[/color][b][color=MAROON])[/color][/b] 0[b][color=NAVY])[/color][/b]        [b][color=NAVY]([/color][/b]command [color=#2f4f4f]"_.MEASURE"[/color] pause[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]command [color=#2f4f4f]"_B"[/color] n [color=#2f4f4f]"_Y"[/color] d[b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]setq ss [b][color=NAVY]([/color][/b]ssget [color=#2f4f4f]"X"[/color] [b][color=MAROON]([/color][/b]list [b][color=GREEN]([/color][/b]cons 8 ln[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]command [color=#2f4f4f]"_.CHANGE"[/color] ss [color=#2f4f4f]""[/color] [color=#2f4f4f]"_P"[/color] [color=#2f4f4f]"_E"[/color] 0.0 [color=#2f4f4f]""[/color]          [color=#2f4f4f]"_.ERASE"[/color] ss [color=#2f4f4f]""[/color][b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]setq i [b][color=NAVY]([/color][/b]sslength ss[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]while [b][color=NAVY]([/color][/b]not [b][color=MAROON]([/color][/b]minusp [b][color=GREEN]([/color][/b]setq i [b][color=BLUE]([/color][/b]1- i[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]        [b][color=NAVY]([/color][/b]setq en [b][color=MAROON]([/color][/b]ssname ss i[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]        [b][color=NAVY]([/color][/b]entdel en[b][color=NAVY])[/color][/b]        [b][color=NAVY]([/color][/b]getstring [color=#2f4f4f]"\nPress Enter To Continue:   "[/color][b][color=NAVY])[/color][/b]        [b][color=NAVY]([/color][/b]entdel en[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

-David

wannabe · 发表于 2022-7-6 15:20:36

Only being able to place a block from the start of the line means it's not really usable for my needs. Having to hard wire the block is also a fundamental draawback.

Any way we can address these two points? Maybe select an existing block in the drawing to move or choose a block from a file; and then choose a point on the polyline to move it from.

Sorry to be cheeky.

lpseifert · 发表于 2022-7-6 15:24:00

http://www.afralisp.net/

David Bethel · 发表于 2022-7-6 15:24:05

LOL -David

[编程交流] Measure-like Command

发表回复

精选推荐