Topic: Dim Mode !!?

[ronjonp]

Take a look at the vba module Keith posted .......You can set the layer to whatever you please before ANY command.


http://theswamp.org/phpBB2/viewtopic.php?p=33933#33933

I have a dimension layer set before:

dimaligned
dimangular
dimbaseline
dimcenter
dimcontinue
dimdiameter
dimlinear
dimordinate
dimradius
qdim
dim

and the layer will be set back after the command is done or you cancel out.

Ron

[Andrea]

what about

QLEADER or LEADER ??

[ronjonp]

what about

QLEADER or LEADER ??

We put those on a "leader" layer.....

Like I said before....ANY COMMAND can have a layer created before you run it.

Code: [Select]

If (CommandName = "dim") Then
  CLayer = ThisDrawing.GetVariable("CLAYER")
  Set XrefLay = ThisDrawing.Layers.Add("dimension")
  XrefLay.color = acWhite
  ThisDrawing.SetVariable "CLAYER", "dimension"
 End If

All you have to do is create another section with the appropriate command and layer.

Ron

[Andrea]

what about

QLEADER or LEADER ??

We put those on a "leader" layer.....

Like I said before....ANY COMMAND can have a layer created before you run it.

Code: [Select]

If (CommandName = "dim") Then
  CLayer = ThisDrawing.GetVariable("CLAYER")
  Set XrefLay = ThisDrawing.Layers.Add("dimension")
  XrefLay.color = acWhite
  ThisDrawing.SetVariable "CLAYER", "dimension"
 End If

All you have to do is create another section with the appropriate command and layer.

Ron

Ok..ronjonp..

first...thanks for all your answer..
but i think i need help...because l'm not very familar with VBA in AutoCAD..

How to get this routine to work ?

[Andrea]

Take a look at the vba module Keith posted .......You can set the layer to whatever you please before ANY command.


http://theswamp.org/phpBB2/viewtopic.php?p=33933#33933

I have a dimension layer set before:

dimaligned
dimangular
dimbaseline
dimcenter
dimcontinue
dimdiameter
dimlinear
dimordinate
dimradius
qdim
dim

and the layer will be set back after the command is done or you cancel out.

Ron

Ronjonp...

see the

http://theswamp.org/phpBB2/viewtopic.php?p=33933#33933

I have made some tests..

[Andrea]

rnew reply...

http://theswamp.org/phpBB2/viewtopic.php?p=33933#33933


also..I need to make DIM command before dimensionning..

the
dimaligned
dimangular
dimbaseline
dimcenter
dimcontinue
dimdiameter
dimlinear
dimordinate
dimradius
qdim
dim

command not working in our office...maybe because we have AutoCAD (French release) even with the "underscore" before the command _

[PDJ]

Andrea, here's something I've been using for about 15 years now:

Code: [Select]

(setq cl  (getvar "clayer")        ;current layer
            cc  (getvar "cecolor")       ;current color
            tln (cdr (assoc 8 el))       ;text layer name
            tc  (cdr (assoc 62 el))      ;text color
      )


Then to return back to the previous values:

Code: [Select]

(if (/= cl tln)(command "LAYER" "S" cl ""))
           (if (/= cc tc)(command "COLOR" cc))

[Andrea]

Andrea, here's something I've been using for about 15 years now:

Code: [Select]

(setq cl  (getvar "clayer")        ;current layer
            cc  (getvar "cecolor")       ;current color
            tln (cdr (assoc 8 el))       ;text layer name
            tc  (cdr (assoc 62 el))      ;text color
      )


Then to return back to the previous values:

Code: [Select]

(if (/= cl tln)(command "LAYER" "S" cl ""))
           (if (/= cc tc)(command "COLOR" cc))

PDJ...

I think the code is not complete...
need the "el" variable..

also, if "el" is a selected entity...
this is not what i need.

I only need to detect the DIM mode.