Jump to content

Dynamic Information Tool


Lee Mac

Recommended Posts

Just made a LISP that will provide the user with on-the-fly information about any object he/she moves the cursor over.

 

This is the first version, so let me know of your comments and criticisms and any suggestions you want to post.

 

Thanks

 

Lee

 

 

THE LATEST VERSION OF THIS PROGRAM CAN BE FOUND

HERE

Link to comment
Share on other sites

  • Replies 93
  • Created
  • Last Reply

Top Posters In This Topic

  • Lee Mac

    47

  • The Buzzard

    23

  • NBC

    6

  • alanjt

    4

Top Posters In This Topic

Posted Images

How do you fit all this knowledge in your head?

Does your brain ever hurt?

 

That's amazing Lee.

One of these days I have to take another look at visual lisp.

It looks scary, But does so much more.

Link to comment
Share on other sites

How do you fit all this knowledge in your head?

Does your brain ever hurt?

 

Haha, yes sometimes :D

 

 

That's amazing Lee.

One of these days I have to take another look at visual lisp.

It looks scary, But does so much more.

 

 

Thanks Buzzard :)

 

To be honest, the bulk of this doesn't use too much VL - the program runs on the "grread" function, and the VL is just used to identify entity intersections :)

Link to comment
Share on other sites

Lee, can I ask if it does anything that QuickProperties doesn't do ?

 

QuickProperties? I assume you are talking about the properties tab? Nah, this doesn't really give you much more information, but I just thought it was nice as a novelty and useful as it gets the crucial information about an object pretty quickly :)

 

Plus, it can be easily expanded to have more capabilities if necessary :)

Link to comment
Share on other sites

A quick update - Now allows for quick editing with any text or attributes :)

 

Oh, and you can click on a viewport to lock it :P

 

Lee

 

 ; **=-=-=-=-=-=-=-=-=-=-=- DINFO.lsp =-=-=-=-=-=-=-=-=-=-=-**
 ; **                   by Lee McDonnell                    **
 ; **                 Copyright © May 2009                  **
 ; **                                                       **
 ; **         Contact at: CADTutor.net, TheSwamp.org        **
 ; **                                                       **
 ; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=**
 ; **                                                       **
 ; **                DYNAMIC INFORMATION TOOL               **
 ; **                                                       **
 ; **  FUNCTION DESCRIPTION:                                **
 ; **                                                       **
 ; **  Information about an object is displayed upon the    **
 ; **  user moving the cursor over the object.              **
 ; **                                                       **
 ; **  FUNCTION SYNTAX:  DINFO                              **
 ; **                                                       **
 ; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=**
 ; **                                                       **
 ; **  Click or Hit Enter to Exit Program                   **
 ; **  Press "+" to Increase Cursor Pick Box                **
 ; **  Press "-" to Decrease Cursor Pick Box                **
 ; **                                                       **
 ; **  Click on Text or Attributes to Edit them.            **
 ; **  Click on a Viewport to Lock it.                      **
 ; **                                                       **
 ; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=**
 ; **                                                       **
 ; **  ADDITIONAL FUNCTIONS:                                **
 ; **                                                       **
 ; **  CurMod: Creates Custom Cursor Object                 **
 ; **  cInter: Checks for Intersection & Creates Info Str   **
 ; **  cErase: Erase Information Box and Cursor Object      **
 ; **  blkinfotxt: Creates Information Box                  **
 ; **  dxf: Returns DXF code value                          **
 ; **  verchk: Checks AutoCAD Version                       **
 ; **                                                       **
 ; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=**
 ; **                                                       **
 ; **  PLATFORM RESTRICTIONS:                               **
 ; **                                                       **
 ; **  For use on AutoCAD 2000 onwards.                     **
 ; **  Only tested in AutoCAD 2004.                         **
 ; **                                                       **
 ; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=**
 ; **                                                       **
 ; **  WITH THANKS TO:                                      **
 ; **                                                       **
 ; **  Andrea Andreetti ~ for providing me with             **
 ; **                     the inspiration to create this.   **
 ; **                                                       **
 ; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=**
 ; **                                                       **
 ; **  VERSION:                                             **
 ; **                                                       **
 ; **    1.0  First Release                  ~  09.05.2009  **
 ; **    1.1  ProgEdition Added (Commented)  ~  09.05.2009  **
 ; **    2.0  Text and Attribute Edit Added  ~  09.05.2009  **
 ; **                                                       **
 ; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=**

Link to comment
Share on other sites

QuickProperties? I assume you are talking about the properties tab? Nah, this doesn't really give you much more information, but I just thought it was nice as a novelty and useful as it gets the crucial information about an object pretty quickly :)

 

Plus, it can be easily expanded to have more capabilities if necessary :)

 

