All Activity

Add a call at the end of Lee Mac's code (line 95) to call itself again. This will force a loop that you have to hit esc to exit. (defun C:APV ( / *error* a b e h l n p r v w x z ) ... ) (princ) (C:APV) )

So is your question really how to make these loop, keep picking points until you hit enter or escape?

That title does not ring a bell. Are you referring to the Oleson Village Project specifically or another project?

Thanks Lee yes during testing had a stuck loop a few times had to crash out CAD. Will use the full defun rather than the short version.

@kidznok Check your PM

Update found this from gile https://forums.augi.com/showthread.php?68868-Adding-vertexes-to-a-polyline&p=765721&viewfull=1#post765721 can it be modified so i can pick multiple points until I exit?

Does anyone have a lisp that can add multiple vertex for polyline? I found this Lisp from the great @Lee Mac and it works except that I need to be able to pick simultaneously even if it does not reside on the line then hit escape or enter when done. I will then move the added vertex to its proper location.

Type GRAPHICSCONFIG → Enter → Advanced Settings → uncheck “Fade inactive geometry” (or slide it to 0%) → Apply → OK. That’s it. Your prints will instantly look exactly like they did in AutoCAD 2022 – no more extra faint lines.

You're missing the double backslash ("*\\P*") Also, note that the use of vl-string-subst with a constant starting position and wcmatch to test the content is dangerous in general as this will result in an infinite loop if the replacement string contains the find string, e.g. consider replacing "new" with "knew" - your code would loop indefinitely.

Is it exporting to Excel direct or are you using the CSV ? I have a libre Calc output as well.

Thanks everyone, the answer sometimes is just looking at you and waving back. Need to double check help in future. (while (wcmatch txt "*\P*") (setq txt (vl-string-subst "\n" "\\P" txt 1)) ) Screen Recording 2025-11-24 093452.mp4

I'm in need of assistance with the AutoCAD advanced functions project. I have tried but project is not making sense can you please help? Thanks,

Why don't you upload your program here.(rogramınızı buraya yükler misiniz?)

Per the documentation, (vl-string-translate) replaces by character, not by string. Hence, for the arguments you have specified, the backslash ("\\") will be replaced by the newline character ("\n") and the "P" does not have a replacement character. Instead, since you're looking to substitute one string for another, you should use the (vl-string-subst) function (in a loop so as to replace all occurrences). I have written a String Subst wrapper which you could call in the following way: (LM:stringsubst "\n" "\\P" "Abcdef\\Pghijk\\Plmnop")

thanks in advance for any help

Hi everyone, I’m planning to set up a podcast studio at home and would love some advice. I’m trying to figure out the right combination of microphones, acoustic treatment, and software to get professional-sounding recordings. Additionally, I’m curious about workflows that make editing smoother. For example, how do you efficiently integrate post-production services into your process without it becoming too costly or time-consuming? Any recommendations on tools, equipment, or tips for both beginners and experienced podcasters would be hugely appreciated.

You can build a lisp function in Python that will explode the MText into fragments @Ap.Command() def doit(): try: ps, id, pnt = Ed.Editor.entSel("\nSelect: ", Db.MText.desc()) mt = Db.MText(id) frags = mt.getFragments() val = "" for frag in frags: val += ' ' val += frag[Db.MTextFragmentType.kTextValue] print(frags) print(val) except Exception: print(traceback.format_exc()) [PyGe.Point3d(18.25565516926225,16.52816695203355,0.00000000000000), PyGe.Vector3d(0.00000000000000,0.00000000000000,1.00000000000000), PyGe.Vector3d(1.00000000000000,0.00000000000000,0.00000000000000), 'Hello', None, None, PyGe.Point2d(0.63669849931787,0.20327421555252), 0.2, 1.0, 0.0, 1.0, <PyDb.EntityColor object at 0x000001AD0C1D0F90>, 0, 0, 0, 0, 0, [PyGe.Point3d(0.00000000000000,0.00000000000000,0.00000000000000), PyGe.Point3d(0.00000000000000,0.00000000000000,0.00000000000000)], [PyGe.Point3d(0.00000000000000,0.00000000000000,0.00000000000000), PyGe.Point3d(0.00000000000000,0.00000000000000,0.00000000000000)], [PyGe.Point3d(0.00000000000000,0.00000000000000,0.00000000000000), PyGe.Point3d(0.00000000000000,0.00000000000000,0.00000000000000)], 'Arial', False, False] [PyGe.Point3d(19.29427328818596,15.86150028536689,0.00000000000000), PyGe.Vector3d(0.00000000000000,0.00000000000000,1.00000000000000), PyGe.Vector3d(1.00000000000000,0.00000000000000,0.00000000000000), 'World', None, None, PyGe.Point2d(0.72960436562074,0.20327421555252), 0.2, 1.0, 0.0, 1.0, <PyDb.EntityColor object at 0x000001AD0C1D1770>, 0, 0, 0, 0, 0, [PyGe.Point3d(0.00000000000000,0.00000000000000,0.00000000000000), PyGe.Point3d(0.00000000000000,0.00000000000000,0.00000000000000)], [PyGe.Point3d(0.00000000000000,0.00000000000000,0.00000000000000), PyGe.Point3d(0.00000000000000,0.00000000000000,0.00000000000000)], [PyGe.Point3d(0.00000000000000,0.00000000000000,0.00000000000000), PyGe.Point3d(0.00000000000000,0.00000000000000,0.00000000000000)], 'Arial', False, False] Hello World

