Visual LISP, AutoLISP and General Customization

Visual LISP, AutoLISP and General Customization

Reply
New Member
CADAPLUS
Posts: 2
Registered: ‎03-25-2009
Message 1 of 2 (113 Views)

DVB sample

113 Views, 1 Replies
03-25-2009 08:02 AM
Hi I'm trying to do a simple dialog box with VBA

(defun c:sample ()
(vl-load-com)
(vl-vbaload (findfile "test.dvb"))
;(vl-vbarun "something_here")
(princ)
)

How should I modify my dvb file?
Thanks for help
*Laurie
Message 2 of 2 (113 Views)

Re: DVB sample

03-25-2009 01:46 PM in reply to: CADAPLUS
Hi cadaplus,


Without knowing what is in your DVB file it's a bit hard to guess how
you should modify it.

However, first you should modify your lisp so that after the DVB file is
fixed the lisp can use it.


(defun c:sample ()
(vl-load-com)
(vl-vbaload (findfile "test.dvb")) ; The "findfile" is superfluous
; as the vl-vbaload will find the
; file if findfile is capable of
; finding it
(vl-vbarun "something_here")
(princ)
)


A better lisp function is:

(defun c:sample ()
(vl-load-com)
(If (findfile "test.dvb")
(vl-vbarun "test.dvb!something_here")
(Alert "Test.dvb not found")
)
(princ)
)


Assuming your DVB file has a form with the name "Form1" then the
"something_here" has to look like:


Sub something_here ()
Form1.Show
End Sub



Regards,


Laurie Comerford


cadaplus wrote:
> Hi I'm trying to do a simple dialog box with VBA (defun c:sample ()
> (vl-load-com) (vl-vbaload (findfile "test.dvb")) ;(vl-vbarun
> "something_here") (princ) ) How should I modify my dvb file? Thanks for
> help
Post to the Community

Have questions about Autodesk products? Ask the community.

New Post
Announcements
Do you have 60 seconds to spare? The Autodesk Community Team is revamping our site ranking system and we want your feedback! Please click here to launch the 5 question survey. As always your input is greatly appreciated.