Actually, NBC was referrring to the new QuickProperties in Autocad2010. If you click on an object you get a little condensed properties panel displaying all the information about the object. The screenshot below shows a polyline I selected and the QuickProperties panel displayed.

 

This option got really annoying really fast, so I disabled it. Every time you select something you get this big panel blocking your view. It's really not very practical.

QP.jpg

Link to comment
Share on other sites

Looks like AutoDesk beat me to it :glare:

 

Well, I suppose this is useful for those of use who can't afford 2010 :P

 

Cheers Rod,

 

Lee

Link to comment
Share on other sites

Lee,

 

Just tried it on an attribute and I cannot get it to do anything.

What am I doing wrong?

Link to comment
Share on other sites

I place the cursor over a block with attributes and the cursor does not change no matter what I do.

Link to comment
Share on other sites

That is really weird.

 

That is the first block I have found that does that.

 

Its as if the vla-intersect with does not "see" it. :huh:

Link to comment
Share on other sites

Well I do not think I invented a block thats Lee Mac proof so it must be something simple at least for you.

Link to comment
Share on other sites

Well I do not think I invented a block thats Lee Mac proof so it must be something simple at least for you.

 

Well, I've tried a few things, but I really can't see what is so different about your block to the ones that I have been making... :P

Link to comment
Share on other sites

Anyway, heres another update for you all to play around with :P

 

I'm going to bed :roll:

 

 ; **=-=-=-=-=-=-=-=-=-=-=- DINFO.lsp =-=-=-=-=-=-=-=-=-=-=-**
 ; **                   by Lee McDonnell                    **
 ; **                 Copyright © May 2009                  **
 ; **                                                       **
 ; **         Contact at: CADTutor.net, TheSwamp.org        **
 ; **                                                       **
 ; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=**
 ; **                                                       **
 ; **                DYNAMIC INFORMATION TOOL               **
 ; **                                                       **
 ; **  FUNCTION DESCRIPTION:                                **
 ; **                                                       **
 ; **  Information about an object is displayed upon the    **
 ; **  user moving the cursor over the object.              **
 ; **                                                       **
 ; **  FUNCTION SYNTAX:  DINFO                              **
 ; **                                                       **
 ; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=**
 ; **                                                       **
 ; **  Click or Hit Enter to Exit Program                   **
 ; **  Press "+" to Increase Cursor Pick Box                **
 ; **  Press "-" to Decrease Cursor Pick Box                **
 ; **                                                       **
 ; **  Click on Text or Attributes to Edit them.            **
 ; **  Click on a Viewport to Lock it.                      **
 ; **  Click on Drawing Objects to Edit them.               **
 ; **                                                       **
 ; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=**
 ; **                                                       **
 ; **  ADDITIONAL FUNCTIONS:                                **
 ; **                                                       **
 ; **  CurMod: Creates Custom Cursor Object                 **
 ; **  cInter: Checks for Intersection & Creates Info Str   **
 ; **  cErase: Erase Information Box and Cursor Object      **
 ; **  blkinfotxt: Creates Information Box                  **
 ; **  arcmake:  Creates an Arc Object                      **
 ; **  dxf: Returns DXF code value                          **
 ; **  verchk: Checks AutoCAD Version                       **
 ; **  round: Rounds a Number to Nearest Whole Number       **
 ; **                                                       **
 ; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=**
 ; **                                                       **
 ; **  PLATFORM RESTRICTIONS:                               **
 ; **                                                       **
 ; **  For use on AutoCAD 2000 onwards.                     **
 ; **  Only tested in AutoCAD 2004.                         **
 ; **                                                       **
 ; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=**
 ; **                                                       **
 ; **  WITH THANKS TO:                                      **
 ; **                                                       **
 ; **  Andrea Andreetti ~ for providing me with             **
 ; **                     the inspiration to create this.   **
 ; **                                                       **
 ; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=**
 ; **                                                       **
 ; **  VERSION:                                             **
 ; **                                                       **
 ; **    1.0  First Release                  ~  09.05.2009  **
 ; **    1.1  ProgEdition Added (Commented)  ~  09.05.2009  **
 ; **    2.0  Text and Attribute Edit Added  ~  09.05.2009  **
 ; **    3.0  Line Editor Added              ~  09.05.2009  **
 ; **    4.0  Circle and LWPolyline Editor   ~  10.05.2009  **
 ; **                                                       **
 ; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=**

Link to comment
Share on other sites

Just a thought on this. The block has eleven attributes, Ten are hidden and one visible. Is it possible that this might be the problem? Or may have something to do with the problem.

Link to comment
Share on other sites

I believe I have found the problem - but I have no clue how to fix it...

 

vla-intersect-with does not recognise blocks that are "entmade" within the drawing.

 

I just converted a group of objects into blocks using an old lisp I had lying around and found that the tool failed on these. :(

 

I'm still not happy with the "arc editing" part of the code though.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • Create New...