Hey guys
Already there;
I got the whole long VLAX Class Module
I don't like it too much; it seems like a lot just to pass a lousy variable to VBA.
With The VLAX Class Module inserted into your project, you can do this:
Sub VBAToLisp()
Dim Obj As VLAX
Dim strText As String
Set Obj = New VLAX
strText = "Hello!"
Obj.SetLispSymbol "Test", strText
Debug.Print strText
then in ACAD, type !Test
It should return Hello!
If so, then the variable Test was just passed from VBA to ACAD or LISP which is very cool
---------------
On the flip side; I am trying to read in a variable but no luck so far
Here is what I have:
Dim Obj As VLAX
Dim strText As String
strText = "M" 'M was set to Mark in ACAD (setq M "Mark")
Set Obj = New VLAX
Obj.GetLispSymbol , strText
Debug.Print strText
Have a look at this:
I am actually more interested in getting this method to work but still no luck.
Sub VBAToLisp()
Dim VL As Object
Dim strText As String
Set VL = CreateObject("VL.Application.16")
strText = "Hello!"
VL.SetLispSymbol "Test", strText
Debug.Print strText
End Sub
I do not have the methods of The VL.Application Object, so I don't even know if The GetLispSymbol and SetLispSymbol methods are even available in VLISP. The error is saying that object doesn't support this method, so I guess that is my answer.
Anyone? Any Ideas?
Thanks
Mark