Auto CAD text components with columns bring to MS word as editable text

Hi dears,

 

I am not experienced with the creation of Auto Lisp program.

 

Presently I am looking for a help from your side for exporting an Auto CAD text schedule in to MS Word which includes the frames texts as the CAD file.

I found some lisps from CAD Tutor that will helps me to get the whole texts in to a word file but that was not as the drawing file.

 

I am looking to get a similar shape as the auto CAD file in to Word format with editable text. (I found that can covert as an image file in to MS word...but that cant be edit the text...)

 

I hope you understand my requirement.

 

If someone having any ideas with my inquiry, sharing a solution is much appreciate..and is very helpful for me..

 

Please find the attached reference CAD file with this..

 

Thanks in advance...:)

111111111111111111111111.dwg

Edited January 4, 2018 by isutheparambil
spell

Wouldn't you insert the Autocad text schedule into a Word document as an OLE object?

Use a lisp to convert old table to new table style then export to excel

 

This is link for one

http://cadtips.cadalyst.com/content/alspsol0308-convert-old-table-new-table-format

 

Aand attached another one

COT_Convert_Old_TableV1.4.lsp

COT_Convert_Old_Table-V1.6a.lsp

Use a lisp to convert old table to new table style then export to excel

 

This is link for one

http://cadtips.cadalyst.com/content/alspsol0308-convert-old-table-new-table-format

 

Aand attached another one

 

Can you point out to us where the OP mentioned exporting a table to Excel? I think you responded to the wrong thread.

Can you point out to us where the OP mentioned exporting a table to Excel? I think you responded to the wrong thread.

 

Both Excel & Word are one family

Next step

Select cells in Excel Then paste in Word

 

(Non direct solution until find the direct solution)

As you point out it is a multi-step process; it is not direct.

Pasting the table is probably the easiest.

 

There is some posts about controlling Word from Autocad and Word controlling Autocad, look up excel controlling Autocad also same method can be done but really need to know about Word programming as you need to make a table then fill in all the values. VBA may be the way to go.

Wouldn't you insert the Autocad text schedule into a Word document as an OLE object?

 

Hi ReMark, BIGAL, asos....

 

Unfortunately I am not looking for as an OLE object.

I just looking for the same word format output.

 

Sorry for the delayed reply.

 

Any way I didn't fount a solution yet.

 

Thanks for all of your supports.

Edited January 6, 2018 by isutheparambil
add

Use a lisp to convert old table to new table style then export to excel

 

This is link for one

http://cadtips.cadalyst.com/content/alspsol0308-convert-old-table-new-table-format

 

Aand attached another one

 

Hi asos,

 

Thanks for your advise.

Unfortunately I cant operate your LISP (COT).

 

The link also I think that is not helpful for my needs.

 

 

Can you tell me the command which I need to use.. (COT)..

Edited January 6, 2018 by isutheparambil
adding

Hi dears,

 

I am not experienced with the creation of Auto Lisp program.

 

Presently I am looking for a help from your side for exporting an Auto CAD text schedule in to MS Word which includes the frames texts as the CAD file.

I found some lisps from CAD Tutor that will helps me to get the whole texts in to a word file but that was not as the drawing file.

 

I am looking to get a similar shape as the auto CAD file in to Word format with editable text. (I found that can covert as an image file in to MS word...but that cant be edit the text...)

 

I hope you understand my requirement.

 

If someone having any ideas with my inquiry, sharing a solution is much appreciate..and is very helpful for me..

 

Please find the attached reference CAD file with this..

 

Thanks in advance...:)

 

Good Day...

 

I didn't get a proper solution yet for my quiry.

If someone can suggest a solution is much appreciate, and helpful to me..

Download the lisp files as above use appload to load one of them I tried the 1.6 version. Bit of limited success. Once loaded type MTB.

 

Your best answer would be to use tables from now on, filling in the cells as you go.

Download the lisp files as above use appload to load one of them I tried the 1.6 version. Bit of limited success. Once loaded type MTB.

 

Your best answer would be to use tables from now on, filling in the cells as you go.

 

