Jump to content

copying to multiple point block


Recommended Posts

Posted

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

Posted

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).

Posted

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?

Posted

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...:lol:

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.:mrgreen:

Posted

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.

Posted

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

Posted

Thanks lpseifert. I take it this is lisp code - not available on the LT version I gather. Will try it at home.

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.

Guest
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...