July 2, found an error and have updated the Zip file. MJP
First off, I have always wanted to see some toolbars for Civil 3D for some basics. Yes, I know in 2010 that they have these lovely Ribbons. I'm not trying to start a debate for the new ribbons over toolbars. Frankly for me, they take up to much real estate, even on my 2 24" monitors. So, I came to the conclusion that I have to do it for myself. I type faster then I can do a pulldown. So, here is a start to my building a useful toolbar. I will follow as time permits other toolbars directed to building pipenetworks and surfaces, etc. Others, that have done the same and want to share please contribute. I realize that these are very simple to do, so veterans here will pass this one. For those who are crossing over or somewhat new to Civil 3D, I hope you can find these somewhat helpful. I tried to first focus on the most used functions for a simple toolbar.
I have a number of items in a folder that I put on my c:drive:
Civil 3D Toolbar
The toolbar will look for everything it needs there, so you have to point to it in
the Support File Search Path in Options and add the lisp routine to you appload suitcase.
I have attached a zip file that you can extract to your c:drive.
I found that when I did move objects or panned that the layermanager, when open, started
to cycle through all the layers and slowing what I was doing, so I wanted to turn them off
quickly. I combined the move with close those dialog boxes while doing those commands
and wanted it to do it fast and also turn them back on quickly as well.
This worked for me with modifying my methods only slightly.
I also included some useful commands via lisp, as well like :
Snapfix - for correcting a twisted crosshairs
RIB - for Ribbonclose
/ - for layerclose and propertiesclose
` - for open layermanager and properties
\ - for open properties
snf - snapfix cursor
pb - purge blocks
LB --- Edit Label Style Edit
ADD --- Add Network Part Plan Label
ADDP --- Add Network Part Profile Label
ELT --- Edit Label Text
ASL --- Add Surface Line (to Tin)
DSL --- Delete Surface Line (Tin)
SW --- Edit Swap Surface Edge
ESP --- Edit Surface Properties
ESS --- Edit Surface Style
EPS --- Edit Profile Style
EGP --- Edit Profile Properties
EN --- Edit Pipe Network
EPP --- Edit Pipe Properties
EPPP --- Edit Profile Part Properties Select a Structure
EPS --- Edit Pipe Style
EST --- Edit Structure Properties
EGS --- Edit Profile GraphStyle
EPL --- Edit Profile
CPL --- Create Profile Layout
GNO --- Add General Note
C1 --- Create Contour Label
PBR --- Regen Part Catalog
some of these commands are used in the toolbar.
So, from left to right the buttons do these commands:
1- turn off layermanager-properties and then do move
2- turn off layermanager-properties and then do pan
3- Zoom Window
4- turn on layermanager and properties
5- EditLabelText for General Notes Edit
6- Start a General Note
7- Add network part profile label
8- Add network part plan label
9- Named Views from Viewmanager
10- Turn on all layers
11- Thaw all layers
12- Purge Blocks and run Audit
13- Point Groups Open
14- Open Point Editor
15 - Edit Alignment
16 - Edit Network
17 - Connect to Part
18 - Edit Pipe Properties
19 - Edit Structure Properties Plan View
20 - Edit Pipe Properties Profile View
21 - Edit Graph Properties
22 - Label Flip
23 - Label Style Edit
24 - Start Polyline then pick by Point Number
25 - Start Polyline then pick by Point Name
26 - Start Polyline then pick by Point Object
23 - Start Polyline by Point Object
25 - Save
I added the Polyline pick by Point Object... since the Osnap pick for adding lines by points
doesn't work worth a hoot when creating survey linework.
Here is the code for the other commands not in the toolbar. It is in the zip file.
;;*************************************************************************************************
(defun c:en () (princ (strcat "\nEdit Pipe Network"))(command "EditNetwork")(princ))
;;;*************************************************************************************************
(defun c:eps () (princ (strcat "\nEdit Pipe Style"))(command "EditPipeStyle")(princ))
;;;*************************************************************************************************
(defun c:dsl () (command "_DeleteSurfaceLine")(princ))
;;
;;*************************************************************************************************
(defun c:sw () (command "_EditSurfaceSwapEdge")(princ))
;;*************************************************************************************************
(defun c:epp () ;Edit Pipe Properties
(princ (strcat "\nEdit Pipe Properties select a Pipe"))
(command "EditPipeProperties")(princ)
)
;;*************************************************************************************************
(defun c:eal () (princ (strcat "\nEdit Alignment"))(command "EditAlignment")(princ))
;;*************************************************************************************************
(defun c:esp () (princ (strcat "\nEdit Surface Properties select a Surface"))(command "EditSurfaceProperties")(princ))
;;*************************************************************************************************
(defun c:ess () (princ (strcat "\nEdit Surface Style select a Surface"))(command "EditSurfaceStyle")(princ))
;;*************************************************************************************************
(defun c:egs () (princ (strcat "\nEdit Profile GraphStyle select a Profile"))(command "EditGraphStyle")(princ))
;;
;;*************************************************************************************************
(defun c:egp () (princ (strcat "\nEdit Profile GraphProperties select a Profile"))(command "EditGraphProperties")(princ))
;;*************************************************************************************************
(defun c:epl () (princ (strcat "\nEdit Profile Alignment"))(command "EditProfileLayout")(princ))
(defun c:snapfix ( / )
(setvar "SNAPANG" (* -1 (getvar "VIEWTWIST")))
(princ)
)
;;;*************************************************************************************************
(defun c:cpl () (command "_AeccCreateProfileLayout")(princ))
;;*************************************************************************************************
(defun c:eppp () ;Edit Parent Part Properties
(princ (strcat "\nEdit Profile Part Properties select a Structure"))
(command "EditParentPartProperties")(princ)
)
;;
;;*************************************************************************************************
(defun c:est () (princ (strcat "\nEdit Structure Properties"))(command "EditStructureProperties")(princ))
;;
;;*************************************************************************************************
(defun c:lb () (command "LabelStyleEdit")(princ))
;;
;;*************************************************************************************************
Hopefully, this will work with the info I have provided. I welcome
your input and if you have any suggestions of a positive nature
I'll put them in as time allows.
Mike
MJP
