Macro to Move Selection to Another Layer
  • This is a macro to move selected entities to another layer.
  • Updated to use V-14 command line entry:m2 (layer #)
    • After something is selected the user can type "m2 188" on the command line for example.

By: Lar with update by PRL

 

File to Download:

m2.zip
'START OF MACRO...

'Macro to change entity layer, by Lar and PRL.
'Last edited 4/May/1998

'NOTE- the number in brackets in the next line can be changed to cover more (or less) entities...
dim ent(200)

'Program m2.d3m
'version 14 command line version

dim entlist(1000)

if sys(80)=0 then
Message "Nothing selected. . . press any key to continue"
END
end if

layy$=sys$(0)
if layy$ = "" then input "Enter layer number: ", layy$
dest = val(layy$)

nsel = sys(80)
for j = 1 to nsel
getselect j, entlist(j)
next j
sys(80)=0

for j = 1 to nsel
getattr entlist(j), type, select, laynum
putattr entlist(j), type, 0, dest
next j

regen

END

File to Download:

m2.zip