Lee Mac Posted May 9, 2009 Posted May 9, 2009 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 Quote
The Buzzard Posted May 9, 2009 Posted May 9, 2009 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. Quote
NBC Posted May 9, 2009 Posted May 9, 2009 Lee, can I ask if it does anything that QuickProperties doesn't do ? Quote
Lee Mac Posted May 9, 2009 Author Posted May 9, 2009 How do you fit all this knowledge in your head?Does your brain ever hurt? Haha, yes sometimes 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 Quote
Lee Mac Posted May 9, 2009 Author Posted May 9, 2009 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 Quote
Lee Mac Posted May 9, 2009 Author Posted May 9, 2009 A quick update - Now allows for quick editing with any text or attributes Oh, and you can click on a viewport to lock it 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 ** ; ** ** ; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=** Quote
Cad64 Posted May 9, 2009 Posted May 9, 2009 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. Quote
Lee Mac Posted May 9, 2009 Author Posted May 9, 2009 Looks like AutoDesk beat me to it Well, I suppose this is useful for those of use who can't afford 2010 Cheers Rod, Lee Quote
The Buzzard Posted May 9, 2009 Posted May 9, 2009 Lee, Just tried it on an attribute and I cannot get it to do anything. What am I doing wrong? Quote
Lee Mac Posted May 10, 2009 Author Posted May 10, 2009 You will need to click it when the Cursor picks up an object - so, when hovering over the block itself Quote
The Buzzard Posted May 10, 2009 Posted May 10, 2009 I place the cursor over a block with attributes and the cursor does not change no matter what I do. Quote
The Buzzard Posted May 10, 2009 Posted May 10, 2009 Here is a sample test drawing I am trying your program on. Door-Test.dwg Quote
Lee Mac Posted May 10, 2009 Author Posted May 10, 2009 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. Quote
The Buzzard Posted May 10, 2009 Posted May 10, 2009 Well I do not think I invented a block thats Lee Mac proof so it must be something simple at least for you. Quote
Lee Mac Posted May 10, 2009 Author Posted May 10, 2009 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... Quote
The Buzzard Posted May 10, 2009 Posted May 10, 2009 This was a block that my IDS program created. Does it have to do with my program method? Quote
Lee Mac Posted May 10, 2009 Author Posted May 10, 2009 Anyway, heres another update for you all to play around with I'm going to bed ; **=-=-=-=-=-=-=-=-=-=-=- 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 ** ; ** ** ; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=** Quote
The Buzzard Posted May 10, 2009 Posted May 10, 2009 I am sorry for making such a strange block. I will try not to let it happen again. Quote
The Buzzard Posted May 10, 2009 Posted May 10, 2009 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. Quote
Lee Mac Posted May 10, 2009 Author Posted May 10, 2009 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. Quote
Recommended Posts
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.