All Activity

When you draw a regular polyline (not 3D) in a coordinate system that is not the World system, it belongs to that system. Whatever the Z coordinate is for that first vertex, that's the elevation for the whole polyline. In other words, the whole polyline conforms to the XY plane for that system. You can draw a polyline in some random coordinate system, and if the first vertex is at Z=0, the elevation will be 0 no matter what the current system is. (I know because I just drew some polylines in random systems.) If you change the elevation, no matter what your current coordinate system is, the new elevation takes effect in the other, original system--the one it was drawn in. When you draw a polyline in the World coordinate system, and the first vertex is at Z=0, the same rules apply. The polyline belongs to the World system, and any changes to the elevation (or any of the vertices) are applied in World coordinates. Those changes will give you the results you probably expected. On the other hand, if you change a polyline that is not in the World system, you may get results you didn't expect. Your next question will probably be, "Can I change a polyline in my new coordinate system so that it has an elevation that conforms with the World system?" The answer is Yes, if you have Civil 3D. Otherwise you'll probably need to redraw the polyline in World coordinates.

No. I need to update. We're currently on c3d2024. I'm curious, what is "civil site design"? Is this a separate addon? I use corridors, intersections, etc. for roadway design. However, I haven't found anything better for site design than featurelines. If I am missing something, please educate me.

In this DWG file, we have 4 different UCS. where 4 polylines have been drawn, and two of them show an elevation other than zero. I don't understand the value 92.8477 for the elevation. UCS x Polyline Elevation.dwg

You need to post the .dwg and give a more detailed explanation.

Glad it works. Yes.

The black screen happens because AutoCAD 2007 isn’t fully compatible with Windows 10 graphics. To fix it: disable hardware acceleration in AutoCAD’s Options → System, run acad.exe in Windows 7 compatibility mode with administrator rights, and disable high-DPI scaling. Ensure .NET 3.5 and older Visual C++ runtimes are installed. If it still fails, using a Windows 7 virtual machine is the most reliable solution.

Hi thanks a lot. It works. how can i call multiple prior to calling APV? A friend of mine got me this vlx file but there is an annoying pop-up but it works as well addv.vlx

When I create a UCS and draw a polyline using it, the elevation value doesn't make sense when I check it. Can someone explain what this value means?

...Continue from previous post, experiment with imperial mod, quotient, division. ##********************************************************************************************** ## 45 UDF/ Excel name: impaMQD() - Similar Excel MOD() function with optional parmeters, ## return quotient or division [opt_1Quotient_or_2Division]. ## ## Note: This function uses todec() & toimpa() as sub-functions. ## ## Notes with optional parameters: ## ## [opt_1Quotient_or_2Division] = 1 , Similar Excel QUOTIENT() function - Returns the integer ## portion of a division ## [opt_1Quotient_or_2Division] = 2 , division calculation (varDividend/varDivisor) ## ## Optional parameters other than 1 & 2 will return error #N/A ## ## Rev. 1.0 - 9/2/2025 ##********************************************************************************************** =LAMBDA(varDividend,varDivisor,[opt_1Quotient_or_2Division], LET(optN,IF(ISOMITTED(opt_1Quotient_or_2Division),0, IF(AND(opt_1Quotient_or_2Division<=2,opt_1Quotient_or_2Division>0),opt_1Quotient_or_2Division,NA())), varD1,todec(varDividend), varD2,todec(varDivisor), answrM,varD1-(varD2*INT(varD1/varD2)), answrQ,ROUNDDOWN(varD1/varD2,0), answrD,varD1/varD2, SWITCH(TRUE, optN=0,IF(AND(ISNUMBER(varDividend),ISNUMBER(varDivisor)),answrM,IF(OR(AND(ISTEXT(varDividend),ISTEXT(varDivisor)),ISNUMBER(varDivisor)),toimpa(answrM),"Error!")), optN=1,IF(OR(AND(ISNUMBER(varDividend),ISNUMBER(varDivisor)),AND(ISTEXT(varDividend),ISTEXT(varDivisor))),answrQ,IF(ISNUMBER(varDivisor),toimpa(answrQ),"Error!")), optN=2,IF(OR(AND(ISNUMBER(varDividend),ISNUMBER(varDivisor)),AND(ISTEXT(varDividend),ISTEXT(varDivisor))),answrD,IF(ISNUMBER(varDivisor),toimpa(answrD),"Error!")), NA() ) ) )

Or just call MULTIPLE before calling APV.

Since Lee's Code only has you picking a point its easy enough. Just add a call at the end of APV (line 95) to call itself again. This will force a loop that you have to hit esc to exit. - Edit This is a better option. Has undo marks. You could also set your snaps before entering the command if you want to. ;;----------------------------------------------------------------------------;; ;; Add Polyline Vertex loop ;; Dependent AddLWPolylineVertexV1-1.lsp (defun C:APVL ( / ) (vl-load-com) (princ "\nStarting Add Polyline Vertex loop. Press ESC to stop.") (vla-StartUndoMark (setq doc (vla-get-ActiveDocument (vlax-get-Acad-Object)))) ;(setvar 'OSMODE 3) ;End and mid point snaps (while T (C:APV) ) (princ "\nAdd Polyline Vertex Loop ended.") (vla-EndUndoMark doc) (princ) )

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