Announcement

Collapse
No announcement yet.

scale selector menu

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • scale selector menu

    here's an example of a menu which you can use to change the dimscale of a drawing. It will display a check mark next to the current scale.

    Code:
    ***POP15
    **DWGSCALE
    ID_MnScales    [&Dwg Scale]
    ID_sclfull     [$(if,$(eq,$(getvar,dimscale),1),!.)Full (1)]^C^C^P(setvar "dimscale" 1) ^P
    ID_scl6        [$(if,$(eq,$(getvar,dimscale),2),!.)6''=1'-0'' (2)]^C^C^P(setvar "dimscale" 2) ^P
    ID_scl3        [$(if,$(eq,$(getvar,dimscale),4),!.)3''=1'-0'' (4)]^C^C^P(setvar "dimscale" 4) ^P
    ID_scl112      [$(if,$(eq,$(getvar,dimscale),8),!.)1-1/2''=1'-0'' (8)]^C^C^P(setvar "dimscale" 8) ^P
    ID_scl1        [$(if,$(eq,$(getvar,dimscale),12),!.)1''=1'-0'' (12)]^C^C^P(setvar "dimscale" 12) ^P
    ID_scl34       [$(if,$(eq,$(getvar,dimscale),16),!.)3/4''=1'-0'' (16)]^C^C^P(setvar "dimscale" 16) ^P
    ID_scl12       [$(if,$(eq,$(getvar,dimscale),24),!.)1/2''=1'-0'' (24)]^C^C^P(setvar "dimscale" 24) ^P
    ID_scl38       [$(if,$(eq,$(getvar,dimscale),32),!.)3/8''=1'-0'' (32)]^C^C^P(setvar "dimscale" 32) ^P
    ID_scl14       [$(if,$(eq,$(getvar,dimscale),48),!.)1/4''=1'-0'' (48)]^C^C^P(setvar "dimscale" 48) ^P
    ID_scl316      [$(if,$(eq,$(getvar,dimscale),64),!.)3/16''=1'-0'' (64)]^C^C^P(setvar "dimscale" 64) ^P
    ID_scl18       [$(if,$(eq,$(getvar,dimscale),96),!.)1/8''=1'-0'' (96)]^C^C^P(setvar "dimscale" 96) ^P
    ID_scl332      [$(if,$(eq,$(getvar,dimscale),128),!.)3/32''=1'-0'' (128)]^C^C^P(setvar "dimscale" 128) ^P
    ID_scl116      [$(if,$(eq,$(getvar,dimscale),192),!.)1/16''=1'-0'' (192)]^C^C^P(setvar "dimscale" 192) ^P
    ID_scl364      [$(if,$(eq,$(getvar,dimscale),256),!.)3/64''=1'-0'' (256)]^C^C^P(setvar "dimscale" 256) ^P
    ID_scl132      [$(if,$(eq,$(getvar,dimscale),384),!.)1/32''=1'-0'' (384)]^C^C^P(setvar "dimscale" 384) ^P
Working...
X