Topic: load dll with lisp

[tdaniel14]

I would like to load a dll with lisp then call a sub that is in the dll. 
I've seen examples of how to call a function from a dll but that's not what I need. 
I am not a lisp programmer and have no idea how to do this.

This is what I have in my dll file:

Filename: myvbprogam.dll
Classmodule: myclass
Sub in Classmodule: myclasssub

I would like to run the myclasssub.

Any help would be greatly appreciated!

[MP]

Perhaps see the lisp code in this post for a start, though as a new swimmer I think you're starting in the deep end of the pool.

[tdaniel14]

MP, thanks for your response!  I have tried code similar to this, which calls a function.  What I need it to do is call the sub.  I have not been able to successfully modify the code to accomplish this.

As far as my swimming capabilities, I agree with you.  I do 95% of my programming in VB/VBA.

Thanks

[MP]

See these examples which get / put object (class instance) properties (vlax-get [-property] / vlax-put [-property]) and call object methods (vlax-invoke [-method]) including methods that require arguments.

Regex Example.

Read / Write stream.

Parse CSV string including quoted fields with commas.

... for what it's worth.

[GDF]

I would like to load a dll with lisp then call a sub that is in the dll. 
I've seen examples of how to call a function from a dll but that's not what I need. 
I am not a lisp programmer and have no idea how to do this.

This is what I have in my dll file:

Filename: myvbprogam.dll
Classmodule: myclass
Sub in Classmodule: myclasssub

I would like to run the myclasssub.

Any help would be greatly appreciated!

If you name the dll file the same as a loaded menu file, it will be automatically loaded. This is what I do for my compiled bitmaps for my toolbars.

Gary

[MP]

Another run at trying to help ...


Assuming MyVbProgam is a registered ActiveX dll

AND

the project name is the same as the dll name

AND

the sub MyClassSub takes no arguments ...


(vlax-invoke (vlax-create-object "MyVbProgam.MyClass") 'MyClassSub)


[ Omitting formal instancing and cleanup (vlax-release-object) etc ]

[tdaniel14]

Thanks for the help guys.
I have tried different things and cannot get this to work for me.  :realmad:
If anyone happens to run across anything, please let me know!
I'll be banging my head against the wall trying to get this to work.

[MP]

Is the dll registered?

Do you have (vl-load-com) at the beginning of your code or in your start-up lisp library?

[tdaniel14]

dll is registered and I have (vl-load-com) at the beginning of my code

[MP]

Time to ante up your code.

[tdaniel14]

(defun c:rrrrr (/ acadapp vbapp)
(vl-load-com)
(setq acadapp (vlax-get-acad-object))     
(setq vbapp (vla-GetInterfaceObject acadapp "MyVbProgram.MyClass")) 
(vlax-invoke vbapp 'MyClassSub)
)


vb6 Activex dll is the type of dll i'm using.

[MP]

You're sure the dll is registered AND the project name is "MyVbProgram" AND the (public) class name is "MyClass" AND the (public) sub is named "MyClassSub"?

Assuming "MyVbProgram.MyClass" is accurate what does AutoCAD return on --

Code: [Select]

(setq myObject
    (vla-GetInterfaceObject
        (vlax-get-acad-object)
        "MyVbProgram.MyClass"
    )
)
or

Code: [Select]

(setq myObject
    (vlax-create-object
        "MyVbProgram.MyClass"
    )
)
?