2 Attachment(s)

VBA acadtext value calculate and write in table right column

Hi. could you help me to this problem.

item (5) is Number=23, Diameter=12mm, Lenght=545cm

item (6) is Number=33, Diameter=14mm, Lenght=490cm

item (7) is Number=45, Diameter=14mm, Lenght=580cm

That is drawing jpeg in attachment in this massage.

And I want to select at first item(5) group, and select item(6) group, and select item(7).

After the selection, want to calculate the 23*545 (125.35) value and print this solution in dia.12 column.

(this is for first selection. and second is dia.14 column, and third is dia.14 column.)

all text is different layer in item(5) group.

Thanks.

Re: VBA acadtext value calculate and write in table right column

Can you just put a formula in another table cell to do the calculation?

Re: VBA acadtext value calculate and write in table right column

Table is not a acadtable (not exel). I define table with acadpolylines. Table is not important. I defined table to explain my want. My main problem: if selected text1.value is same to text3 ==> write (selected text1.value)*(selected text2.value) in text3's x,y coordinate.

like that

text3' coordinate is (x,y)=(10,10)

Selectonscreen text1 and text2 after

if text1.value=text3.value than

iCalc = text1.value*text2.value

And;

write that calculation below text3 ( iCalc coordinate might be (10,8) ).