;; *******************DIMENSION COMMANDS************************************



(defun c:continueddimension (/ clayer cdimstyle);Continued dimension string
  (setvar "cmdecho" 0)
  (setq clayer (getvar "clayer")
	cdimstyle (getvar "dimstyle"))
  (setdimstyle)
  (setlayer "A-Anno-Dims")
  (setvar "cmdecho" 1)
  (command "dimlinear" pause pause pause)
  (command "dimcontinue")
  (cmdWait)
  (setvar "cmdecho" 0)
  (setvar "clayer" clayer)
  (command "dimstyle" "r" cdimstyle)
  (setvar "cmdecho" 1)
  (princ)
)

(defun c:baselinedimension (/ TextSz DimSpace clayer cdimstyle)
					;Baseline dimension string
  (setvar "cmdecho" 0)
  (setq	clayer	  (getvar "clayer")
	cdimstyle (getvar "dimstyle")
  )
  (setlayer "A-Anno-Dims")
  (setdimstyle)
  (print "Select points for first dimension string")
  (setvar "cmdecho" 1)
  (command "dimlinear" pause pause pause)
  (command "dimbaseline")
  (cmdWait)
  (setvar "cmdecho" 0)
  (setvar "clayer" clayer)
  (command "dimstyle" "r" cdimstyle)
  (setvar "cmdecho" 1)
  (princ)
)




;; ******REDIFINED NATIVE COMMANDS***********************************



;Simple 2 point leader with Mtext and layer keying
(defun c:leader2points (/ clayer ctextsize cdimstyle)
	   
  (setvar "cmdecho" 0)
  (setq	clayer	  (getvar "clayer")
	ctextsize (getvar "textsize")
	cdimstyle (getvar "dimstyle")
  )
  (setlayer "A-Anno-Note")
  (setTextSize)
  (setDimStyle)
  (setvar "texteval" 1)
  (setvar "cmdecho" 1)
  (command "qleader")
  (cmdWait)
  (setvar "cmdecho" 0)
  (setvar "clayer" clayer)
  (setvar "textsize" ctextsize)
  (setvar "texteval" 0)
  (command "dimstyle" "r" cdimstyle)
  (setvar "cmdecho" 1)
  (princ)
)




;***********Basic Mtext with Layer Keying********
(defun c:mtextlayer (/ clayer ctextsize ssEntity pnt1 TxtWdth NoteTxt)
  (setvar "cmdecho" 0)
  (setq	clayer	  (getvar "clayer")
	ctextsize (getvar "textsize")
  )
  (setlayer "A-Anno-Note")
  (setTextSize)
  (setvar "texteval" 1)
  (setvar "cmdecho" 1)
  (initdia)
  (command "mtext")
  (cmdWait)
  (setvar "cmdecho" 0)
  (setvar "clayer" clayer)
  (setvar "textsize" ctextsize)
  (setvar "texteval" 0)
  (setvar "cmdecho" 1)
  (princ)
)


;****************Linear DImension with Layer Keying**********
(defun c:lineardimension (/ clayer cdimstyle)
  (setvar "cmdecho" 0)
  (setq clayer (getvar "clayer")
	cdimstyle (getvar "dimstyle")
	)
  (setlayer "A-Anno-Dims")
  (setDimStyle)
  (setvar "cmdecho" 1)
  (command "dimlinear" pause pause pause)
  (setvar "cmdecho" 0)
  (setvar "clayer" clayer)
  (command "dimstyle" "r" cdimstyle)
  (setvar "cmdecho" 1)
  (princ)
  )


;****************Linear DImension with Layer Keying**********
(defun c:aligneddimension (/ clayer cdimstyle)
  (setvar "cmdecho" 0)
  (setq clayer (getvar "clayer")
	cdimstyle (getvar "dimstyle")
	)
  (setlayer "A-Anno-Dims")
  (setDimStyle)
  (setvar "cmdecho" 1)
  (command "dimaligned" pause pause pause)
  (setvar "cmdecho" 0)
  (setvar "clayer" clayer)
  (command "dimstyle" "r" cdimstyle)
  (setvar "cmdecho" 1)
  (princ)
  )


;****************Ordinate DImension with Layer Keying**********
(defun c:ordinatedimension (/ clayer cdimstyle)
  (setvar "cmdecho" 0)
  (setq clayer (getvar "clayer")
	cdimstyle (getvar "dimstyle")
	)
  (setDimStyle)
  (setlayer "A-Anno-Dims")
  (setvar "cmdecho" 1)
  (command "dimordinate" pause pause)
  (setvar "cmdecho" 0)
  (setvar "clayer" clayer)
  (command "dimstyle" "r" cdimstyle)
  (setvar "cmdecho" 1)
  (princ)
  )


