Jump to content
sivapathasunderam

Upgrade of Plan Production tools

Recommended Posts

sivapathasunderam

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

Share this post


Link to post
Share on other sites
sivapathasunderam

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

Share this post


Link to post
Share on other sites
sivapathasunderam

No one reply!!!

 

<a href=EXtfPrM.jpg' alt='EXtfPrM.jpg'>

 

 

thanks Autodesk

Share this post


Link to post
Share on other sites
BIGAL

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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×