- A Basicad program that looks something like this can be attached to an
icon of your design This is a 10% increase. That's customizable.
written by JKumin
 |
' Program: TextSizeUp
' written by JKumin copyright 2004 Tri-Luminary, Inc. All Rights Reserved
' Summary: sizes a bunch of text entities (preselected) 10% bigger
' Create TextSizeDown by substituting different value
sys(800) = 1
INCLUDE "*\DcadAlias.d3i"
sys(1027) = 0
Precision 0
On Error Goto handler
If sys(80)= 0 then goto oops
For i = 1 to sys(80)
getselect i, entnum
entity entnum
query ent_type, e
If e = 3 or e = 13 then '2d or 3d text
query t_size, j
j= j*1.1
change t_size, j
Update
end if
Next i
Regen
End
Oops:
Message "There were no selected entities."
End
handler:
print "Error: ", ERR$(err(1))
resume
|
|
|