Topic: error bad argument type vla-object

[diego65]

I have the following error when I try to run the following lisp.
Please help...
thank you...
__________________________________________________________________________________________

Code - Auto/Visual Lisp: [Select]

1. ;; local defun
2. (defun RefSelection (/ *error* Excelapp Sel Sht Rng vl Wbk)
3.   (vl-load-com)
4.   (defun *error*  (msg)
5.     (if
6.       (vl-position
7.         msg
8.         '("console break"
9.           "Function cancelled"
10.           "quit / exit abort"
11.           )
12.         )
13.        (princ "Error!")
14.        (princ msg)
15.        )
16.             (vl-catch-all-apply
17.         'vlax-invoke-method
18.         (list Wbk "Close")
19.       )
20.  
21.         (vl-catch-all-apply
22.           'vlax-invoke-method
23.           (list ExcelApp "Quit")
24.         )
25.  
26.   (mapcar
27.     (function (lambda (x)(vl-catch-all-apply(function (lambda()
28.                 (if (not (vlax-object-released-p x))
29.                   (progn
30.                   (vlax-release-object x)
31.                   (setq x nil))
32.                 )
33.               )
34.     )
35.                            )
36.                 )
37.               )
38.     (list Sel Sht Wbk ExcelApp)
39.   )  
40.   (gc)
41.   (gc)
42.     (princ)
43.     )
44.  
45.  
46. (setq ExcelApp (vl-catch-all-apply
47.                (function (lambda ()(vlax-get-or-create-object "Excel.Application")))))
48.  
49. (if (vl-catch-all-error-p
50.       (setq Wbk
51.              (vl-catch-all-apply
52.                (function (lambda ()
53.                            (vlax-get-property ExcelApp "ActiveWorkBook"))))))
54.   (progn
55.     (alert "Excel WorkBook Must Be Open Before!")
56.     (exit)
57.     (*error* nil)
58.     (princ)
59.     )
60.   )
61. (setq Sht
62.        (vl-catch-all-apply
63.          (function (lambda ()
64.                      (vlax-get-property ExcelApp "ActiveSheet")))))
65.  
66. (vlax-put-property ExcelApp 'visible :vlax-true)
67.  
68. (vlax-put-property ExcelApp 'ScreenUpdating :vlax-true)
69.  
70. (vlax-put-property ExcelApp 'DisplayAlerts :vlax-false)
71.  
72. (if (not (vl-catch-all-error-p
73.            (setq Rng
74.                   (vl-catch-all-apply
75.                     (function (lambda ()
76.                                 (vlax-variant-value
77.                                   (vlax-invoke-method
78.                                     (vlax-get-property Wbk 'Application)
79.                                     'Inputbox
80.                                     "Select a single cell with mouse to be bolded."
81.                                     "Range Selection"
82.                                     nil
83.                                     nil
84.                                     nil
85.                                     nil
86.                                     nil
87.                                     8))))))))
88.   (progn
89.     (vlax-put-property ExcelApp 'DisplayAlerts :vlax-true)
90.  
91.  
92.     (vlax-invoke Rng 'Select)
93.     )
94.   )
95.  
96. (if Rng
97.  
98.   (setq vl  (vlax-variant-value
99.                          (vlax-get-property Rng 'value)))
100.  (setq vl nil))
101.  
102. (*error* nil)
103.  
104.   vl
105. )
106.  
107.  
108. (defun C:Xss (/ ahha)
109.  
110. (setq ahha (RefSelection))
111.   (alert (strcat "Your block name is: " ahha))
112.  
113.   ;; ---    rest your code to insert block here  ---  :
114.  
115.  
116. (princ)
117. )
118. (princ "\nType Xss in the command line")
119. (princ)
120. (or (vl-load-com)(princ))

[ronjonp]

What are you trying to accomplish? From a quick check ...
WBK does not get set .. in turn bombs the rest of the code

Code: [Select]

(setq wbk (vl-catch-all-apply
    (function (lambda () (vlax-get-property excelapp "ActiveWorkBook")))
  )
)

[diego65]

Hi Gator,
what we are trying to accomplish, is to update info from a workbook or spreadsheet that is linked to our drawing template by selecting the informatin from that workbook using the mouse insted of linking info manually.
E.g. drawing numbers changes as we created a new drawing, then the user must go to the Datalink within Autocad and poinitng to the right cell within the workbook.

does this makes sense?

[ronjonp]

It does make sense but I do not have the time to help you right now .... real work beckons 

[diego65]

Thank you Gator,
If you ever have the chance to help us out, please we will appreciate it...

thank you...