VS:CreateText: Difference between revisions
Jump to navigation
Jump to search
m (1 revision) |
(fix mistake) |
||
(2 intermediate revisions by the same user not shown) | |||
Line 35: | Line 35: | ||
PROCEDURE Example; | PROCEDURE Example; | ||
VAR | VAR | ||
Txt :ARRAY [1..100] of STRING; | Txt :ARRAY [1..100] of STRING; | ||
Outpt :DYNARRAY[] of CHAR; | Outpt :DYNARRAY[] of CHAR; | ||
i :INTEGER; | i :INTEGER; | ||
BEGIN | BEGIN | ||
FOR i := 1 TO 5 DO txt[i] := 'asdf'; | FOR i := 1 TO 5 DO txt[i] := 'asdf'; | ||
i := 2; | i := 2; | ||
Outpt := Txt[1]; | Outpt := Txt[1]; | ||
WHILE Txt[i] <> '' DO BEGIN | WHILE Txt[i] <> '' DO BEGIN | ||
OutPt := Concat(Outpt, Chr(13), Txt[i]); | OutPt := Concat(Outpt, Chr(13), Txt[i]); | ||
i := i + 1; | i := i + 1; | ||
END; | END; | ||
Layer('Text'); | Layer('Text'); | ||
CreateText(Outpt); | CreateText(Outpt); | ||
Layer('Layer-1'); | Layer('Layer-1'); | ||
END; | END; | ||
RUN(Example);</code> | RUN(Example);</code> | ||
==== Python ==== | ==== Python ==== | ||
<code lang="py"> | <code lang="py"> | ||
Line 78: | Line 79: | ||
| [[VS:EndText]] | | [[VS:EndText]] | ||
</seeAlso> | </seeAlso> | ||
----------------------------------------------------------------------------------------------------------- | |||
<remark> | |||
[[User:CBM-c-|_c_]], 2015.12.19: If you draw text, it is important to have a proper text size on the document or you'll see the error "An incorrect object is described". | |||
<code lang="pas"> | |||
PushAttrs; | |||
NameClass(ClassList(1)); | |||
PenPat(1); | |||
FillPat(0); | |||
PenFore(0, 0, 0); | |||
TextSize(9); { avoid accidental small text size rising the error "An incorrect object is described" } | |||
CreateText('Text'); | |||
PopAttrs; | |||
</code> | |||
</remark> | |||
----------------------------------------------------------------------------------------------------------- | ----------------------------------------------------------------------------------------------------------- | ||
<version> | <version> | ||
Availability: from | Availability: from VectorWorks 8.0 | ||
</version> | </version> |
Latest revision as of 05:26, 15 January 2021
.VectorScript|VectorScript ..VS:Function Reference|Function Reference ..VS:Function_Reference_Appendix|Appendix
Description
Procedure CreateText creates a new text object in a VectorWorks document. The text object is created using the current pen position and default attributes.
PROCEDURE CreateText(
theText :DYNARRAY[] of CHAR);
def vs.CreateText(theText): return None
Parameters
theText DYNARRAY[] of CHAR Text string.
Remarks
_c_, 2015.12.19: If you draw text, it is important to have a proper text size on the document or you'll see the error "An incorrect object is described".
PushAttrs; NameClass(ClassList(1)); PenPat(1); FillPat(0); PenFore(0, 0, 0); TextSize(9); { avoid accidental small text size rising the error "An incorrect object is described" } CreateText('Text'); PopAttrs;
Example
VectorScript
PROCEDURE Example; VAR Txt :ARRAY [1..100] of STRING; Outpt :DYNARRAY[] of CHAR; i :INTEGER; BEGIN FOR i := 1 TO 5 DO txt[i] := 'asdf'; i := 2; Outpt := Txt[1]; WHILE Txt[i] <> '' DO BEGIN OutPt := Concat(Outpt, Chr(13), Txt[i]); i := i + 1; END; Layer('Text'); CreateText(Outpt); Layer('Layer-1'); END; RUN(Example);
Python
def Example(): txt = [] for i in range(0,4): txt.append('asdf') txt.append("") i = 1 Outpt = txt[0] while txt[i] != "": OutPt = vs.Concat(Outpt, vs.Chr(13), txt[i]) i = i + 1 vs.Layer('Text') vs.CreateText(Outpt) vs.Layer('Layer-1') Example()
Version
Availability: from VectorWorks 8.0
See Also
VS Functions:
VS Functions:
[[VS:BeginText]]
| [[VS:EndText]]