;****************Angular DImension with Layer Keying**********
(defun c:angulardimension (/ clayer cdimstyle)
  (setvar "cmdecho" 0)
  (setq clayer (getvar "clayer")
	cdimstyle (getvar "dimstyle")
	)
  (setlayer "A-Anno-Dims")
  (setDimStyle)
  (setvar "cmdecho" 1)
  (command "dimangular" pause pause pause)
  (setvar "cmdecho" 0)
  (setvar "clayer" clayer)
  (command "dimstyle" "r" cdimstyle)
  (setvar "cmdecho" 1)
  (princ)
  )




;; ********************LOCAL UTILITIES************************************

(defun setlayer	(TestLayer)
  (if (null (tblsearch "layer" TestLayer))
    (command "-layer" "m" TestLayer "")
  )
  (setvar "CLAYER" TestLayer)
)

(defun *error* (msg)
  (if 
  (or 
    (= msg "Function cancelled")
    (= msg "quit / exit abort") 
  )
  (princ)
  (princ (strcat "\nSorry, somethin' aint right :-p \n " msg))
)

  (setvar "cmdecho" 0)
  (if (not (null clayer))
    (setvar "clayer" clayer)
  )
  (if (not (null cdimstyle))
    (command "dimstyle" "r" cdimstyle)
  )
  (if (not (null ctextsize))
    (setvar "textsize" ctextsize)
  )
  (setvar "cmdecho" 1)
)




; Pause during active command....*****
(defun cmdWait ( )
(while (= (logand (getvar "cmdactive") 1) 1)
(command pause)
(princ)
)
)


;;Get Current Dwg Scale Setting
(defun AecScale (/ ds)
  (setq	ds (CDR	(ASSOC 40
		       (dictsearch
			 (cdar (dictsearch
				 (namedobjdict)
				 "aec_vars"
			       )
			 )
			 "aec_vars_dwg_setup"
		       )
		)
	   )

  )
)

; determine which space is active
; return: integer
; 1 - model space
; -1 - floating model space
; 0 - paper space
(defun currentSpace (/ mode)
  (setq mode (getvar "tilemode"))
  (cond
    ((and (zerop mode) (<= 2 (getvar "cvport"))) -1)
    (t mode)
  )
)


;******Activate Correct Dimension Style**********
(defun setDimStyle (/ scale status)
  (setq	scale  (AecScale)
	status (currentSpace)
  )
  (cond ((and (/= status 0) (= scale 4))
	 (command "-dimstyle" "r" "4")
	)
    	((and (/= status 0) (= scale 8))
	 (command "-dimstyle" "r" "8")
	)
    	((and (/= status 0) (= scale 12))
	 (command "-dimstyle" "r" "12")
	)
	((and (/= status 0) (= scale 16))
	 (command "-dimstyle" "r" "16")
	)
	((and (/= status 0) (= scale 24))
	 (command "-dimstyle" "r" "24")
	)
	((and (/= status 0) (= scale 32))
	 (command "-dimstyle" "r" "32")
	)
	((and (/= status 0) (= scale 48))
	 (command "-dimstyle" "r" "48")
	)
	((and (/= status 0) (= scale 96))
	 (command "-dimstyle" "r" "96")
	)
	((and (= status 0) (= scale 4))
	 (command "-dimstyle" "r" "PS4")
	)
	((and (= status 0) (= scale 8))
	 (command "-dimstyle" "r" "PS8")
	)
	((and (= status 0) (= scale 12))
	 (command "-dimstyle" "r" "PS12")
	)
	((and (= status 0) (= scale 16))
	 (command "-dimstyle" "r" "PS16")
	)
	((and (= status 0) (= scale 24))
	 (command "-dimstyle" "r" "PS24")
	)
	((and (= status 0) (= scale 32))
	 (command "-dimstyle" "r" "PS32")
	)
	((and (= status 0) (= scale 48))
	 (command "-dimstyle" "r" "PS48")
	)
	((and (= status 0) (= scale 96))
	 (command "-dimstyle" "r" "PS96")
	)
	(T (alert "Your scale is non-standard,\nCheck the current Dwg Setup &/or Dim Style"))
  )
)


;******Activate Correct Text Size***************
(defun setTextSize ()
  (if (= (currentSpace) 0)
    (setvar "textsize" 0.0938)
    (setvar "textsize" (* (AecScale) 0.0938))
  )
)