Help with Abbreviation / cogo point lisp

Help with Abbreviation / cogo point lisp

Bratz2
Collaborator Collaborator
441 Views
8 Replies
Message 1 of 9

Help with Abbreviation / cogo point lisp

Bratz2
Collaborator
Collaborator

I'm looking for some help in trying to get this lisp routine running correctly. I'm trying to get it read a list created in part from abbreviations it migh find within the drawing, but also raw descriptions from cogo points is it finds them and create one piece of mext which can then be manipulated to help create a legend. so for example;

 

This line would be related to a cogo point raw description

'("AVENT" "\t\t\tAIR VENT" nil)

 

and something like this 
'("C.A.T.V." "C.A.T.V.\tCABLE TELEVISION" nil)

 

would actually an abbreviation.

 

The code was provided by someone else within the company, I'm just trying to find a way to get this to work with the ability to add or remove things as necessary. My coding from 1 to 10, might be a 3.

I already have a portion of a lisp routine that was provided by another individual in the forums that retrieves the blocks used by cogo points and places them within the drawing, and it works great.  I was hoping to combine the two of them into a lisp.

Any help would be greatly appreciated, as I think the list in this lsp is to long and this is why it fails after the user picks the insertion point of the text.
Any help would be appreciated.

 

0 Likes
442 Views
8 Replies
Replies (8)
Message 2 of 9

Sea-Haven
Mentor
Mentor

Need a dwg as testing needs to match your "Raw description" etc.

0 Likes
Message 3 of 9

Bratz2
Collaborator
Collaborator

Hopefully this will work

0 Likes
Message 4 of 9

Moshe-A
Mentor
Mentor

@Bratz2  hi,

 

there was a missing '(' char, i add it and now it load

have no 3dmap to test it.

 

works?

 

Moshe

 

0 Likes
Message 5 of 9

Bratz2
Collaborator
Collaborator

Unfortunately it did no fix the issue. the list still does not place the mtext within a drawing. This is the completed list that does not come in when picking the insertion point of the mtext.

0 Likes
Message 6 of 9

Bratz2
Collaborator
Collaborator

Can you show me where you placed it within the code?

0 Likes
Message 7 of 9

Bratz2
Collaborator
Collaborator

This lisp contains all the cogo point raw descriptions already within the list. Ones that do not contain blocks, have been excluded from this list. AS you can see it's a pretty lengthy list, again, I think that might be causing the issue.

0 Likes
Message 8 of 9

Moshe-A
Mentor
Mentor

@Bratz2 

 

in red 😀

 

(setq C3D (strcat "HKEY_LOCAL_MACHINE\\"
(if (vlax-user-product-key)
(vlax-user-product-key)
(vlax-product-key)
);if
);strcat

0 Likes
Message 9 of 9

smallƑish
Advocate
Advocate

can you please check your direct message inbox please? 

0 Likes