Please I need this to work, any help will be very appreciate it.
What I am missing in this code?, please any help will be appreciate it.
What I am trying to accomplish, is to update information from a workbook or spreadsheet that is linked to our drawing's template by selecting the informatin from that workbook using the mouse insted of linking the info manually to a different cell on the spreadsheet.
Right now we create a new drawing from a template that it is linked to a generic cell in our spreasheet template, when new drawing is created, we need to link to a new cell from teh spreashet and we manually linked the info to a different cell on a spreasheet, and that is time cosuming.
E.g. drawing number, Date, Project Number etc, these atributtes changes as drawings are created, then the user must go to the Datalink within Autocad and poinitng to the right cell within the workbook.
does this makes sense?
File Location: C:\Work Project\Data Table Link\
File Name: Basemap Link.xlsx
Sheet (Tab) Name: Revison (in where the information is to be linked onto the active drawing)
;; local defun
(defun RefSelection
(/ *error* addr c2 c2 Excelapp Sel Sht r1 r2 Rng Vl Wbk
) msg
'("console break"
"Function cancelled"
"quit / exit abort"
)
)
)
)
)
)
)
)
)
)
)
(list Sel Sht Wbk ExcelApp
) )
)
(alert "Excel WorkBook Must Be Open Before!") (*error* nil)
)
)
'Inputbox
"Select a Range: "
"Range Selection Example"
nil
nil
nil
nil
nil
)))))))
":"
)
)
)
(alert "Select Excel Range Before!") (*error* nil)
)
)
(*error* nil)
)
;;Usage:
(RefSelection)
)
(princ "\nType Xss in the command line")
