All Activity

Thank you for your kind words. Someday P-F might get their act together and address the problems with their project instructions and their so-called instructors. Good luck in your endeavors now and in the future.

For Key maps, I use two routines: 1. Lee's Viewport outline https://lee-mac.com/vpoutline.html 2. Change Space Copy (defun c:CHSpaceCopy (/ ss2 ss i) (vl-load-com) (if (setq ss2 (ssadd) ss (ssget "_:L") ) (progn (repeat (setq i (sslength ss)) (ssadd (vlax-vla-object->ename (vla-copy (vlax-ename->vla-object (ssname ss (setq i (1- i)))) ) ) ss2 ) ) (vl-cmdf "_.chspace" ss2 "") ) ) (princ) )

Got it. And thank you all that you did to help others over the years. Even though it's been 12 years, , it's still helping me and I'm sure others too. PF sure hasn't given us the resources we need, along with confusing instructions. But at least they have made changes to things. So many thanks!

Re: Bar scale construction. I used the Rectangle, Line and Hatch commands. Yes, the scale is for the whole subdivision drawing. The correct scale for the title block and border is 50 and not 58. Re: Lot lines. I used the supplied property line dimensions as provided in the instructions.

Why did you report my post? It was meant for an example for you to learn to help yourself. Do you even know what you want? Your first example drawing doesn't show XYZ for the "NEED SOMETHING LIKE AT ALL POINT". Not sure why you want someone to do a bunch of work for you for free and you can't be bothered to provide a well though out request and provide appropriate examples and comments.

@pavanetc I hope this is what you want to accomplish. Try this code: (prompt "\nTo run a LISP type: XYZTEXT") (princ) (defun c:XYZTEXT ( / old_osmode ss len x_spacing i pt) (setq old_osmode (getvar 'osmode)) (setvar 'osmode 0) (if (not (tblsearch "LAYER" "Coor Text")) (command-s "-layer" "m" "Coor Text" "c" 7 "" "") (setvar 'clayer "Coor Text") ) (prompt "\nSelect the POINTS:") (princ) (setq ss (ssget (list (cons 0 "POINT"))) len (sslength ss) x_spacing 1 i 0 ) (while (< i len) (setq pt (strcat "X=" (rtos (cadr (assoc 10 (entget (ssname ss i)))) 2 2) "\n" "Y=" (rtos (caddr (assoc 10 (entget (ssname ss i)))) 2 2) "\n" "Z=" (rtos (cadddr (assoc 10 (entget (ssname ss i)))) 2 2))) (entmake (list (cons 0 "MTEXT") (cons 100 "AcDbEntity") (cons 100 "AcDbMText") (cons 10 (list (+ (cadr (assoc 10 (entget (ssname ss i)))) x_spacing) (caddr (assoc 10 (entget (ssname ss i)))) (cadddr (assoc 10 (entget (ssname ss i)))))) (cons 1 pt) (cons 40 0.20) (cons 50 0) (cons 71 4))) (setq i (1+ i)) ) (setvar 'osmode old_osmode) (prompt "\nThe X, Y and Z values were added near the points!") (princ) ) You will get something like this from picture below (the yellow XYZ values is what you will get, the white text behind the yellow is your's). Best regards.

But just in case you are using Civil, try to prune out as many points as you can. They take up approximately 1K apiece. One thousand points = 1MB of space. It adds up.

Somehow I erased some of my lines... How did you come up with the radius for the circles on Lots 5 and 6?

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?