(defun c:t1 ( / txt1 delimiter txt2 ) (setq txt1 "Abcdef\\Pghijk\\Plmnop") (setq delimiter "\\P") (setq txt2 (pjk-Strparse txt1 delimiter)) (princ (strcat "\ntxt2 = " (vl-prin1-to-string txt2))) (princ) ) ;;; https://www.cadtutor.net/forum/topic/95913-replace-p-in-a-variable/ ;|============================================================================== Function Name: (pjk-StrParse) Arguments: str = String; String to process del = String; Delimiter to separate the string Usage: (pjk-StrParse <string> <delimter>) Returns: List; A list of strings Description: Separates a string into a list of strings using a specified delimiter string; uses recursion. ================================================================================|; (defun pjk-StrParse (str del / pos) (if (and str del) (if (setq pos (vl-string-search del str)) (cons (substr str 1 pos) (pjk-StrParse (substr str (+ pos 1 (strlen del))) del)) (list str) ) ) ) ;; End Function (pjk-StrParse)

I am going around in circle and not sure why. I have a Mtext a simple 3 line Mtext (setq txt "Abcdef\\Pghijk\\Plmnop") desired text for Excel a multi line cell "Abcdef\nghijk\nlmnop" thought something like this should work. Tried all sorts of combinations. Note a dbl \\ will leave the P behind but get multi lines. (setq txt (vl-string-translate "\\P" "\n" txt)) I have all the other code done putting all the object values int Excel cells. Think Dataextract.

In this part of the code, only the steps on the direction curve are calculated, the intersections are generated in the mssln:line subfunction. There is a problem. I found out that if I adjust z coordinate of the normal vector from 0.0 to 1e-8, I get acceptable results. But mysteriously that doesn't work if the boundary is an arc.

Hi everyone, I’ve been working on a project to automate the tedious process of room quantity takeoffs (Area & Perimeter) in AutoCAD. I know how time-consuming it can be to manually measure every room and transfer data to Excel, so I developed a Lisp plugin called Quantity Surveyor Pro. It's currently v1.0 and completely free for the community. Key Features: ☻Auto-Boundary Detection: Works like the 'Boundary' command but smarter. ☻Smart Tagging: Automatically places Room Name/No tags with area & perimeter. ☻Excel Export: Exports all data to a CSV/Excel file with one click. ☻Table Generation: Creates a summary table inside AutoCAD. I would really appreciate it if you could test it and give me some feedback on how to improve it further. You can download it here: https://cadlisp.com (It supports both English and Turkish languages) Thanks in advance for your support!

I know this query is old, but... Maybe for the path to multiple locations use the Traveling Salesman Problem (TSP) algorithm. @marko_ribar has a LISP on CADTutor. Bellman-Ford algorithm can handle the shortest path from a single source to all other nodes might work.

I have one in C++ wrapped for lisp https://www.theswamp.org/index.php?topic=58049.msg613033#msg613033 I’d have to look at the code again, I forgot, I think I generated a tin, from the tin, create a graph of the triangle edges

@alanjt are you still using civ3d2013 ? I have for a few years now used Civil Site Design running under CIV3D and Bricscad, it has some great road designing tools, when you define the road shape and do a design the kerbs can then be drawn into the plan, this includes where intersections are involved the kerbs being drawn automatically around the curves. Plus of course wandering kerb lines. Maybe have a look.

I think this is an extremely interesting problem that deserves significantly more lines of code than have been written so far in this thread. I believe those lines shouldn't be long in coming.