we set the scale for blocks by using this in our pull down menu
[->$(eval,Drawing Scale (1 : $(getvar,userr1)))]
[1: 1]^C^C_setvar userr1 1
[1: 2]^C^C_setvar userr1 2
[1: 5]^C^C_setvar userr1 5
[1: 10]^C^C_setvar userr1 10
[1: 15]^C^C_setvar userr1 15
[1: 20]^C^C_setvar userr1 20
[1: 25]^C^C_setvar userr1 25
[1: 50]^C^C_setvar userr1 50
[1: 100]^C^C_setvar userr1 100
[1:125]^C^C_setvar userr1 125
[1: 150]^C^C_setvar userr1 150
[1: 200]^C^C_setvar userr1 200
[1: 250]^C^C_setvar userr1 250
[1: 500]^C^C_setvar userr1 500
[1: 1000]^C^C_setvar userr1 1000
[1: 1250]^C^C_setvar userr1 1250
[1: 1500]^C^C_setvar userr1 1500
[1: 2000]^C^C_setvar userr1 2000
[1: 5000]^C^C_setvar userr1 5000
[1: 10000]^C^C_setvar userr1 10000
[<-Custom]^C^C_setvar userr1 \
what I want to do is add a piece of code to the block insertion macro
[62(P002,Switched Socket)]^c^c$M=$(if,$(=,$(getvar,tilemode),0),_pspace,_r) _attdia 1 _-layer _t;_62_SM_POW;_m _62_SM_POW;;_-insert "P002" _xscale $(if,$(=,$(getvar,tilemode),0),1,$(getvar,userr1)) _yscale $(if,$(=,$(getvar,tilemode),0),1,$(getvar,userr1)) _zscale $(if,$(=,$(getvar,tilemode),0),1,$(getvar,userr1)) \\
that will check to make sure that the drawing scale has been set prior to the block being inserted.
I'm trying to make this thing as idiot proof as possible.
Also I'd like to add a piece of code to the layer insertions
-LINETYPE;LOAD;_CONT_DADO;RYBKA.LIN;;;^c^cFILEDIA;1;-LAYER;MAKE;_66_CONT_DADO;COLOR;RED;;LT;_CONT_DADO;;;PLINE;\W;50;;\;
that would set the linetype scale relative to the drawing scale set at the beginning.
but I'm reallly struggling with diesel, never used it before in my life.
Any guidance to push me in the right direction would be gratefully appreciated.