Custom Tool Buttons

[Gary.182361]

I'd like to have some Dimension Buttons that always place the new dimension on a specific layer, regardless of what is current. Any Ideas?

[prose]

Here is what I use. Feel free to change it however you want.

;;;----------------------------------------------------------------------------------------
;;;Sets the Dims
;;;
(Defun C:SetDims ()
  (command "cmdecho" "0")
  (Command
    "_-Style"  "Arial"			;Name of text style that is created
    "Arial.ttf"			;Specify full font name or font filename (TTF or SHX)
    "0"				;Specify height of text
    "1"				;Specify width factor
    "0"				;Specify obliquing angle
    "_N"				;Display text backwards?
    "_N"				;Display text upside-down?
    "DIMADEC"  "0"			;Angle precision
    "DIMALT"   "off"			;Alternate units
    "DIMALTD"  "0"			;Alt precision
    "DIMALTF"  "2.54"		;Alt scale factor
    "DIMALTRND"		  "0"	;Alt roundoff
    "DIMALTTD" "2"			;Alt tol precision
    "DIMALTTZ" "0"			;Alt tol zeroes
    "DIMALTU"  "2"			;Alt units
    "DIMALTZ"  "0"			;Alt zeroes
    "DIMAPOST" "cm"		;Alt prefix and suffix
    "DIMASZ"   "15/256"		;Arrow size
    "DIMATFIT" "3"			;Fit: arrow and text
    "DIMAUNIT" "0"			;Angle format
    "DIMAZIN"  "0"			;Angle zero supression
    "DIMBLK"   ""			;Arrow (ClosedFilled)
    "DIMBLK1"  ""			;Arrow 1 (ClosedFilled)
    "DIMBLK2"  ""			;Arrow 2 (ClosedFilled)
    "DIMCEN"   "23/256"		;Center mark size
    "DIMCLRD"  "6"			;Dim line color
    "DIMCLRE"  "6"			;Ext line color
    "DIMCLRT"  "7"			;Text color
    "DIMDEC"   "0"			;Precision
    "DIMDLE"   "0"			;Dim line ext
    "DIMDLI"   "97/256"		;Dim line spacing
    "DIMDSEP"  "."			;Decimal separator
    "DIMEXE"   "15/256"		;Ext line extension
    "DIMEXO"   "1/16"		;Ext line offset
    "DIMFRAC"  "2"			;Fraction format
    "DIMGAP"   "1/32"		;Text offset
    "DIMJUST"  "0"			;Text pos hor
    "DIMLDRBLK"		  ""	;Leader arrow (ClosedFilled)
    "DIMLFAC"  "1"			;Length scales a Metric dimension to Imperial  (5/127=0.3937)
    "DIMLUNIT" "4"			;Length units
    "DIMLWD"   "-2"			;Dim line LW
    "DIMLWE"   "-2"			;Ext line LW
    "DIMPOST"  "\\X"		;Text prefix and suffix
    "DIMRND"   "0"			;Roundoff
    "DIMSAH"   "Off"			;Separate arrows
    "DIMSCALE" "110"		;Overall scale
    "DIMSD1"   "Off"			;No dim line 1
    "DIMSD2"   "Off"			;No dim line 2
    "DIMSE1"   "Off"			;No ext line 1
    "DIMSE2"   "Off"			;No ext line 2
    "DIMSOXD"  "Off"		;No dim lines outside
    "DIMTAD"   "0"			;Text pos vert
    "DIMTIH"   "On"			;Text inside align
    "DIMTIX"   "Off"			;Text inside
    "DIMTMOVE" "1"			;Fit: text movement
    "DIMTOFL"  "Off"		;Dim line forced
    "DIMTOH"   "On"			;Text outside align
    "DIMTXT"   "5/64"		;Text height
    "DIMLIM"   "Off"			;Tol limits
    "DIMTDEC"  "0"			;Tol precision
    "DIMTFAC"  "1"			;Tol text scale factor
    "DIMTM"    "0"			;Tol dev lower
    "DIMTOL"   "Off"			;Tol deviation
    "DIMTOLJ"  "1"			;Tol pos vert
    "DIMTP"    "0"			;Tol dev upper
    "DIMTXSTY" "Arial"		;Text style
    "DIMTZIN"  "0"			;Tol zero suppression
    "DIMZIN"   "1"			;Zero suppression
    "_Dimstyle"  "_Save"  "Evergreen"	;Saves the dimstyle
    "_Y"				;In case the dimstyle's already there it will be overwritten, or an error will appear
    "Graphscr"			;Ensures that the routine ends in graphscreen mode
   )
  (command)
  (Command
    "_-Layer" "_T" "_0-Dim" "_M" "_0-Dim" "_C" "253" ""	"")
  (command "cmdecho" "1")
)
;;;----------------------------------------------------------------------------------------
;;;Updates the Dimensions in the drawing.
;;;
(defun c:DimUpdate ()
  (C:SetDims)  
  (command "dim" "update" "all" "")
  (command)
  (graphscr)
  (princ)
)
;;;----------------------------------------------------------------------------------------
;;;CREATES THE _0-Dim LAYER. Allows a STRAIGHT Dimension. Then sets the 0 layer as current.
;;;
(Defun C:sd ()
  (C:SetDims)
  (command "cmdecho" "0")
  (command "dimlinear" pause pause pause)
  (command "-layer" "Set" "0" "")
  (command "cmdecho" "1")
)
;;;----------------------------------------------------------------------------------------
;;;CREATES THE _0-Dim LAYER. Allows a STRAIGHT CONTINUED Dimension. Then sets the 0 layer as current.
;;;
(Defun C:dc ()
  (C:SetDims)
  (command "cmdecho" "0")
  (command "dimcontinue" pause pause pause)
  (command "-layer" "Set" "0" "")
  (command "cmdecho" "1")
)
;;;----------------------------------------------------------------------------------------
;;;CREATES THE _0-Dim LAYER. Allows a ALIGNED Dimension. Then sets the 0 layer as current.
;;;
(Defun C:da ()
  (C:SetDims)
  (command "cmdecho" "0")
  (command "dimaligned" pause pause pause)
  (command "-layer" "Set" "0" "")
  (command "cmdecho" "1")
)
;;;----------------------------------------------------------------------------------------
;;;CREATES THE _0-Dim LAYER. Allows a RADIUS Dimension. Then sets the 0 layer as current.
;;;
(Defun C:dr ()
  (C:SetDims)
  (command "cmdecho" "0")
  (command "dimradius" pause pause)
  (command "-layer" "Set" "0" "")
  (command "cmdecho" "1")
)
;;;----------------------------------------------------------------------------------------
;;;CREATES THE _0-Dim LAYER. Allows a DIAMETER Dimension. Then sets the 0 layer as current.
;;;
(Defun C:dd ()
  (C:SetDims)
  (command "cmdecho" "0")
  (command "dimdiameter" pause pause)
  (command "-layer" "Set" "0" "")
  (command "cmdecho" "1")
)

