;################################################################################## ;# # ;# Full_Size_AN.pen - Standard INDOT design script for use with IPLOT Plotting # ;# plotting software. This design script is for black and white plotting. # ;# No gray shading added at time of creation. # ;# # ;#================================================================================# ;# # ;# Design Script created by Greg Carrie on July 10, 2008 with help from # ;# pen tables created by ODOT and MoDot cad support. # ;# # ;#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++# ;# # ;# This area to be used to document changes and revisions. Format should # ;# be as follows below # ;# # ;# Revised by GDC on 7/10/2008 - added documentation and formatting # ;# # ;# Revised by GDC on 7/28/2008 - added coding for electronic signatures # ;# # ;# Revised by GDC on 7/30/2008 - added coding for Date field # ;# # ;# Revised by GDC on 1/10/2011 - editing coding for INROADS leveling # ;# # ;################################################################################## ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ + ;+ This section screens levels based on content information. Screening occurs + ;+ by assigning colors to level information. Colors assigned by use of RGB + ;+ code. + ;+--------------------------------------------------------------------------------+ ;+ RGB CODE TRANSLATION + ;+ Microstation Color & Number RGB Code + ;+ 0 (White) ...................... color = (255,255,255) + ;+ 16 ( 6% Gray).................... color = (240,240,240) + ;+ 32 (12% Gray).................... color = (225,225,225) + ;+ 48 thru 80 (25% Gray)............ color = (192,192,192) + ;+ 112 (42% Gray).................... color = (112,112,112) + ;+ 135 (48% Gray).................... color = (135,135,135) + ;+ 144 (53% Gray).................... color = (120,120,120) + ;+ 160 (59% Gray).................... color = (105,105,105) + ;+ 176 (65% Gray).................... color = (90,90,90) + ;+ 192 (71% Gray).................... color = (75,75,75) + ;+ 240 (89% Gray).................... color = (30,30,30) + ;+ BG (Black)....................... color = (0,0,0) + ;+--------------------------------------------------------------------------------+ ;+ Revised by gdc on 7/14/2008 - Commented out if,else statements. Assigning + ;+ color wholesale, seems to work as desired. + ;+ + ;+ Revised by gdc on 7/15/2008 - Replaced setting all colors to black with + ;+ functionallity to assign screening to a level using gray scale factors + ;+ + ;+ Revised by gdc on 6/08/2009 - Commented out all above mentioned screening + ;+ functionality until further input from Peer Group. To re-enable, simply + ;+ remove commenting and "Color =" statment. + ;+ + ;+ NOTE!! from gdc on 8/21/2009 - due to INDOT custom levels named "bprw, bprwb, + ;+ bprwbe, bprwbe, bprwn, bprwplat, bprwplatn, bpd, bppl, xe, and xp", spcial + ;+ special consideration has to be given regarding how level and/or linestyle + ;+ screening takes place. THE ABOVE MENTIONED CUSTOM LINE STYLES ("cls_name") + ;+ MUST NOT BE GIVEN A COLOR DEFININTION (NO SCREENING!) + ;+ + ;+ Revised by gdc on 8/21/2009 - Per note above, "removed" wholesale color + ;+ definintion "Color = (0,0,0) as this function takes place in the pen + ;+ table (.tbl) stored in the same directory as this design script + ;+ + ;+ Revised by gdc on 8/21/2009 - added color definitions required for topo notes + ;+ + ;+ + ;+ Revised by gdc on 6/26/2012 - added color (screening) definitions required + ;+ for cross section grid lines. Due to transperancy not being available via + ;+ InRoads. + ;+ + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ + ;+ This section sets units to inches and assigns pen weights based on + ;+ assigned line weights in MicroStation + ;+ + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; units = inches if (weight == 0) then thickness = .007874 else if (weight == 1) then thickness = .011811 else if (weight == 2) then thickness = .015748 else if (weight == 3) then thickness = .019685 else if (weight == 4) then thickness = .023622 else if (weight == 5) then thickness = .027559 else if (weight == 6) then thickness = .031496 else if (weight == 7) then thickness = .035433 else if (weight == 8) then thickness = .03937 else if (weight == 9) then thickness = .043307 else if (weight == 10) then thickness = .047244 else if (weight == 11) then thickness = .055118 else if (weight == 12) then thickness = .062992 else if (weight == 13) then thickness = .070866 else if (weight == 14) then thickness = .07874 else if (weight == 15) then thickness = .086614 else if (weight == 16) then thickness = .094488 else if (weight == 17) then thickness = .106299 else if (weight == 18) then thickness = .11811 else if (weight == 19) then thickness = .129921 else if (weight == 20) then thickness = .141732 else if (weight == 21) then thickness = .153543 else if (weight == 22) then thickness = .165354 else if (weight == 23) then thickness = .177165 else if (weight == 24) then thickness = .188976 else if (weight == 25) then thickness = .200787 else if (weight == 26) then thickness = .212598 else if (weight == 27) then thickness = .224409 else if (weight == 28) then thickness = .23622 else if (weight == 29) then thickness = .24803 else if (weight == 30) then thickness = .24803 else if (weight == 31) then thickness = .24803 endif ; ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ + ;+ 12-17-12 - JMK; revised to include Plan Profile gridlines. + ;+ + ;+ + ;+ 6-26-2012 - gdc; This section to be used to isolate cross section grid lines + ;+ and plot them to a gray scale (screening) acceptable by INDOT users. + ;+ + ;+ + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; this code looks for specific levels and applies approx. 60% screening all elements ; that meet the criteria. if (level_name == "XS_G_Grid Lines dark") then color = (160,160,160) else if (level_name == "XS_G_Grid Lines light") then color = (160,160,160) else if (level_name == "XS_G_Grid Lines medium") then color = (160,160,160) else if (level_name == "PP_G_Major Profile Grid Lines") then color = (160,160,160) else if (level_name == "PP_G_Profile Minor Grid Lines") then color = (160,160,160) else if (level_name == "PP_G_Profile Major Grid Lines") then color = (160,160,160) endif ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ + ;+ 8-21-2009 - gdc; This section to be used to isolate survey text and plot + ;+ it to a gray scale (screening) acceptable by INDOT users. + ;+ 2-4-2014 - JMK; Added screening for E_* levels. + ;+ 8-24-2016 - JMK; Added exception for E_ text and dimension levels. + ;+ + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ; this code looks for specific levels and applies approx. 80% screening all elements ; that meet the criteria. if (level_name == "Text - Survey Text") then color = (50,50,50) else if (level_name == "Text - Survey Text - Material Properties") then color = (50,50,50) else if (level_name == "E Ground Profile Elevations") then color = (50,50,50) else if ((level_name == "S_*") AND NOT (level_name == "S_ALG_*-Text"))then color = (120,120,120) else if ((level_name == "E_*") AND NOT (level_name == "E_BR_Bridge_Text*") AND NOT (level_name == "E_BR_Text-*") AND NOT (level_name == "E_DR_*-Text") AND NOT (level_name == "E_TRAF_*-Text")) then color = (120,120,120) endif ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ + ;+ 7-15-2008 - gdc; THIS SECTION NOT CURRENTLY IN USE. SEE ABOVE FOR + ;+ SOLUTIONS. + ;+ + ;+ This section screens levels containing existing information + ;+ + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ;if (level eq 6-126) then ; transparency = 70 ;endif ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ + ;+ This section resolved auto-matic page numbering. Author need to + ;+ clean code. + ;+ + ;+ revised 6-8-2009 by gdc; added "total pages", unknown reason for missing + ;+ + ;+ revised 6-25-2013 by jmk; added "plot date" + ;+ revised 1-30-2018 by jmk; changed $SIG_DATE$ to use SHORT_DATE format + ;+ + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; if (type .eq. text) then if (characters .eq. '$SRV_BK$') then characters = '' else if (characters .eq. '$CON_NO$') then characters = '' else if (characters .eq. '$DES_NO$') then characters = '' else if (characters .eq. '$PROJ_NO$') then characters = '' else if (characters .eq. '$BRIDGE_FILE$') then characters = '' else if (characters == "$PAGE_NUM$") then characters = " " else if (characters == "$TOTAL_PAGES$") then characters = " " else if (characters == "$SIG_DATE$") then characters = SHORT_DATE else if (characters == "$PLOT_DATE$") then characters = SHORT_DATE else if (characters == "$PLOT_TIME$") then characters = SHORT_TIME else if (characters == "$AM_PM$") then characters = AM_PM else if (characters == "$MODEL_NAME$") then characters = ip_model endif endif if (type .eq. text) then if (characters .eq. 'substitute the printer name here') then characters = IP_QUEUE else if (characters .eq. 'substitute the filename here') then characters = DGNSPEC else if (characters .eq. 'substitute the date here') then characters = SHORT_DATE endif endif ; ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ;+ + ;+ This section intended to add code for electronic signatures + ;+ + ;+ 7/28/2008 - gdc; first tests, copied elements into DGN from MoDOT + ;+ examples. + ;+ + ;+ 8/9/2012 - gdc; cleaned up MoDOT coding to match new INDOT Workspace. + ;+ This included changning level names and removing un-needed codes for items + ;+ not used by INDOT. + ;+ + ;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ; ! Create a Digital Signature Field from a block (type 6), ! level=BD_Title block - Final Plans Electronic Seal, and color = 20. ! The accumulated range box of the elements with the above ! criteria defines the Digital Signature field in the PDF document. if ((lname eq '*') and (level_name eq "BD_Title block - Final Plans Electronic Seal") and (color eq 20) and (type eq 6)) then action_item = field ! Must be listed first. action_name = "Engineer Signature" ! Must be listed second. action_type = digsig_field action_spec = "Engineer Signature" !Text that appears when mouse hovers over it ignore_element=true endif