All Activity

sorry engineers. I am posting this again to clarify my exact requirement. Please check the attached DWG file. The text placement location may be at the top, bottom, or canter, but it must be positioned close to the points and without arrows. I need the XYZ coordinates for all points displayed in a single SHOT Thanks for your time SAMPLE 2.dwg

That is only available in Civil 3D AFAIK, not much use for someone with AutoCAD 2010.

Maybe something in this thread will help. REQUIRE LISP 3-IN-1 FOR (XYZ COORDINATES WITH LEADER) - AutoLISP, Visual LISP & DCL - AutoCAD Forums

Not quite sure what the question is to be 'exactly like 2' - is it the text to be offset to one side? (only difference I can see really), else EnM4st3r works for me. If you want to offset the text from the selected point, use the mapcar function, have a go at changing the code offered perhaps changing this line (vla-addmtext (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object))) (vlax-3d-point pt) 0 str) use (mapcar '+ '(x y z) pt) instead of pt where x, y and z are the offset distances (numbers) in each direction Hint with LISPs, 'pt' or very similar is often used as a variable for a point, you can check earlier in the code to confirm, getpoint is the LISP command to return a selected point, pt is set to be the output from getpoint... so a good guess would be this is the point to change Have a go, your first steps to write LISPs is to try, if it all goes wrong ask and we are all more than happy to guide you if you are happy to change things yourself.

@pavanetc he meant for you to try it yourself. since its not that difficult. Just look into ssget and selectionset looping

Thank you for your time, i'm waiting for updated

Buenos días BIGAL, pero siento decirte, que no te entiendo, pero te mando un fichero para que veas lo que tengo. Cuando ejecutas la rutina de "BIGAL", funciona perfectamente, pero me haría falta solo colocar un "-" entre el nombre del fichero dwg y la presentación (sin tener que colocar en el nombre del fichero de dwg un guion). Como te he comentado anteriormente, muchas gracias TOMO001.dwg

The error SET only occurs when the SETQ is missing a "q" its ok in the code I posted. I added a go to paperspace in case that is a problem.

That's a tricky one! CyberAngel’s suggestion of using a third 'plotting' drawing is probably the cleanest way to handle this. By Xrefing both the existing plans and the new design into one file, you can easily tweak the draw order and transparency of the 'existing' layers without affecting the original files. It saves you from having to mess with viewport transparency settings that usually don't plot the way you want them to.

Buenos días BIGAL, siento molestarte de nuevo, no funciona pues sale esto a la hora de cargar. Comando: _appload LAYOUTS 02.lsp correctamente cargado(s). LAYOUTS 02.lsp correctamente cargado(s). Comando: ; error: no function definition: CONJUNTO Comando: ; error: no function definition: CONJUNTO. A mi me funciona perfectamente lo que puso el compañero "DEVITG", lo único que me hace falta es que me ponga en medio del nombre del fichero de autocad y el nombre de la presentación un "-". Siento mucho las molestias

If the points are not to be moved @EnM4st3r has given you an answer, a little homework for you is a lisp task, change the (while to use a Selection set and a (repeat then all done.

Snap and Grid set to what and are they on ?

Using a CIV3D dwg a lot of info is not purged as its locked by CIV3D, need to use PURGESYLEANDSETTINGS before Purge. The dwg will drop in size quickly.

What program ? Some programs will need a bat file, may be able to use STARTAPP.

Give this a try I added the 00x 0x etc. Limited testing. (defun c:exx+devitg (/ actual presentacion presentaciones n num ) (setq actual (getvar "CTAB")) ;almacena el nombre de la presentación en la que estamos (setq presentaciones (layoutlist)) ;crea una lista con los nombres de las presentaciones (setq n 1) (FOREACH presentacion presentaciones (setvar 'ctab presentacion) (command "pspace") (cond ((< n 10)(setq num (Strcat "00" (rtos n 2 0)))) ((< n 100)(setq num (Strcat "0" (rtos n 2 0)))) ((>= n 100)(setq num (rtos n 2 0))) ) (setq n (1+ n)) (command "_exportlayout" (strcat (getvar "dwgprefix") (vl-filename-base (getvar "dwgname")) num ) ) ; esto es lo que debería hacer que el nuevo dwg se guardase en la ruta del archivo abierto. ); fin del FOREACH (setvar "CTAB" actual) ;define como actual la presentación en la que estábamos trabajando al principio (princ) ) (c:exx+devitg)

If you have multiple viewports in a layout, then using chspace have to nominate which viewport you are looking at. Will see if can edit code bit busy at moment.

Hello! I'm in the final stages of the Oleson Village project. But I'm a bit unsure about how to go about making and filling in the bar scale. Is the scale for the whole drawing, or specific parts? Oh I tried scaling it up to 50 for the title block like you suggested in a previous post, but it was a bit too small. So I scaled up to 58, which works well. Does it have to be 50?

Are you using AutoCAD 2010? Along with previous suggestions and to add, you can do a lot of cleaning with the WBLOCK @ReMark, best method for true cleaning is to WBLOCK just the selected/visible objects you need, that way some of the things mentioned by @CyberAngel are hopefully not carried to the new drawing. I always start with -EXPORTTOAUTOCAD to clean up objects left by verticals, etc.

Can you be more specific about when and how this issue arises? Does it always happen while using relative coordinates?

The worst waste of storage I've seen is inserting another drawing as a block (either as copy&paste or xref), using it for whatever, then freezing the layer it's on. Sometimes they'll insert it once, forget it's there, and explode the second copy, so it's there twice. Or three times or more. The usual tools don't work on these duplicates. There are ways to find them, but most are clunky. For instance, thaw all the layers. See if anything looks suspicious. Select areas of the screen to see if there are outrageous numbers of objects. Another strategy is to look through your blocks. One may have an odd name or a thumbnail that looks like a plan. Look through your layers for groups that don't belong. Go through your layouts. Needless to say, don't save the drawing while you're tracking down the problem. Once you do find it, quit the file, reload it, fix it, and then save.

Oh yes, I was not aware of a BricsCAD-flavored Forum here and must use it (along with a copy of AutoCAD LT 2026 granted exclusively for development purposes to redefine inherited dynamic blocks) I understand that the patented dynamic block functionality is set to expire in 2027 here in the USA. The rest of the world now enjoys it in BricsCAD as I understand it.

Also note that in AutoCAD 2026, you can set the CENTERLINE/CENTERMARK layer without needing third-party applications: https://help.autodesk.com/view/ACD/2026/ENU/?guid=GUID-F517D9EC-372A-4BE2-9E29-824B2D550FF0

Ok, just be aware that, by default, the CENTERLINE command already creates a line with linetype CENTER2 rather than ByLayer.

Yes indeed, Lee. Thanks! I will use a "Center2" linetype instead of "Continuous" according to our standard practices. Clint

You can just use the following entry in the layer list to achieve the result you require: ("CENTERLINE" "CENTERLINE" "" 7 "Continuous" -3 1 nil )