[Gary.182361]

Thanks, but this is beyond me at this point. I'm talking about what you can do in the CUI files.....like create a custom button, then ^C^C_Dim or something.....can you specify the layer here or no?

[prose]

Thanks, but this is beyond me at this point. I'm talking about what you can do in the CUI files.....like create a custom button, then ^C^C_Dim or something.....can you specify the layer here or no?

Create a custom button then add the code below to the custom button.
Of course, change the defpoints to what ever layer you want your dimensions on.
This is also for a linear dimension, but this should get you started down the path.

^c^c(command "_-layer" "set" "defpoints" "")(command "dimlinear" pause pause pause)

[jaberwok]

From things that others have said, I think you should be able to put a dimension on a tool palette and have all dimensions created by using that tool appear on the same layer as the original dimension.

[Gigliano70]

From things that others have said, I think you should be able to put a dimension on a tool palette and have all dimensions created by using that tool appear on the same layer as the original dimension.

Jaberwok is correct. the process is this.

in any drawing place a dimension from each style you would like to use. make sure the settings are set to your company standards and they are on the correct layer. then create a new tool pallet by right clicking on the tool pallet and selecting "new pallet" name it what you want.

now drag and drop a dimension onto the tool pallet. take a look at the new dimension button it created. in newer versions you should see a flyout button with all of the dimensions available all set to the style of the one you dropped in there. rename it what you want. and do the same for the rest of your dim styles. now you don't have to worry about them being on the wrong layer.