Jump to content

Upgrade of Plan Production tools


sivapathasunderam

Recommended Posts

Dear Gentlemen;

 

I am using AutoCAD civil3d 2014

I prefer to have one more option as shown in an image below

 

send cad tutor2.jpg

 

I have more works on Plan & again Plan works as below image

 

Final Drawings Volume 2 15.jpg

 

thanks

Siva

Link to comment
Share on other sites

Hello anyone;

 

There are many drawings we need Plan views without Profile

In one sheet 2 Plans

 

I try using Plan only option & cut the sheet 2 Plan viewport, bring to sheet 1 bottom area, the PC get struck (not responding)

If this works for me, I can do this for same length like; 5, 10 or 20Km, but for more than these Kms not possible

 

Example:

1.) Street Lighting Layouts,

2.) Topographic Survey Layouts,

3.) Existing Utility Services & Proposed Relocation Layouts,

4.) Land Acquisition Plans

 

I look forward to hear from you

thanks

Siva

Edited by sivapathasunderam
added examples
Link to comment
Share on other sites

  • 1 year later...

The only suggestion I can think of is to make all the sheets then use something like this copy layout to copy every second layout tab to the prior one then delete the blanks.

 

You would need a custom sheet set maker for two sheets as the viewport needs to be rotated as you walk along an alignment.

 

Change the paste insertion point

; copys a papersapce layout to another layout
; By Alan H Oct 2014

(defun C:cplay ( / alllayouts lay num x ans oldsnap)

(setq oldsnap (getvar "osmode"))
(setvar "osmode" 0)
(setq oldtab (getvar "ctab"))
(command "zoom" "E")
(command "copybase" '(0 0 0) "W" '(0 48) '(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)
(command "Regen")
(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...