Topic: Lisp to create simple text strings.

[Lonnie]

I am hoping for some help creating a lisp.
I have a bunch of pdf's I am making into dwg's. Most of the time it won't create text it creates vectors that will not convert to text. As a result I have a whole bunch of different pipe/duct/pressure text I have to retype.

Typically all I have to do is change the numbers and keep the text consistent.
Below is a lisp routine with two lisp that do ducts and gas pressures.

(defun c:T5T (/ mytext1 mytext2 textString p1 *w1* *w2* *w3* )

  (setq *w1* "(E) "
        *w2* "\" ("
        *w3* " CFH)"
  )

  (setq mytext1 (getstring "\nEnter the size: "))
  (setq mytext2 (getstring "\nEnter the CFM: "))

  (setq textString (strcat *w1* mytext1 *w2* mytext2 *w3*))
  (setq p1 (getpoint "\nSpecify insertion point: "))

  ; Insert the text
  (command "_text" p1 "0" textString)

  ; Erase all selected objects
  ; if (setq ss (ssget (list (cons 0 "~Text") (cons 0 "~MText"))))
  ;   (command "_erase" ss)
  ; )

  (princ)
)

Sorry for some reason my t4t lisp won't quote. It just hang the preview\save. Below is that attached lsp with both routines.

 Right now I am doing it with
words
(w1 w2 etc)

And

Questions
(mytext1 mytext2)

T4T was my first list I had to do

T5T was the second set.

By the time I am done I may have 15 different ones for various labels.
Does anyone have a better suggestion on how to go about this?

[masao]

I am hoping for some help creating a lisp.
I have a bunch of pdf's I am making into dwg's. Most of the time it won't create text it creates vectors that will not convert to text. As a result I have a whole bunch of different pipe/duct/pressure text I have to retype.

Typically all I have to do is change the numbers and keep the text consistent.
Below is a lisp routine with two lisp that do ducts and gas pressures.

(defun c:T5T (/ mytext1 mytext2 textString p1 *w1* *w2* *w3* )

  (setq *w1* "(E) "
        *w2* "\" ("
        *w3* " CFH)"
  )

  (setq mytext1 (getstring "\nEnter the size: "))
  (setq mytext2 (getstring "\nEnter the CFM: "))

  (setq textString (strcat *w1* mytext1 *w2* mytext2 *w3*))
  (setq p1 (getpoint "\nSpecify insertion point: "))

  ; Insert the text
  (command "_text" p1 "0" textString)

  ; Erase all selected objects
  ; if (setq ss (ssget (list (cons 0 "~Text") (cons 0 "~MText"))))
  ;   (command "_erase" ss)
  ; )

  (princ)
)

Sorry for some reason my t4t lisp won't quote. It just hang the preview\save. Below is that attached lsp with both routines.

 Right now I am doing it with
words
(w1 w2 etc)

And

Questions
(mytext1 mytext2)

T4T was my first list I had to do

T5T was the second set.

By the time I am done I may have 15 different ones for various labels.
Does anyone have a better suggestion on how to go about this?

hi~i dont know your various labels text how to permutation. so i use "cond" to write it.

you can test it. have a good day.

[BIGAL]

Just watch out with Text there are 2 options it has a height or not. In your text style for your code you need height set to 0. If it has a size like 2.5 the text command skips that question so your code will do strange things. I would add at start of code which text style to use (setvar 'textstyle "yours") so make sure height is set to 0.

You can check for it and use correct (command "Text" will try to find.

[Lonnie]

First thank you for your effort masao it get me a lot further along.
Secondly I am so sorry I've not gotten back to you all. The lisp did not work off the bat and workload comes first. As BIGAL predicted. The size being set was a problem. It simply changed the angle to whatever number and placed a 0 as the only piece of text. I had that problem when I first worked on my original lisp so I am confident I can fix that part. When done with no height set it works but I've not look at it well enough to try changing the words.

[Mark]

I'm not exactly sure what you're trying to accomplish but this might help.

Code - Auto/Visual Lisp: [Select]

1. ;; create text object in dwg
2. (defun c:T5T (/ mytext1 mytext2 textString p1 w1 w2 w3)
3.  
4. ; constant variables
5.   (setq w1 "(E) "
6.         w2 "\" ("
7.         w3 " CFH)"
8.   )
9.  
10.   ; user input
11.   (setq mytext1 (getstring "\nEnter the size: "))
12.   (setq mytext2 (getstring "\nEnter the CFM: "))
13.  
14.   ; create variables
15.   (setq textString (strcat w1 mytext1 w2 mytext2 w3))
16.   (setq p1 (getpoint "\nSpecify insertion point: "))
17.  
18.   ; create entity
19.   (entmake
20.     (list
21.       '(0 . "TEXT")
22.       (cons 10 p1)
23.       (cons 8 (getvar "clayer"))
24.       (cons 40 (getvar "textsize"))
25.       (cons 1 textString)
26.       (cons 7 (getvar "textstyle"))
27.       '(72 . 1) ; = horz. centered
28.       (cons 11 p1)
29.       '(73 . 1) ; = vert. bottom
30.     )
31.   ); entmake
32. ); defin
33.