Topic: (Challenge) Pass variable to VBA

[Keith™]

Ok, I know it has been said before, we all have been told that it is not possible to send variables directly to VBA, but I am not willing to accept this.

The rules are .....
You must use LISP only to send values to VBA and VBA must be able to read the values and display them.
You may not use system variables such as USERxx, files to store and retrieve values or the registry

[SMadsen]

Is the COMMAND function off limits, also?

[JohnK]

Well its not NOT possible, its just a pain in the a55.

But anyways... How about the Drawing itself?  Are you saying that you want only LISP (Is that just Autolisp, VisualLisp or both.)?

*edit: Took out a question cause you answered it. *

[Keith™]

the only things off limits are the registry, reading and writing to files and the USERxx variables. You can use any other system variables and or workarounds. VLisp, plain lisp and/or the command interface all may be used.

The winner will get the admiration programmers around the world....

[JohnK]

Wait a min. I think we need to define how much data and what kind of data needs to be passed. If we are talking just one value of type string there really inst a big problem but if we are talking about "a list of layers" we are gonna have alot more code.  

And, i dont want 'admiration' so what else is there?

[SMadsen]

If COMMAND is allowed then there should be an example here

[Keith™]

Stig, have you tried that example....

[SMadsen]

Yes I have. It's not the greatest coding but the essence of it works.

[Ron Heigh]

can a user create a batch file from autocad then execute it to run the vba routine with the variables initialized and set?

[SMadsen]

Not sure what you mean by passing variables exactly but if it's just passing some values back and forth, it can be done with simple stuff like VBASTMT and SendCommand.

Another example

Code: [Select]

(defun sendValues ()
  (setq val1 (getdist "\nValue 1: ")
        val2 (getdist "\nValue 2: ")
  )
  (command "VBASTMT"
           (strcat "addValues " (rtos val1) ", " (rtos val2))
  )
)

(defun printResult (result)
  (princ result)
  (princ)
)

....

Public Sub addValues(v1 As Double, v2 As Double)
  Dim result As Double
  Dim astr As String
 
  result = v1 + v2
  astr = "(printResult " & result & ") "
  ThisDrawing.SendCommand astr
End Sub