Rtext in lisp

[Anonymous]

I'm having trouble calling the Rtext command via lisp. I get an unknown
command error. Works fine at the command line.
Is this possible? I would like to create Rtext with a diesel statement for
the current reference files in the drawing.

[Anonymous]

(if (not (member "rtext.arx" (arx))) (arxload "RText.arx" nil))

(entmake
(list '(0 . "RTEXT")
'(100 . "AcDbEntity")
'(100 . "RText")
(cons 8 layer)
(cons 10 insertion-point)
(cons 40 text-size)
(cons 7 text-style)
(cons 50 rotation-angle-in-radians)
(cons 1 diesel-expression)
'(70 . 1) ;1 IS FOR DIESEL EXPRESSIONS
)
)

Cliff (headin' fer the house) Middleton

"spreitauer" wrote in message
news:4F441B194DA06691D1E3CD57B10A13BA@in.WebX.maYIadrTaRb...
| I'm having trouble calling the Rtext command via lisp. I get an unknown
| command error. Works fine at the command line.
| Is this possible? I would like to create Rtext with a diesel statement
for
| the current reference files in the drawing.
|

[Anonymous]

Thank you, Cliff that is exactly what I was looking for. It seems the very
basic entmake function works perfectly! Sometimes simple is better.

"Cliff Middleton" wrote in message
news:F1D082DD9C7679D40B648C5F5C0B9B08@in.WebX.maYIadrTaRb...
> (if (not (member "rtext.arx" (arx))) (arxload "RText.arx" nil))
>
> (entmake
> (list '(0 . "RTEXT")
> '(100 . "AcDbEntity")
> '(100 . "RText")
> (cons 8 layer)
> (cons 10 insertion-point)
> (cons 40 text-size)
> (cons 7 text-style)
> (cons 50 rotation-angle-in-radians)
> (cons 1 diesel-expression)
> '(70 . 1) ;1 IS FOR DIESEL EXPRESSIONS
> )
> )
>
> Cliff (headin' fer the house) Middleton
>
> "spreitauer" wrote in message
> news:4F441B194DA06691D1E3CD57B10A13BA@in.WebX.maYIadrTaRb...
> | I'm having trouble calling the Rtext command via lisp. I get an unknown
> | command error. Works fine at the command line.
> | Is this possible? I would like to create Rtext with a diesel statement
> for
> | the current reference files in the drawing.
> |
>

[e.lucas8]

Thank you verry much.