Nauman,
I've tried to get there with Visual Lisp without any luck. I can get close,
but there are some differences that prevent me from getting the correct
object in VL.
Did you know that John Janzen is teaching a 4 hour tutorial on VBA for ADT
at AU?
Peter Funk
API Product Manager
Building Industry Group
Autodesk, Inc.
"Nauman M" wrote in message
news:3B6FECFF.55A7E962@email.com...
> "What are you trying to do? why not VBA?"
>
> have not learned it yet... and tried the home work peter had, was
> partially successful on that.
> and most all my stuff is in LISP that needs to use that functionality...
> I can get to the scale via lisp/dictionaries but wanted to learn the
> vlisp activeX functionality as well.
> more so a curiosity thing.
> I guess I will wait for peter to reply on this one.
> maybe he is not going to answer, since he is a VBA pusher
>
> As for Steve's answer, I tried to do that , but there is no property in
> AcadDoc, I tried that laready, rather it is aecdoc property I am after,
>
>
>
>
> Rob Starz wrote:
> >
> > I have not seen a way to get the AecDocument database from VLISP. I
have
> > been in VBA doing this. What are you trying to do? why not VBA?
> >
> > Rob Starz
> > www.stardsign.com
> >
> > "Nauman M" wrote in message
> > news:3B6EF3E6.94B6B2B2@email.com...
> > > Since my q' was not answered, I am posting again.
> > >
> > > since Peter recently talked about this subject, I wanted to askhow
> > > to gain access to the aecArchDatabasePreferences database, so I can
get
> > > the properties in there ;ole DatabaseScale, etc.
> > > using the get-property or put property routines (not sure if I use
> > > those.)
> > > I was asking on how to gain access to the aecdatabase via
> > > vlisp-activeX:, I can access properties of selected objects, but how
to
> > > pull from
> > > database , like the scale, etc. I am looking for the translation from
> > > VBA to VLISP..
> > > of
> > > I am stuck at this point
> > > (setq acadDoc (VLA-GET-ACTIVEDOCUMENT (VLAX-GET-ACAD-OBJECT))
> > > I cannot figure out what the next step would be to get to the
> > > AecArchBaseDatabasePreferences
> > >
> > > Rob vba routine
> > > Public Sub PrefAccess()
> > > Dim doc As New AecArchBaseDocument
> > > Dim Pref As AecArchBaseDatabasePreferences
> > > doc.Init ThisDrawing
> > > Set doc = AecArchBaseApplication.ActiveDocument
> > > Set Pref = doc.Preferences
> > > Pref.DatabaseScale = 192
> > > Pref.OLELaunch = True
> > > End Sub
> > >
> > > thanks
> > > --
> > >
> > > -------------------
> > > Nauman M
> > > CAD Bazaar
> > > Need to easily Navigate to your Custom Content Folders?
> > > Need Autolayering for Dimensions without going through Design Center?
> > > Download the updated ADT Tools for ADT 2 & 3 at
> > > http://www.cadbazaar.com
>
> --
>
> -------------------
> Nauman M
> CAD Bazaar
> Need to easily Navigate to your Custom Content Folders?
> Need Autolayering for Dimensions without going through Design Center?
> Download the updated ADT Tools for ADT 2 & 3 at
> http://www.cadbazaar.com