That I tried, Unfortunately not working for me.:(

What is needed is to find a Autocad to Excel table create and copy program, there should be one out there. It would then I expect be very close for it to do the same in Word. Have a google see if you can find one. Then we can probably help.

 

Ignore the Tableexport suggestions.

 

Here is some sample code for creating a table in word https://stackoverflow.com/questions/13366136/creating-tables-in-ms-word-using-vba, if your text and lines is fairly consistent then you could pick a few points and the text, a table in word could be programmed to appear.

 

If its already an Autocad table then its feasible to read each cell and transfer the values. Its a bit of a task but could be done. Much easier than picking random lines and text.

 

Its not something we would ever use so it is low on my priority list but someone else may tackle the task given the link example.

What is needed is to find a Autocad to Excel table create and copy program, there should be one out there. It would then I expect be very close for it to do the same in Word. Have a google see if you can find one. Then we can probably help.

 

Ignore the Tableexport suggestions.

 

Here is some sample code for creating a table in word https://stackoverflow.com/questions/13366136/creating-tables-in-ms-word-using-vba, if your text and lines is fairly consistent then you could pick a few points and the text, a table in word could be programmed to appear.

 

If its already an Autocad table then its feasible to read each cell and transfer the values. Its a bit of a task but could be done. Much easier than picking random lines and text.

 

Its not something we would ever use so it is low on my priority list but someone else may tackle the task given the link example.

 

Hi BIGAL,

 

Thank you for your reply and valuble suggessions.

 

As I mention, I am not much experianced with the creation of LISP.

So if you dontmind I would like to get a full lisp code with details which you posted is much appreciate.

 

Really I cannot get a picure that what I want to do with the post from you.

 

I am really sorry for that.:)

Hi asos,

 

Thanks for your advise.

Unfortunately I cant operate your LISP (COT).

 

The link also I think that is not helpful for my needs.

 

 

Can you tell me the command which I need to use.. (COT)..

 

The command is COT

I found some thing better one,

which one goes to excel.

I need a modification on it with the Word file and with the same columns.

If some one can do a favor on it much appreciate.

 

The code is below....

 

;---------------------------------------------------------------------------------------------------------------------------------

;-------------------------------------- GATHERING TABLE INFORMATION ------------------------------------

;---------------------------------------------------------------------------------------------------------------------------------

