home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format 58
/
af058b.adf
/
PV21.lha
/
REXX
/
ChangeSelWeights.pvrx
< prev
next >
Wrap
Text File
|
1991-08-08
|
805b
|
42 lines
/* ChangeSelWeights.pvrx---Change line weights of selected
objects to specified weight.
Copyright © 1991 by Stylus, Inc.
Author: Jeff Blume
*/
options results
/* Try to get exclusive lock on project window.
If can't get lock, not polite to interrupt. */
'Lock'
if rc ~= 0 then exit
'SelectList' Sel; SelN = Result
if SelN = 0 then call Error "No objects selected!"
/* Prompt user for minimum line weight */
'GetStr "New Line Weight (in inches)?" "OK" "CANCEL"'
LW = result
if rc ~= 0 then call CleanUp
if LW = "" then call Error "Must Specify Line Weight"
'Prompt "Working..."'
'PushUndo'
do i = 0 to SelN-1
'SaveUndo' Sel.i
'ChangeEdgeWidth' Sel.i LW
end
'EndPrompt'
'Repair'
ERROR:
arg ErrTxt
if RC ~= 0 | ErrTxt ~= "" then 'GetBool ErrTxt "Cancel" "Cancel"'
CLEANUP:
'UnLock'
exit