have a quick look guys and gals

I have a single line test entity with contents being
"L5x3x1/4"

Based on that string of text, I want to run a specific series of commands. How do I pull that information to a variable?

I'm boggled

 

(setq tx1 "L5x3x1/4")

Tim

 

Assuming L5x3x1/4 -
5 = length always whole number
3 = width always whole number
1/4 = depth can be whole and or fractions

(setq Plen (getint "\nInput Part Length ? "))
(setq Pwid (getint "\nInput Part Width ? "))
(setq Pdep (getreal "\nInput Part Depth ? "))
(setq Psiz (strcat "L" (itoa Plen) "x" (itoa Pwid) "x" (rtos Pdep 5 3)))

Note - you will have to play with "getreal" input and "rtos" output to match
block names

How do I pull that information to a variable?

 

I think what you're looking for is a way to select the pre-existing text
entity, and have the appropriate block inserted (and whatever other commands
you have in mind). So the (setq) thing you need would have to EXTRACT the
text content from that text entity that you select, something like [in
macro-type format, and NOT TESTED]:

(setq angletext (assoc <whatever-it-is-for-text-content-I-didn't-look>
(entget (car (entsel "Select designation: "))))) \

Then, later on, something like:

(if (= angletext "L5x3x1/4") <...do all the stuff you want to do...>

Actually, I'd suggest, in case it's possible that the x's in the designation
might be upper OR lower case, that you do it this way (assuming the above
shot-from-the-hip actually works right otherwise):

(setq angletext (strcase (assoc <whatever> (entget (car (entsel "Select
designation: ")))))) \

to force it to convert it to upper case. Then, later on, something like:

(if (= angletext "L5X3X1/4") <...do all the stuff you want to do...>

Kent Cooper, AIA

How do I pull that information to a variable?

 

I think we're on the right track now
Yes I need to utilize the pre-existing text of the single line text entity. That entity is what I want to equal "STK" so that if "STK" equals "L5x3x1/4" then <do whatever needs to be done> If the "STK equals "L6x2x1/4" then <do another bunch of steps that needs to be done.

 

Then if you have the text just grab (assoc 1 <>) of Kent's statement. That will grab the text of the text object. Then use your "cond" statements.

Tim

 

lets try again

to assign my variable "STK" is it:

(setq STK (assoc 1)

?

 

Is this what you're looking for?

(setq txt (entget (entsel "\nSelect text: ")))
(setq STK (cdr (assoc 1 txt)))
___

 

Sorry -- that should be:

(setq txt (entget (car (entsel "\nSelect text: "))))
(setq STK (cdr (assoc 1 txt)))
___

 

Paul, thats the one.
Thanks for your help guys, much appreciated

m