(defun tableinfo ( ss / n entlist)

(setq n 0)

(repeat (sslength ss)

(setq entlist (entget (ssname ss n)))

(cond ((member (cdr (assoc 0 entlist)) '("LINE" "POLYLINE"))

(getlinepts entlist)(setq linelist (cons (ssname ss n) linelist)))

((member (cdr (assoc 0 entlist)) '("TEXT" "MTEXT"))

(setq textlist (cons (ssname ss n) textlist)))

((member (cdr (assoc 0 entlist)) '("INSERT"))

(setq blocklist (cons (ssname ss n) blocklist)))

)

(setq n (1+ n))

)

)

;-------------------------- Cell Count/Height/Width Determination ----------------------

;;Gathers x and y positions of lines and polylines in separate lists

;;This is used to determine height/width & # of rows/columns

;;Line info must be gathered first in order to determine

;;cell position of any other gathered information

;---------------------------------------------------------------------------------------

(defun getlinepts (alist / x xpt ypt)

(foreach x alist

(if (member (car x) '(10 11))

(progn

(if (not (vl-position (setq xpt (atof (rtos (car (trans (cdr x) 0 1)) 2 2))) lpxlist))

(setq lpxlist (cons xpt lpxlist)))

(if (not (vl-position (setq ypt (atof (rtos (cadr (trans (cdr x) 0 1)) 2 2))) lpylist))

(setq lpylist (cons ypt lpylist)))

)

)

)

);defun

;---------------------------- Text Info and Cell Position -----------------------------------------------------

;;Determine cell position by insertionpoint of text objects

;;(Using text center is probably more reliable)

;;Create list of indexed lists containing "Order", "Position", "Content", "Height", "Rotation", "StyleName" and "TrueColor"

;;to be used to fill acad table after creation

;;If row and column is already in list, replace with combined string

;--------------------------------------------------------------------------------------------------------------

(defun gettxtinfo (alist / x vlaobj pos rpos cpos expos)

(setq vlaobj (vlax-ename->vla-object txt)

pos (trans (midp vlaobj) 0 1);Midpoint

rpos (1- (vl-position (cadr pos)(vl-sort (cons (cadr pos) lpylist) '>)));Row Position

cpos (1- (vl-position (car pos) (vl-sort (cons (car pos) lpxlist) '

(if (setq expos (vl-position (list rpos cpos) (mapcar '(lambda (x)(cdr (assoc "Position" x))) tinfo)));if cell is taken

(setq tinfo

(replace tinfo expos

(replace

(nth expos tinfo)

2

(cons "Content"

(if (> (cadr pos) (cdr (assoc "Order" (nth expos tinfo))));in order according to y position

(strcat (vla-fieldcode vlaobj) " " (cdr (assoc "Content" (nth expos tinfo))))

(strcat (cdr (assoc "Content" (nth expos tinfo))) " " (vla-fieldcode vlaobj))

)))))

(setq tinfo

(cons

(list

(Cons "Order" (cadr pos))

(Cons "Position" (list rpos cpos));Position

(Cons "Content" (vla-fieldcode vlaobj));Content

(Cons "Height" (vla-get-height vlaobj))

(Cons "Rotation" (vla-get-rotation vlaobj))

(Cons "StyleName" (vla-get-StyleName vlaobj))

(Cons "TrueColor"

(if

(= (vla-get-colorindex (vla-get-truecolor vlaobj)) 256)

(vla-get-truecolor

(vla-item

(vla-get-layers ActDoc)

(vla-get-layer vlaobj)))

(vla-get-truecolor vlaobj)

)

)

)

tinfo)))

;(vla-delete vlaobj)

);defun

;--------------------------- Block Info and Cell Position -------------------------------------------------------

;;Gather block information

;;determine cell position according to insertion point

;;Create an indexed list of lists containing "Position" (row, column), "ObjID",

;;"Attributes" (attribute id, attributetextstring) and "Scale"

;----------------------------------------------------------------------------------------------------------------

(defun getblockinfo (obj / pos rpos cpos bname objid bobj attid)

(if (= (type obj) 'ename)

(setq obj (vlax-ename->vla-object obj))

)

(setq pos (trans (midp obj) 0 1)

rpos (1- (vl-position (cadr pos)(vl-sort (cons (cadr pos) lpylist) '>)));Row Position

cpos (1- (vl-position (car pos) (vl-sort (cons (car pos) lpxlist) '

bname (vla-get-name obj);Block Name

bobj (vla-item (vla-get-blocks ActDoc) bname));Block Vla Object

(vlax-for i bobj ; Foreach item in block

(if (eq (vla-get-objectname i) "AcDbAttributeDefinition");If item is an attribute

(setq attid (append attid (list (vla-get-objectid i))));List Attribute Id

)

)

(setq objid (vla-get-objectid bobj));Block Object Id

(setq binfo

(cons

(list

(Cons "Name" bname)

(Cons "Position" (list rpos cpos))

(Cons "ObjID" objid)

(if (= (vla-get-hasattributes obj) :vlax-true)

(Cons "Attributes"

(reverse

(mapcar

'(lambda (x y) (cons y (vla-get-textstring x)))

(vlax-safearray->list (variant-value (vla-getattributes obj)))

attid

)

)

)

)

(Cons "Scale" (vla-get-xscalefactor obj))

)

binfo))

)

;------------------------------------------------------------------------------------------------------------------------

;-------------------------------------------- REPLACE by Charles Alan Butler---------------------------------------------

;;Cab's replace function used in this routine to avoid overwriting cells and to update cell merge lists

;------------------------------------------------------------------------------------------------------------------------

(defun replace (lst i itm)

(setq i (1+ i))

(mapcar

'(lambda (x)

(if (zerop (setq i (1- i))) itm x)

)

lst

)

)

 

;-------------------------Midpoint-----------------

(defun midp (obj / ObjLl ObjUr)

(vla-GetBoundingBox obj 'ObjLl 'ObjUr)

(mapcar

'(lambda (a b) (/ (+ a b) 2.0))

(safearray-value ObjLl)

(safearray-value ObjUr))

)

 

;-------------------------Q&D Number Accumulation---------------------------

;Used in this routine for polar distances to determine which cells to merge.

;;Recursive function possible. Ask Gile (recursion master) if desired.

(defun acnumlist (nlist / acnlist)

(repeat (length nlist)

(setq acnlist (cons (apply '+ nlist) acnlist)

nlist (reverse (cdr (reverse nlist))))

)

acnlist

)

;--------------------------------------------------------------------------

;; ø Remove_nth ø (Lee Mac) ;;

;; ~ Removes the nth item in a list. ;;

 

(defun Remove_nth (i lst / j)

(setq j -1)

(vl-remove-if

(function

(lambda (x)

(eq i (setq j (1+ j))))) lst))

 

 

;;; private function (fixo)

(defun setcelltext(cells row column value)

(vl-catch-all-apply

'vlax-put-property

(list cells 'Item row column

(vlax-make-variant

(vl-princ-to-string value) ))

)

 

(defun setgridlines(xlapp range);(fixo)

;; select the range:

(vlax-invoke-method range 'Select)

;; get excel application selection property:

(setq range (vlax-get-property xlapp 'Selection))

;; get selection borders

(setq borders (vlax-get-property range 'Borders))

;; iterate through all edges of the selection

(setq cnt 0)

(vlax-for a borders

(setq cnt (1+ cnt))

(vl-catch-all-apply

(function

(lambda ()

(progn

(if (

(progn

(vlax-put-property

a

'LineStyle

(vlax-make-variant 1 3)); single line style

(vlax-put-property

a

'Weight

(vlax-make-variant 2 3)); lines

(vlax-put-property

a

'ColorIndex

(vlax-make-variant 1 5))); color black

 

;; turn off the diagonal lines:

(vlax-put-property a 'LineStyle (vlax-make-variant -4142 3))

)

)

)

)

)

)

(princ)

)

 

(defun conexcelcolumn (/ a b list1);(Q. J. Chen)

(setq a 65)

(setq list1 nil)

(repeat 26

(setq list1 (append

list1

(list (chr a))

)

)

(setq a (1+ a))

)

(setq a 65)

(repeat 26

(setq b 65)

(repeat 26

(setq list1 (append

list1

(list (strcat (chr a) (chr b)))

)

)

(setq b (1+ b))

)

(setq a (1+ a))

)

 

list1

)

 

 

;;; private function

;;; apply props

(defun Orient (xlrange)

(mapcar '(lambda (prop value)

(vl-catch-all-apply

'vlax-put-property

(list xlrange

prop

value

)

)

)

 

(list 'HorizontalAlignment 'VerticalAlignment 'Orientation)

 

(list -4143 -4108 (cvunit (cdr (assoc "Rotation" x)) "radian" "degree"))

)

 

)

 

;---------------------------------------------------------------------------------------------------------------------

;------------------------------------------- CONVERT OLD TABLE ROUTINE -----------------------------------------------

;---------------------------------------------------------------------------------------------------------------------

(defun c:TE (/ ActDoc *error* orerror otcontents textlist colwidths i mlist p0 hmergelist2 vmergelist2

*Space* lpxlist lpylist tinfo cwidths check tstyle spos newstring

tstylelst blocklist rowheights selsets tstylelst2 tstylelst3

kword linelist binfo rheights hmergelist vmergelist ssitem tblobj mb

colorlst colorlst2 th tr ts tc newstyle RowTypes a acapp acsp address adoc atable borders cnt col data_list fname font prop release row

selrange sset txt_list urange value xlapp xlbook xlbooks xlcells xlrange xlsheet xlsheets)

 

(vl-load-com)

(setq oerror *error*)

(defun *error* ( msg )

(princ (strcat "\n\n"))

(mapcar '(lambda (x)(and x (not (vlax-object-released-p x))(vlax-release-object x))) (list ssitem))

(setq *error* oerror)

(setvar 'nomutt 0)

(vla-EndUndoMark ActDoc)

(princ)

);defun *error*

(setq ActDoc (vla-get-activedocument (vlax-get-acad-object))

*Space* (vlax-get-property ActDoc (nth (vla-get-ActiveSpace ActDoc)'("PaperSpace" "ModelSpace"))))

 

(vla-EndUndoMark ActDoc)

(vla-StartUndoMark ActDoc)

 

(setq otcontents (ssget))

(command "._zoom" "object" otcontents "")

(princ "\nSorting Line Info...")

(tableinfo otcontents)

(setq lpxlist (vl-sort lpxlist '))

(princ "\nSorting Text Info...")

(mapcar '(lambda (txt)(gettxtinfo (entget txt))(redraw txt 2)) textlist);;using redraw function To avoid interference

(princ "\nSorting Block Info...")

(mapcar '(lambda (blk)(getblockinfo blk)) blocklist)

(setq colwidths (mapcar '(lambda (x)(- (nth (1+ (vl-position x lpxlist)) lpxlist) x))(reverse (cdr (reverse lpxlist))))

rowheights (mapcar '(lambda (x)(- x (nth (1+ (vl-position x lpylist)) lpylist)))(reverse(cdr (reverse lpylist)))))

(setq p0 (vlax-3d-point (trans (list (car lpxlist) (car lpylist) 0.0) 1 0)));;

(progn

(princ "\nSearching for merged cells...")

(princ)

(setvar 'nomutt 1)

;-----------------------------------Method to determine which cells to merge--------------------------------------------

;Method fails if missed selection is not possible at zoom level.

;To determine which cells to merge, a selection at point is used.

;For each row, a selection is attempted at each vertical line at row's center.

;If no selection is made, the point is at the center or left of horizontally merged cells.

;For each column, a selection is attempted at each horizontal line at column's center.

;If no selection is made, the point is at the center or upper region of vertically merged cells.

;Continuation of merging is determined by a 'consecutive miss'.

;When a 'consecutive miss' is made, max column/row item is replaced by the next column/row.

;-----------------------------------------------------------------------------------------------------------------------

(setq selsets (vla-get-selectionsets ActDoc))

(vl-catch-all-error-p (vl-catch-all-apply 'vla-add (list selsets "InxCheckSet")))

(setq ssitem (vla-item selsets "InxCheckSet")

cwidths (acnumlist colwidths)

rheights (acnumlist rowheights));;col widths & row heights accumulated for polar use

(mapcar '(lambda (pt rh)

(mapcar '(lambda (x)

(vl-catch-all-error-p (vl-catch-all-apply 'vla-clear (list ssitem)))

(vla-selectatpoint ssitem (vlax-3d-point (polar (list (car lpxlist) (+ pt (/ rh 2)) 0.0) 0 x)))

(if (zerop (vla-get-count ssitem))

(if check

(setq hmergelist (replace hmergelist 0 (replace mlist 3 (1+ (vl-position x cwidths)))))

(setq hmergelist

(cons

(setq mlist

(list

(1- (vl-position pt lpylist))

(vl-position x cwidths)

(1- (vl-position pt lpylist))

(1+ (vl-position x cwidths))

)) hmergelist)

check T)

);if

(setq check nil mlist nil)

));lambda

cwidths

);mapcar

);lambda

(member (nth 1 lpylist) lpylist)

rowheights

);mapcar

 

(mapcar '(lambda (pt cw)

(mapcar '(lambda (x)

(vl-catch-all-error-p (vl-catch-all-apply 'vla-clear (list ssitem)))

(vla-selectatpoint ssitem (vlax-3d-point (polar (list (+ pt (/ cw 2)) (car lpylist) 0.0) (* pi 1.5) x)))

(if (zerop (vla-get-count ssitem))

(if check

(setq vmergelist (replace vmergelist 0 (replace mlist 2 (1+ (vl-position x rheights)))))

(setq vmergelist

(cons

(setq mlist

(list

(vl-position x rheights)

(vl-position pt lpxlist)

(1+ (vl-position x rheights))

(vl-position pt lpxlist)

)) vmergelist)

check T)

);if

(setq check nil mlist nil)

));lambda

rheights

);mapcar

);lambda

lpxlist

colwidths

);mapcar

 

(setvar 'nomutt 0)

);progn

(setq hmergelist2 (mapcar '(lambda (b)(list (car b)(cadr b))) hmergelist))

(setq vmergelist2 (mapcar '(lambda (b)(list (car b)(cadr b))) vmergelist))

 

(mapcar

'(lambda (a / expos)

(if

(setq expos (vl-position (list (car a)(cadr a)) vmergelist2))

(setq dmergelist (cons (list (car a)(cadr a)(caddr (nth expos vmergelist))(cadddr a)) dmergelist))))

hmergelist

)

 

(setq xlapp (vlax-get-or-create-object "Excel.Application");(fixo)

xlbooks (vlax-get-property xlapp 'Workbooks)

xlbook (vlax-invoke-method xlbooks 'Add)

xlsheets (vlax-get-property xlbook 'Sheets)

xlsheet (vlax-get-property xlsheets 'Item 1)

xlcells (vlax-get-property xlsheet 'Cells)

)

(vla-put-visible xlapp :vlax-true)

(vlax-invoke-method xlsheet "Activate")

(setq ecol (conexcelcolumn))

;place text

(mapcar '(lambda (x / r c xlrange)

(setq r (1+ (cadr (assoc "Position" x))) c (1+ (caddr (assoc "Position" x))))

(setcelltext xlcells r c (cdr (assoc "Content" x)))

(setq xlRange (vlax-get-property xlsheet "Range" (strcat (nth (1- c) ecol) (itoa r))))

(vlax-invoke-method xlRange "Select")

(setq xlRange (vlax-get-property xlapp "Selection"))

(Orient xlrange)

)

tinfo

)

;place block info

(mapcar '(lambda (x / r c bstring)

(setq r (1+ (cadr (assoc "Position" x))) c (1+ (caddr (assoc "Position" x))))

(setq bstring "")

(if (cdr (assoc "Attributes" x))

(progn

(mapcar

'(lambda (y )

(setq bstring (strcat ":"(cdr y) bstring)))

(cdr (assoc "Attributes" x)))

(setcelltext xlcells r c (strcat "Block:"(cdr (assoc "Name" x)) bstring))

));if

)

binfo

)

;merge cells

 

 

 

(princ "\nProcessing Merge Info")

;-------------------------------------------------------------------------------------------------------------------------

(defun convertlist ( mrglist / newmrglist)

(foreach x mrglist

(setq newmrglist (append newmrglist (list (strcat (nth (cadr x) ecol)(itoa (1+ (car x)))":" (nth (cadddr x) ecol)(itoa (1+ (caddr x)))))))

)

)

 

(defun applylist ( mrglist / xlRange)

(foreach x mrglist

(setq xlRange (vlax-get-property xlsheet "Range" x))

(vlax-invoke-method xlRange "Select")

(setq xlRange (vlax-get-property xlapp "Selection"))

(vlax-put-property xlRange "MergeCells" :vlax-true)

)

)

 

(setq hmergelist2 (convertlist hmergelist)

vmergelist2 (convertlist vmergelist))

(applylist hmergelist2)

(applylist vmergelist2)

(vlax-invoke-method

(vlax-get-property xlsheet 'Columns)

'AutoFit)

;;; align all columns to center

(vlax-put-property

(setq urange(vlax-get-property xlsheet 'UsedRange))

'HorizontalAlignment -4108)

;;; draw grid lines

(setgridlines xlapp urange)

 

(mapcar '(lambda (x);(fixo)

(vl-catch-all-apply

'(lambda ()

(vlax-release-object x)

)

)

)

(list xlcells xlsheet xlsheets xlbook xlbooks xlapp)

)

(setq xlapp nil)

(gc)(gc)(gc)

(mapcar '(lambda (x)(and x (not (vlax-object-released-p x))(vlax-release-object x))) (list ssitem))

(mapcar '(lambda (txt)(redraw txt 1)) textlist);;using redraw function again

(setq *error* oerror)

(vla-EndUndoMark ActDoc)

(princ)

(princ)

);defun

 

:):)

I found some thing better one,

which one goes to excel.

I need a modification on it with the Word file and with the same columns.

If some one can do a favor on it much appreciate.

 

The code is below....

 

:):)

 

 

This is the same which I Attched

 

;; © Juan Villarreal 11.26.2010
;---------------------------------------------------------------------------------------------------------------------------------
;-------------------------------------- GATHERING TABLE INFORMATION ------------------------------------
;---------------------------------------------------------------------------------------------------------------------------------
(defun tableinfo ( ss  / n entlist)
(setq n 0)
(repeat (sslength ss)
...

isutheparambil

 

Why did you remove the Author's header?

 

Please read the Code Posting Guidelines and edit your Code to be included in Code Tags.[NOPARSE]

Your Code Here[/NOPARSE]

=

Your Code Here

isutheparambil

 

Why did you remove the Author's header?

 

Please read the Code Posting Guidelines and edit your Code to be included in Code Tags.[NOPARSE]

Your Code Here[/NOPARSE]

=

Your Code Here

 

Ok

Noted..

 

Unfortunately I received this from one of my friend as it is.

So I don't have any idea about the author.

 

Sorry for the inconvenience.

 

Thanks

Edited January 8, 2018 by isutheparambil
Adding