topic ObjectARX: DWGPROPS (SOLVED) in Visual LISP, AutoLISP and General Customization Forum

ObjectARX: DWGPROPS

Anonymous — Wed, 23 Aug 2000 04:09:36 GMT

Manipulating the drawing properties is simple enough in ARX but I've
discovered that unless the DWGPROPS command has been run at least once, you
cannot post any properties to the drawing. After much searching, I have not
found a way to initialize the drawing properties. Any ideas?

--
Attitudes are contagious. Is yours worth catching?
http://www.acadx.com

Re: ObjectARX: DWGPROPS

Anonymous — Wed, 23 Aug 2000 06:04:33 GMT

Frank:

> After much searching, I have not found a way to initialize the
> drawing properties. Any ideas?

Have you tried acrxLoadApp? 🙂
--
Owen Wengerd
President, ManuSoft ==> http://www.manusoft.com
VP Americas, CADLock, Inc. ==> http://www.cadlock.com

Re:

Anonymous — Wed, 23 Aug 2000 13:43:53 GMT

It seems a bit trickier than that. Unless the DWGPROPS dictionary already
exists, any attempt to update the summary info crashes AutoCAD even with
ACSIOBJ.ARX loaded. I thought about creating the dictionary myself but I
don't know how to attach an xrecord directly to the dictionary itself rather
than as an entry.

--
Attitudes are contagious. Is yours worth catching?
http://www.acadx.com

"Owen Wengerd" wrote in message
news:D387C6EBAFB879F07B0C783226D8BE69@in.WebX.SaUCah8kaAW...
> Have you tried acrxLoadApp? 🙂

Re:

Anonymous — Wed, 23 Aug 2000 14:30:14 GMT

Hi Frank,

I had the same problem with props that had never been used with a VBA
program. I cheated and used "sendcommand" to load some lisp to create it if
VBA returned an error. Its posted below if you don't mind hacking it like I
did.

(setq xlist
(list
'(0 . "XRECORD")
'(100 . "AcDbXrecord")
'(1 . "DWGPROPS COOKIE")
(cons 2 "IPETitle")
(cons 3 "IPESubject")
(cons 4 "IPEAuthor")
(cons 6 "IPEComments")
(cons 7 "IPEKeywords")
(cons 8 (getvar "loginname"))
(cons 9 "IPERevNo")
(cons 300 "IPE Custom 1=Ftype")
(cons 301 "IPE Custom 2=A")
(cons 302 "IPE Custom 3=B")
(cons 303 "IPE Custom 4=C")
(cons 304 "IPE Custom 5=D")
(cons 305 "IPE Custom 6=E")
(cons 306 "IPE Custom 7=F")
(cons 307 "IPE Custom 8=G")
(cons 308 "IPE Custom 9=H")
(cons 309 "IPE Custom 10=J")
(cons 40 (getvar "TDINDWG"))
(cons 41 (getvar "TDCREATE"))
(cons 42 (getvar "TDUPDATE"))
)
)

(dictadd (namedobjdict) "DWGPROPS" (entmakex xlist))
(setq xlist nil)

Gary

Re:

Anonymous — Wed, 23 Aug 2000 15:42:57 GMT

I came across a post from Frank Whaley that explained the same thing so I
tried to translate it to ARX. I'm having limited success. For some reason,
the call the acdbDictAdd always fails. To make things even more interesting,
ERRNO gets set to 1083. The highest value listed in ol_errno.h is 105. Go
figure. Here's the code I'm using (I'm usre the word wrapping will be simply
hideous). Lots of code omitted for brevity:

if (pDict->getAt("DWGPROPS", (AcDbObject*&) pDict, AcDb::kForRead) ==
Acad::eKeyNotFound)
{
struct resbuf* pRbList = NULL;
struct resbuf* pRbEdit = NULL;
struct resbuf* pRbCreated = NULL;
struct resbuf* pRbSaved = NULL;
ads_name xname, maindict;
char* dictName = "DWGPROPS";

pRbEdit = acutNewRb(AcDb::kDxfReal);
pRbCreated = acutNewRb(AcDb::kDxfReal);
pRbSaved = acutNewRb(AcDb::kDxfReal);

if (acdbGetAdsName(maindict, pDict->objectId()) != Acad::eOk)
return E_FAIL;

acedGetVar("TDINDWG", pRbEdit);
acedGetVar("TDCREATE", pRbCreated);
acedGetVar("TDUPDATE", pRbSaved);
pRbList = acutBuildList(RTDXF0 , "XRECORD",
100, "AcDbXrecord",
1, "DWGPROPS COOKIE",
2, "",
3, "",
4, "",
5, "",
6, "",
7, "",
8, "",
9, "",
300, "=",
301, "=",
302, "=",
303, "=",
304, "=",
305, "=",
306, "=",
307, "=",
308, "=",
309, "=",
40, pRbEdit->resval.rreal,
41, pRbCreated->resval.rreal,
42, pRbSaved->resval.rreal,
RTNONE);

if (acdbEntMakeX(pRbList, xname) != RTNORM)
return E_FAIL
// This fails every time.
if (acdbDictAdd(maindict, dictName, xname) != RTNORM)
return E_FAIL;
}

--
Attitudes are contagious. Is yours worth catching?
http://www.acadx.com

"Gary McMaster" wrote in message
news:7948AFB114BD198A7EB28F5B98798322@in.WebX.SaUCah8kaAW...
> Hi Frank,
>
> I had the same problem with props that had never been used with a VBA
> program. I cheated and used "sendcommand" to load some lisp to create it
if
> VBA returned an error. Its posted below if you don't mind hacking it like
I
> did.
>
> (setq xlist
> (list
> '(0 . "XRECORD")
> '(100 . "AcDbXrecord")
> '(1 . "DWGPROPS COOKIE")
> (cons 2 "IPETitle")
> (cons 3 "IPESubject")
> (cons 4 "IPEAuthor")
> (cons 6 "IPEComments")
> (cons 7 "IPEKeywords")
> (cons 8 (getvar "loginname"))
> (cons 9 "IPERevNo")
> (cons 300 "IPE Custom 1=Ftype")
> (cons 301 "IPE Custom 2=A")
> (cons 302 "IPE Custom 3=B")
> (cons 303 "IPE Custom 4=C")
> (cons 304 "IPE Custom 5=D")
> (cons 305 "IPE Custom 6=E")
> (cons 306 "IPE Custom 7=F")
> (cons 307 "IPE Custom 8=G")
> (cons 308 "IPE Custom 9=H")
> (cons 309 "IPE Custom 10=J")
> (cons 40 (getvar "TDINDWG"))
> (cons 41 (getvar "TDCREATE"))
> (cons 42 (getvar "TDUPDATE"))
> )
> )
>
> (dictadd (namedobjdict) "DWGPROPS" (entmakex xlist))
> (setq xlist nil)
>
> Gary
>

Re:

Anonymous — Wed, 23 Aug 2000 16:58:52 GMT

That stuff came to me from Frank via Kent Keller. I thought I was doing
something wrong when I was unable to create the props from VBA. I hate using
"sendcommand" but its the only thing I could get to work.

Gary

Re:

Anonymous — Wed, 23 Aug 2000 18:44:02 GMT

Ok, I give up. After spotting some flaws in my original code, I went back
and performed what I believe to be an exact LISP to ARX translation of a
post from Frank Whaley. I simply cannot create the DWGPROPS dictionary.
Here's the code. Can anyone tell where I'm going wrong? acdbDictAdd fails
every time and sets ERRNO to 1083.

AcApDocument* pDoc = NULL;
pDoc = acDocManager->mdiActiveDocument();
AcDbObjectPointer
pDict(pDoc->database()->namedObjectsDictionaryId(), AcDb::kForRead);

if (pDict.openStatus() != Acad::eOk)
return E_FAIL;

struct resbuf* pDwgProps = NULL;
ads_name namedObj;

acdbNamedObjDict(namedObj);
pDwgProps = acdbDictSearch(namedObj, "DWGPROPS", 0);

