Execute Command
Applies to Arbortext IsoDraw 7.1 F000 and later:
Execute an Arbortext IsoDraw Macro Language (IML) command stored in a string.
EXECUTE COMMANDstring
string
IML command text string.
Macro SaveExportableLayers
# Saves an IsoDraw file with exportable layers only
Define theLayer As Layer
Define sCmd as String
theLayer = activeDoc.layers[activeDoc.LayerCount]
sCmd = "Save Layers '"+ \
stripfilename(activeDoc.path)+"Lx_"+activeDoc.name+"' "
While (exists(theLayer) = true)
If (theLayer.exportable = true)
sCmd = sCmd + " '"+theLayer.name+"'"
End If
theLayer = theLayer.PreviousSibling
End While
Execute command sCmd
End Macro