Jump to content

CIV3D & Advanced Road design ARD moving plots to correct sheet


BIGAL

Recommended Posts

The project I am working on is big 88 layouts and anyone using ARD & CIV3D will know when plotting long or crossections you end up with a new layout sheet, problem is cross sections are on sheet 12 that I want to update, ok delete info sheet 12 got to last layout copy than back to 12 and now paste. Any one reading this whats the problem pretty simple all the sheet title block info is already setup and when you have to do 5 sheets it takes considerable time.

 

So answer copy layout contents from current layout to another and paste automatically in correct layout, Oh yeah move old layout first just in case.

 

Here is the code very fast to use. Tested with guys here and comments were even on small jobs say 6 sheets is easier than copy paste.

 

PS it is something the ARD guys are working on automatic update of correct cross section etc.

 

; copys a paper space layout to another layout
; By Alan H Oct 2014
; to use just type CPLAY

(defun C:cplay ( / alllayouts lay num x ans oldsnap)
(vl-load-com)
(setq oldsnap (getvar "osmode"))
(setvar "osmode" 0)
(setq oldtab (getvar "ctab"))
(command "zoom" "E")
(command "copybase" '(0 0 0) "W" '(0 50) '(801 554) "")
(setq num (getint "\nEnter tab number"))
(setq alllayouts (vla-get-Layouts (vla-get-activedocument (vlax-get-acad-object))))
(SETQ LAYNUM 0)
(vlax-for lay alllayouts
(if (= num (vla-get-taborder lay))
 (setvar "ctab" (vla-get-name lay))
) ; if
) ; for
(command "zoom" "E")
(command "move" "W" '(-900 36) '(820 570) "" '(0 0) '(-840 0)) 
(command "zoom" "E")
(command "._pasteclip" '(0 0 0))
(setvar "osmode" oldsnap)
(setq ans (getstring "\nTo go back to original layout press <Cr> any key exit"))
(if (= ans "")(setvar "ctab" oldtab))

(princ)
) ; defun


Link to comment
Share on other sites

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