gus08 Posted September 24, 2008 Posted September 24, 2008 Hi Guys, Just wondering is it possible to copy an object to a set of multiple points without having to copy and paste individually each point. I know you can change points with the point style menu, but I was hoping to create my own point object and paste it to the hundreds of points I have in my drawing (it's a survey). I hope this is the right forum for this ( probably a beginners question!). Any help would be appreciated. Using Autocad Lt 2007 Quote
rustysilo Posted September 24, 2008 Posted September 24, 2008 Are these AutoCAD points, Land Desktop points, etc. or are they blocks? If they are blocks you can use block replace to place your object (if it is a block). Quote
gus08 Posted September 24, 2008 Author Posted September 24, 2008 Thanks rustysilo, they're autocad points. I probably didn't explain my situation that well. I basically have a lot of autocad points and i want to paste an object onto all of these points. I could do one by one but is there an easier way? Quote
rustysilo Posted September 24, 2008 Posted September 24, 2008 I don't know if LT has the block replace option in Express tools, but if it does then you can try this (see below). If it doesn't you can redefine the blocks. Either way you should be able to get from point A to point B even if you have to visit point C and D on the way. Well call it taking the scenic route... I'm sure there is a lisp available somewhere too, but I don't have it so this is what I got. Step 1.) Download SiteTopo (does not require an install - is a self contained .exe) Step 2.) Saveas or dxfout your .dwg to a .dxf file. Step 3.) Open the .dxf in SiteTopo (just say no to the breaklines) Step 4.) Saveas the file to .dxf again and check only the points to be exported unless you just want a surface and/or contours, etc. Step 5.) Open the new .dxf again in AutoCAD (you now have blocks representing the points). Step 6.) Run the block replace from Express Tools if available. If not available then redefine the point blocks as desired. When I performed the block replace in ET it didn't completely replace the block and the scale was whacky, but I'm sure you can fix that with a little knuckle grease. Step 7.) Be happy. Quote
gus08 Posted September 24, 2008 Author Posted September 24, 2008 Cheers rustysilo. Have autocad 2006 at home but unfortunately must use the LT version at work. Will give it a go, sounds like you covered everything with your post. This website is really a great resource. Quote
lpseifert Posted September 24, 2008 Posted September 24, 2008 Here's a quicky (defun c:test (/ oldecho blk blklst inspnt ss1 sslen cnt 2ndpnt) (setq oldecho (getvar "cmdecho")) (setvar "cmdecho" 0) (setq blk (entsel "Select block: ") blklst (entget (car blk)) inspnt (cdr (assoc 10 blklst)) ) ;setq (princ "\nSelect points: ") (setq ss1 (ssget '((0 . "point"))) sslen (sslength ss1) cnt 0 ) ;setq (repeat sslen (setq 2ndpnt (cdr (assoc 10 (entget (ssname ss1 cnt))))) (command "copy" blk "" inspnt 2ndpnt "") (setq cnt (1+ cnt)) ) ;repeat (setvar "cmdecho" oldecho) ) ;defun Quote
gus08 Posted September 25, 2008 Author Posted September 25, 2008 Thanks lpseifert. I take it this is lisp code - not available on the LT version I gather. Will try it at home. Quote
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.