Adding Xdata From Slected Mtext or Text

[karunakaran1991]

Hi,

 

I am creating lisp routine and the work is to selected Mtext or text and the corresponding content is to be added as Xdata to the selected entity.

 

 

(defun C:addxdata()

(setq a(entget(car(entsel"\nSelect Text: "))))

(setq Xdata1 (cdr (assoc 1 a)))

(princ Xdata1)

(setq b(entget(car(entsel"\nSelect Text: "))))

(setq Xdata2 (cdr (assoc 1 b)))

(princ Xdata2)

(regapp "Test_Xdata" )

(setq oldlist (entget (car (entsel))))

(setq thedata '((-3 ("Test_Xdata" (1000 . Xdata1) (1000 . Xdata2 )))))

)

 

Then I used list Xdata option available under Express tool Tab (Auto Cad 2014). I didn't find any Xdata Attached with it.

 

After Adding the Xdata, I wanna export to Excel.

 

For the Excel Conversion, Lisp is working good.

 

I guess the Problem is in the following line,

 

(setq thedata '((-3 ("Test_Xdata" (1000 . Xdata1) (1000 . Xdata2 )))))

 

Eventhough the value stored in variable it is not working properly.

 

With Regards,

Karunakaran.

[Lee Mac]

By quoting the expressions, the variables will not be evaluated to yield the values they hold - I would suggest reading my tutorial on the Apostrophe and the Quote Function to understand more about this concept.

 

Lee

[SLW210]

Please read the Code Posting Guidelines and edit your post to include the Code in Code Tags.

[karunakaran1991]

Thank you Lee I got it where I missed and the referred info are usefull.