if (pDwgProps == NULL)
{
if (acDocManager->lockDocument(pDoc, AcAp::kAutoWrite) != Acad::eOk)
return E_FAIL;
pDict->upgradeOpen();

struct resbuf* pRbEdit = NULL;
struct resbuf* pRbCreated = NULL;
struct resbuf* pRbSaved = NULL;
ads_name dictName;

pRbEdit = acutNewRb(AcDb::kDxfReal);
pRbCreated = acutNewRb(AcDb::kDxfReal);
pRbSaved = acutNewRb(AcDb::kDxfReal);
acedGetVar("TDINDWG", pRbEdit);
acedGetVar("TDCREATE", pRbCreated);
acedGetVar("TDUPDATE", pRbSaved);
pDwgProps = acutBuildList(RTDXF0 , "XRECORD",
100, "AcDbXrecord",
1, "DWGPROPS COOKIE",
2, "",
3, "",
4, "",
5, "",
6, "",
7, "",
8, "",
9, "",
300, "=",
301, "=",
302, "=",
303, "=",
304, "=",
305, "=",
306, "=",
307, "=",
308, "=",
309, "=",
40, pRbEdit->resval.rreal,
41, pRbCreated->resval.rreal,
42, pRbSaved->resval.rreal,
1, "",
RTNONE);

acdbEntMakeX(pDwgProps, dictName);
acutRelRb(pDwgProps);
acutRelRb(pRbEdit);
acutRelRb(pRbCreated);
acutRelRb(pRbSaved);

if (acdbDictAdd(namedObj, "DWGPROPS", dictName) != RTNORM)
return E_FAIL;

--
Attitudes are contagious. Is yours worth catching?
http://www.acadx.com

Re:

Anonymous — Wed, 23 Aug 2000 20:11:48 GMT

Got it! Among other things (like my including a bogus group code 5), I've
discovered that acdbDictAdd fails if the object is already open. The
solution is to simply close the namedObjectDictionary pointer before calling
acdbDictAdd.

--
Attitudes are contagious. Is yours worth catching?
http://www.acadx.com

"Frank Oquendo" wrote in message
news:96E4F296DFF80CF7626F599C3525C601@in.WebX.SaUCah8kaAW...
> Ok, I give up. After spotting some flaws in my original code, I went back
> and performed what I believe to be an exact LISP to ARX translation of a
> post from Frank Whaley. I simply cannot create the DWGPROPS dictionary.
> Here's the code. Can anyone tell where I'm going wrong? acdbDictAdd fails
> every time and sets ERRNO to 1083.

ObjectARX: DWGPROPS (SOLVED)

Anonymous — Thu, 24 Aug 2000 02:20:29 GMT

For anyone still reading this thread, the solution to manipulating the
DWGPROPS dictionary is to be sure that ACSIOBJ.ARX is loaded *before*
calling acdbGetSummaryInfo. That's it. Nice of Autodesk of to leave that
little tidbit out of the documentation, huh?

--
Attitudes are contagious. Is yours worth catching?
http://www.acadx.com

Frank Oquendo wrote in message
news:AA2AEF6A2B01CD4EE32223F1A9013177@in.WebX.SaUCah8kaAW...
> Manipulating the drawing properties is simple enough in ARX but I've
> discovered that unless the DWGPROPS command has been run at least once,
you
> cannot post any properties to the drawing. After much searching, I have
not
> found a way to initialize the drawing properties. Any ideas?

ObjectARX: DWGPROPS (SOLVED)

Anonymous — Thu, 24 Aug 2000 11:28:53 GMT

Frank,

You left me in the dust with the arx stuff. Do your findings indicate that
it should be possible to perform the initialization from VBA?

Gary

ObjectARX: DWGPROPS (SOLVED)

Anonymous — Thu, 24 Aug 2000 13:58:12 GMT

I honestly don't know. It appears that ACSIOBJ.ARX's only job is to support
the acdbDatabaseSummaryInfo object. Since this object doesn't appear to be
available to VB, I don't think loading it would help. The real puzzle is how
do you attach an xrecord to, and read it directly from, a Dictionary object
in VB. All the methods are aimed at manipulating entries rather than the
dictionary itself.

--
Attitudes are contagious. Is yours worth catching?
http://www.acadx.com

"Gary McMaster" wrote in message
news:4EE39C1719AA679C6A8E08B868A58736@in.WebX.SaUCah8kaAW...
> Frank,
>
> You left me in the dust with the arx stuff. Do your findings indicate that
> it should be possible to perform the initialization from VBA?
>
> Gary
>

ObjectARX: DWGPROPS (SOLVED)

Anonymous — Thu, 24 Aug 2000 14:18:22 GMT

Thanks Frank. I have it working, but don't like the way I had to do it.

Gary

Re:

Anonymous — Fri, 25 Aug 2000 16:43:06 GMT

Frank Oquendo wrote:

> I came across a post from Frank Whaley that explained the same thing so I
> tried to translate it to ARX.

In ARX, I do it a little differently:

// build resbuf chain
resbuf *rb = acutBuildList(
1, "DWGPROPS COOKIE",
...
RTNONE);
if ( rb == NULL )
return false;

// create Xrecord and attach resbuf chain
AcDbXrecord *props = new AcDbXrecord;
bool isOk;
if ( props != NULL )
isOk = EOK(props->setFromRbChain(*rb));
acutRelRb(rb);

// quit now if error
if ( !isOk )
{
delete props;
return false;
}

// add to Named Object Dictionary
AcDbDictionary *nod;
AcDbObjectId id;

isOk = false;
if ( EOK(acdbCurDwg()->getNamedObjectsDictionary(nod, AcDb::kForWrite)) )
{
if ( EOK(nod->setAt("DWGPROPS", props, id)) )
isOk = true;
nod->close();
}

props->close();
return isOk;

The 'EOK()' function used above looks like:

inline int EOK(Acad::ErrorStatus arg)
{ return arg == Acad::eOk; }
--
Frank Whaley
Autodesk, Inc.

Re:

Anonymous — Fri, 25 Aug 2000 16:43:06 GMT

Actually, it turns out that none of that is necessary so long as ACSIOBJ.ARX
is loaded prior to calling acdbGetSummaryInfo. The ensuing call to
acdbPutSummaryInfo will create the dictionary if it doesn't exist. In fact,
if you use the AcDbDatabaseSummaryInfo object at all, loading acsiobj is not
optional as attempting to update the drawing properties will crash AutoCAD
without it.

Of course, if I ever decide to handle the drawing properties manually, you
can bet I'll be referring to this post. Thanks for the input.

--
Attitudes are contagious. Is yours worth catching?
http://www.acadx.com

"Frank Whaley" wrote in message
news:39A6A21A.F601BB70@autodesk.com...
> Frank Oquendo wrote:
>
> > I came across a post from Frank Whaley that explained the same thing so
I
> > tried to translate it to ARX.
>
> In ARX, I do it a little differently:
>
> // build resbuf chain
> resbuf *rb = acutBuildList(
> 1, "DWGPROPS COOKIE",
> ...
> RTNONE);
> if ( rb == NULL )
> return false;
>
> // create Xrecord and attach resbuf chain
> AcDbXrecord *props = new AcDbXrecord;
> bool isOk;
> if ( props != NULL )
> isOk = EOK(props->setFromRbChain(*rb));
> acutRelRb(rb);
>
> // quit now if error
> if ( !isOk )
> {
> delete props;
> return false;
> }
>
> // add to Named Object Dictionary
> AcDbDictionary *nod;
> AcDbObjectId id;
>
> isOk = false;
> if ( EOK(acdbCurDwg()->getNamedObjectsDictionary(nod,
AcDb::kForWrite)) )
> {
> if ( EOK(nod->setAt("DWGPROPS", props, id)) )
> isOk = true;
> nod->close();
> }
>
> props->close();
> return isOk;
>
> The 'EOK()' function used above looks like:
>
> inline int EOK(Acad::ErrorStatus arg)
> { return arg == Acad::eOk; }
> --
> Frank Whaley
> Autodesk, Inc.
>