What I need.
Text font - simplex.shx
Text style - SBCTXT (or name of text)
Text height - 1.725
Text width - 1.0
Text Layer - 4 (cyan) (will need to be created)
Text justification - L,C,R
will need it to creat the layer, text style, etc.
"What I need" ???
I think you mean "Could someone help me... Where do I start creating a lisp?"
Or maybe post your code that you have already started and we can see where you are going wrong?
Or you could try Re-phrasing your need, more into question, and posting it in the lisp newsgroup >>Here<
Yes you are correct in the way I should have asked, and I am sorry about that.
Here is what I have. it will work if I create the layer first. It will not create the text style either.
(DEFUN C:2TXTL()(COMMAND "_LAYER" "SET" "01_TEXT" "" "")(COMMAND "_DTEXT" "S" "STANDARD" PAUSE "2.0" "0" )(COMMAND "_LAYER" "SET" "0" "" ""))
oh and it only will work with the default standard text style. for some reason I can not het the font to change to simplex.shx
1) To create a layer you use "make" in the layer command, not "set".
2) Instead of using "textstyle", to create a text style using "style" command.
"textstyle" is a system variable and it allows the user to "set" a layer.
And logically, you first create a new layer then a new text style and finally you write a piece of text.
Optional: at the end of you code you may reset the previous active layer/text style to the current which is what you have done in your code.
Here is a sample of using "style":
Command: -STYLE Enter name of text style or [?] <STANDARD>: ABC New style. Specify full font name or font filename (TTF or SHX) <txt>: iso3098i.shx Specify height of text or [Annotative] <0.0000>: 12.5 Specify width factor <1.0000>: Specify obliquing angle <0.0>: Display text backwards? [Yes/No] <No>: Display text upside-down? [Yes/No] <No>: Vertical? [Yes/No] <No>: "ABC" is now the current text style.
HTH