I have some texts (top and bottom) in my drawing as above. I just need to have these in excel.
After selection of the top texts (point 01 - 08) it should go in first column of excel file and after selection of bottom texts (23.65 - 22.10) it should go in second column of excel file.
@Philip-John wrote:
I have some texts (top and bottom) in my drawing as above. I just need to have these in excel.
After selection of the top texts (point 01 - 08) it should go in first column of excel file and after selection of bottom texts (23.65 - 22.10) it should go in second column of excel file.
Easy does it.
@Philip-John wrote:
I have some texts (top and bottom) in my drawing as above. I just need to have these in excel.
After selection of the top texts (point 01 - 08) it should go in first column of excel file and after selection of bottom texts (23.65 - 22.10) it should go in second column of excel file.
Try this, the program writes the string rows into on a CSV file format
(defun c:RTC ( / _sortsel _dxf fc sc csvfile opf); Row to column
(defun _sortsel (sel)
(mapcar 'cadr
(vl-sort
(mapcar '(lambda (e)
(list (_dxf 10 e) (_dxf 1 e)) )
(vl-remove-if 'listp (mapcar 'cadr (ssnamex sel))) )
'(lambda (a b) (< (caar a) (caar b)))
)
)
)
(defun _Dxf (d e)(cdr (assoc d (entget e))))
(if
(and
(princ "\nSelect text for first column")
(setq fc (ssget '((0 . "TEXT"))))
(princ "\nSelect text for second column")
(setq sc (ssget '((0 . "TEXT"))))
)
(progn
(setq fc (_sortsel fc)
sc (_sortsel sc))
(setq csvfile (strcat (getvar 'dwgprefix)
(vl-filename-base (getvar 'dwgname)) ".csv"))
(setq opf (open csvfile "w"))
(foreach itm (mapcar 'list fc sc)
(write-line (strcat (Car itm) "," (cadr itm)) opf)
)
(close opf)
(startapp "explorer" csvfile)
); progn
); if
(princ)
)
Command: RTC
Select text for first column
Select text for second column
HTH
@Sea-Haven wrote:
That way dont get "Oh need 3 columns now". XYZ. Just press enter when asked for next column. .
That's a good point @Sea-Haven . Good ideas come from experience. 👍
@Philip-John wrote:
Hi Patric,
Can you make it possible as sea.heaven said. (MESSAGE 6 OF 7)
Sure, hang on.
(defun c:RTC ( / _sortsel _dxf fc csvfile opf row collection _comma ); Row to column
(defun _sortsel (sel cl)
(mapcar 'cdr
(vl-sort
(mapcar '(lambda (e)
(redraw e 3)
(list (_dxf 10 e) (_dxf 1 e) e) )
(vl-remove-if 'listp (mapcar 'cadr (ssnamex sel))) )
'(lambda (a b) (< (caar a) (caar b)))
)
)
)
(defun _Dxf (d e)(cdr (assoc d (entget e))))
(setq collection nil inc 0
_comma (lambda (s)(strcat s ","))
)
(While
(progn
(princ (strcat "\nSelect text for column "
(itoa (setq inc (1+ inc))) " "
)
)
(setq fc (ssget '((0 . "TEXT")))))
(setq collection (Cons (_sortsel fc inc) collection))
)
(if (setq collection (reverse collection))
(progn
(setq csvfile (strcat (getvar 'dwgprefix)
(vl-filename-base (getvar 'dwgname)) ".csv"))
(setq opf (open csvfile "w"))
(while (and (Car collection)
(setq data (mapcar 'car collection))
)
(setq row (apply 'strcat (mapcar '_comma (mapcar 'car data))))
(write-line row opf)
(foreach itm (mapcar 'cadr data) (redraw itm 4))
(setq collection (mapcar 'cdr collection))
)
(close opf)
(startapp "explorer" csvfile)
)
)
(princ)
)
HTH
@Philip-John wrote:
...He will take his own time and will come out with a solution. For time being I shall use what he has "gifted" to me
Moreover, I came to know from his previous answers/helps, that he is not so greedy to have some donation to help others by his God gifted knowledge and talents.
Thank you for your kind words, and it still holds true, a request that requires a bit of time to code usually stays in my head for days.
We're doing this to give back to the community in return for Autodesk appreciating our talent.
In defense of @Sea-Haven and @JTBWorld , they're not wrong either. We also have bills to pay.
We wll definitely NOT ask for any donation, but i doesnt mean its not welcome.😊
Give your donations to : 106.117.115.116-32-97-32-80.114.97.110.107 under the name L. E. Gpull.
Now that issue is settled, Moving on to your request..
@Philip-John wrote:
Thanks Patric,
First of all, if you had not misspelled my name this could've been done days ago 😀
@Philip-John wrote:
....corresponding value to the second column. For first selection it is working fine. But for second selection of 25...
Multiple tab csv is not possible, its either we do individual csv files or one excel file.
Choose wisely @Philip-John
@Philip-John wroteI could not understand this method of sending donation. Can you please elaborate it?
@Philip-John it's not real 🙂, its was meant to be a joke. When you learn enough lisp then you will understand. Dont worry about it. 😀
What i need from you is your reply to my last question regarding multiple csv file or one excel file, also you need to show me an example of a drawing and the desired result OK?
The donation thing is just for fun👊
