;;;
;;;
;;;
;;;
;;;****************************************************************************
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 01-18-2007
;;;
(DEFUN dimucs_error (msg /)
  (PRINC (STRCAT "\nError: " msg))
  (IF old_dimucsosmode
    (SETVAR "OSMODE" old_dimucsosmode)
  ) ;_ end of IF
  (IF old_dimucscmdecho
    (SETVAR "CMDECHO" old_dimucscmdecho)
  ) ;_ end of IF
  (SETQ *error* orig_dimucs_error)
  (PRINC)
) ;_ end of DEFUN
;;;****************************************************************************
(DEFUN C:DIMUCS	(/ rwdimpt_1 rwdimpt_2 rwdimpt_3 podimpt_1 podimpt_2
		 podimpt_3)
  (SETQ	orig_dimucs_error
	 *error*
	*error*	dimucs_error
  ) ;_ end of SETQ
  (SETQ old_dimucsosmode (GETVAR "OSMODE"))
  (SETVAR "OSMODE" 0)
  (SETQ old_dimucscmdecho (GETVAR "CMDECHO"))
  (SETVAR "CMDECHO" 0)
  (COMMAND ".UCS" "W")
  (IF c:tsnap
    NIL
    (LOAD "tsnap" "\nFile TSNAP.LSP not loaded! ")
  ) ;_ end of IF
  (C:TSNAP)
  (IF c:svlayr
    NIL
    (LOAD "mklayr" "\nFile MKLAYR.LSP not loaded! ")
  ) ;_ end of IF
  (c:svlayr)
  (SETQ	txtopts
	 (ukword
	   1
	   "R/W EP E2P T"
	   "Dimension R/W+Pipe, Easement+Pipe, Permanent+Temporary Easements+Pipe, or Temporary Construction Easement [R/W EP E2P T]"
	   (IF txtopts
	     txtopts
	     "R/W"
	   ) ;_ end of IF
	 ) ;_ end of ukword
  ) ;_ end of SETQ
  (IF (EQ (STRCASE txtopts) "EP")
    (PROGN
      (C:ENGRLDRS)
      (COMMAND ".UCS" "V")
    ) ;_ end of PROGN
    (PROGN
      (C:ENGRDIMS)
      (COMMAND ".UCS"
	       "3P"
	       (GETVAR "VIEWCTR")
	       (POLAR (GETVAR "VIEWCTR")
		      (+ (GETVAR "SNAPANG") (/ PI 8.0))
		      100
	       ) ;_ end of POLAR
	       (POLAR (GETVAR "VIEWCTR")
		      (+ (GETVAR "SNAPANG") (/ PI 8.0) (/ PI 2.0))
		      100
	       ) ;_ end of POLAR
      ) ;_ end of COMMAND
    ) ;_ end of PROGN
  ) ;_ end of IF
  (COMMAND ".UCSICON" "ON")
  (SETVAR "SNAPANG" 0)
  (IF c:engrdims
    NIL
    (LOAD "engrdims" "\nFile ENGRDIMS.LSP not loaded! ")
  ) ;_ end of IF
  (IF c:engrldrs
    NIL
    (LOAD "engrldrs" "\nFile ENGRLDRS.LSP not loaded! ")
  ) ;_ end of IF
  (gvpno)
  (SETQ	mjrg  "C"
	llt   "-"
	colr  "1"
	colra NIL
	colri NIL
	modf  "DIMS"
  ) ;_ end of SETQ
  (c:mklayr)
  (COND
    ((EQ (STRCASE txtopts) "R/W")
     (SETQ dimopts "R/W")
    )
    ((OR (EQ (STRCASE txtopts) "EP")
	 (EQ (STRCASE txtopts) "E2P")
     ) ;_ end of OR
     (SETQ dimopts "PERMANENT EASEMENT")
    )
    ((EQ (STRCASE txtopts) "T")
     (SETQ dimopts "TEMPORARY CONSTRUCTION EASEMENT")
    )
  ) ;_ end of COND
;;;  (COMMAND ".layer" "m" "C-VI021DIMS" "")
  (IF (EQ (STRCASE txtopts) "T")
    NIL
    (PROGN
      (IF (EQ (STRCASE (SUBSTR txtopts 1 1)) "E")
	(PROGN
          (COMMAND ".UCS"
                   "V"
          ) ;_ end of COMMAND
          (C:ENGRLDRS)
	)
      )
      (SETVAR "osmode" 512)
      (IF upoint
	NIL
	(LOAD "upoint" "\nFile UPOINT.LSP not loaded! ")
      ) ;_ end of IF
      (SETQ
	rwdimpt_1 (upoint 1
			  ""
			  (STRCAT "First " dimopts " Dimension Point")
			  nil
			  nil
		  ) ;_ end of upoint
      ) ;_ end of SETQ
      (SETQ rwdimpt_1 (LIST (CAR rwdimpt_1) (CADR rwdimpt_1) 0.0))
      (SETVAR "osmode" 128)
      (SETQ
	rwdimpt_2
	 (upoint 1
		 ""
		 (STRCAT "Second " dimopts " Dimension Point")
		 nil
		 rwdimpt_1
	 ) ;_ end of upoint
      ) ;_ end of SETQ
      (SETQ rwdimpt_2 (LIST (CAR rwdimpt_2) (CADR rwdimpt_2) 0.0))
      (SETQ rwdimpt_3 (POLAR rwdimpt_1
			     (ANGLE rwdimpt_1 rwdimpt_2)
			     (/ (DISTANCE rwdimpt_1 rwdimpt_2) 2.0)
		      ) ;_ end of POLAR
      ) ;_ end of SETQ
      (SETVAR "osmode" 0)
      (COMMAND ".DIM"
	       "ALI"
	       rwdimpt_1
	       rwdimpt_2
	       rwdimpt_3
	       (STRCAT (RTOS (DISTANCE rwdimpt_1 rwdimpt_2) 2 0)
		       "' "
		       (IF (OR (EQ (STRCASE txtopts) "EP")
			       (EQ (STRCASE txtopts) "E2P")
			   ) ;_ end of OR
			 "UTILITY\nEASEMENT"
			 "R/W"
		       ) ;_ end of IF
	       ) ;_ end of STRCAT
      ) ;_ end of COMMAND
      (COMMAND nil nil)
    ) ;_ end of PROGN
  ) ;_ end of IF
  (C:ENGRLDRS)
  (IF (OR (EQ (STRCASE txtopts) "E2P") (EQ (STRCASE txtopts) "T"))
    (PROGN
      (COMMAND ".UCS"
	       "V"
      ) ;_ end of COMMAND
      (SETVAR "osmode" 512)
      (SETQ rwdimpt_1
	     (upoint
	       1
	       ""
	       "First TEMPORARY CONSTRUCTION EASEMENT Dimension Point"
	       nil
	       nil
	      ) ;_ end of upoint
 ;_ end of upoint
      ) ;_ end of SETQ
      (SETQ rwdimpt_1 (LIST (CAR rwdimpt_1) (CADR rwdimpt_1) 0.0))
      (SETVAR "osmode" 128)
      (SETQ rwdimpt_2
	     (upoint
	       1
	       ""
	       "Second TEMPORARY CONSTRUCTION EASEMENT Dimension Point"
	       nil
	       rwdimpt_1
	      ) ;_ end of upoint
 ;_ end of upoint
      ) ;_ end of SETQ
      (SETQ rwdimpt_2 (LIST (CAR rwdimpt_2) (CADR rwdimpt_2) 0.0))
      (SETQ rwdimpt_3 (POLAR rwdimpt_1
			     (ANGLE rwdimpt_1 rwdimpt_2)
			     (/ (DISTANCE rwdimpt_1 rwdimpt_2) 2.0)
		      ) ;_ end of POLAR
      ) ;_ end of SETQ
      (SETVAR "osmode" 0)
      (COMMAND ".DIM"
	       "ALI"
	       rwdimpt_1
	       rwdimpt_2
	       rwdimpt_3
	       (STRCAT (RTOS (DISTANCE rwdimpt_1 rwdimpt_2) 2 0)
		       "' TEMPORARY\nCONSTRUCTION\nEASEMENT"
	       ) ;_ end of STRCAT
      ) ;_ end of COMMAND
      (COMMAND nil nil)
      (COMMAND ".UCS" "W")
      (C:TSNAP)
    ) ;_ end of PROGN
  ) ;_ end of IF
;;;  (SETQ podimpt_1 (upoint 1 "" "First Limits of Construction Dimension Point" nil nil))
;;;  (SETQ podimpt_1 (LIST (CAR podimpt_1)(CADR podimpt_1) 0.0))
;;;  (SETQ podimpt_2 (upoint 1 "" "Second Limits of Construction Dimension Point" nil podimpt_1))
;;;  (SETQ podimpt_2 (LIST (CAR podimpt_2)(CADR podimpt_2) 0.0))
;;;  (SETQ podimpt_3 (POLAR podimpt_1 (ANGLE podimpt_1 podimpt_2) (/(DISTANCE podimpt_1 podimpt_2)2.0)))
;;;  (COMMAND ".DIM" "ALI" podimpt_1 podimpt_2 podimpt_3 "20' LIMITS\\POF CONSTRUCTION")
;;;  (COMMAND)
;;;  (COMMAND)
  (IF (EQ (STRCASE txtopts) "T")
    NIL
    (PROGN
      (COMMAND ".UCS" "W")
      (C:TSNAP)
      (IF ureal
	NIL
	(LOAD "ureal" "\nFile UREAL.LSP not loaded! ")
      ) ;_ end of IF
;;;  (SETQ pipe_offset (ureal 1 "" "Pipe offset distance" (IF pipe_offset pipe_offset 5.0)))
      (SETVAR "osmode" 512)
      (SETQ podimpt_1 (upoint
			1			""
			"First Pipe Offset Dimension Point"
			nil			nil
		       ) ;_ end of upoint
 ;_ end of upoint
      ) ;_ end of SETQ
      (COMMAND ".UCS"
	       "V"
      ) ;_ end of COMMAND
      (SETQ
	podimpt_1 (TRANS (LIST (CAR podimpt_1) (CADR podimpt_1) 0.0)
			 0
			 1
		  ) ;_ end of TRANS
      ) ;_ end of SETQ
      (SETVAR "osmode" 128)
      (SETQ podimpt_2 (upoint
			1
			""
			"Second Pipe Offset Dimension Point"
			nil
			podimpt_1
		       ) ;_ end of upoint
 ;_ end of upoint
      ) ;_ end of SETQ
      (SETQ podimpt_2 (LIST (CAR podimpt_2) (CADR podimpt_2) 0.0))
      (SETQ podimpt_3 (POLAR podimpt_1
			     (ANGLE podimpt_1 podimpt_2)
			     (/ (DISTANCE podimpt_1 podimpt_2) 2.0)
		      ) ;_ end of POLAR
      ) ;_ end of SETQ
      (SETQ pipe_offset (DISTANCE podimpt_1 podimpt_2))
      (IF (EQ (REM (ATOF (RTOS pipe_offset 2 1)) 0.5) 0.0)
	(SETQ offset_str (RTOS pipe_offset 2 1))
	(SETQ offset_str (RTOS pipe_offset 2 0))
      ) ;_ end of IF
      (SETVAR "osmode" 0)
;;;  (COND
;;;    ((EQ (REM pipe_offset 1) 0)(SETQ offset_str (RTOS pipe_offset 2 0)))
;;;    ((EQ (REM pipe_offset 0.1) 0.1)(SETQ offset_str (RTOS pipe_offset 2 1)))
;;;    (T(SETQ offset_str (RTOS pipe_offset 2 2)))
;;;  )
;;;  (COMMAND ".layer" "m" "C-VI021DIMS" "")
      (COMMAND ".DIM"
	       "ALI"
	       podimpt_1
	       podimpt_2
	       podimpt_3
	       (STRCAT offset_str
		       "'"
		       (IF (EQ (STRCASE txtopts) "R/W")
			 " MIN."
			 ""
		       ) ;_ end of IF
	       ) ;_ end of STRCAT
      ) ;_ end of COMMAND
      (COMMAND nil nil)
    ) ;_ end of PROGN
  ) ;_ end of IF
  (COMMAND ".UCS" "W")
  (C:TSNAP)
  (c:rslayr)
  (IF old_dimucsosmode
    (SETVAR "OSMODE" old_dimucsosmode)
  ) ;_ end of IF
  (IF old_dimucscmdecho
    (SETVAR "CMDECHO" old_dimucscmdecho)
  ) ;_ end of IF
  (IF orig_dimucs_error
    (SETQ *error* orig_dimucs_error)
  ) ;_ end of IF
  (PRINC)
) ;_ end of DEFUN
;|«Visual LISP© Format Options»
(72 2 40 2 T "end of " 60 9 2 0 0 T T nil T)
;*** DO NOT add text below the comment! ***|;