Text to Excel

[Momi]

Hi there

I know a lot of similar subjects there, but I need help to edit the lisp that I am using, It gives me text from AutoCAD to excel by clicking on it, even if it's Block, Attribute, Mtext or text any kind of text.

but It can't change the AutoCAD text colour after clicking, anyone  have any solution please let me know, i attach the lisp below.

Text2XLS & Click2Xls.vlx

[Steven P]

Can you post the LISP without the protection (as a LISP file).... tricky to help out otherwise.

 

Not sure if you can alter the colour in excel - you'll have to put the colour code in the text so that excel recognises it as it opens

[BIGAL]

I had a play. Not sure about the numbers produced, get funny answer for RED. Cell 1 4 returns color 0 index 1 which sounds correct. 

(or (setq myxl (vlax-get-object "Excel.Application"))
    (setq myxl (vlax-get-or-create-object "excel.Application"))
)
(vla-put-visible myXL :vlax-true)
(vlax-put-property myxl 'ScreenUpdating :vlax-true)
(vlax-put-property myXL 'DisplayAlerts :vlax-true)
(setq cells (vlax-get-property  (vlax-get-property myxl "ActiveSheet") "Cells"))

repeat these 2 lines change column number
(setq cell (vlax-get (vlax-variant-value  (vlax-get-property cells "Item" 1 1)) 'font)) ; row column 1 1
(alert (strcat "Color is  " (rtos (vlax-get cell 'color) 2 0) " Index " (rtos (vlax-get cell 'colorindex) 2 0)))

 

(vlax-put cell 'color  5287936.0)

 

 

[Momi]

@Steven P  I've only this file as a Vlx, I will check If i can unlock it

[Momi]

@BIGAL Thanks a lot, you are always a life saver, I'm not good as you in coding.

 

The thing I want is to change the text colour only in AutoCAD once I select it ,besides that it works perfect

[BIGAL]

If you dont have the source of the VLX we can not help you, its a case of look at this code.

 

Yes its blank, that means some one has to start with a blank sheet and write all new code. 

 

You need to explain more what values need to have their color changed. Is it just all that you select  to one color ? The send to Excel is the easy bit.

[Momi]

@BIGALThanks, I will try to find the code for it

[BIGAL]

You can start with this but you need to understand how lisp works, the lisp is multiple defuns used with Excel, mainly get and put values.Alan Excel library.lsp