RyanAtNelco Posted May 11, 2009 Posted May 11, 2009 it would be cool if the cursor changed size as the zoom changed. i used it on a very small detail then tried to use it on a larger floor plan and had to reinvoke the command in order to clearly see the cursor. Quote
Lee Mac Posted May 11, 2009 Author Posted May 11, 2009 The cursor should stay the same size throughout zooms - make sure you are using the latest version. To change the cursor size, hit "+" or "-" when using it Quote
Lee Mac Posted May 11, 2009 Author Posted May 11, 2009 From a recommendation from the Swamp, you can now "Shift-Click" to edit attributes in an alternative manner. ; **=-=-=-=-=-=-=-=-=-=-=- 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. ** ; ** ** ; ** Requires EXPRESS TOOLS to run. ** ; ** ** ; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=** ; ** ** ; ** 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 ** ; ** 5.0 Xref and Block Update ~ 10.05.2009 ** ; ** 5.1 Bug fix Editing Nested Ents ~ 11.05.2009 ** ; ** 6.0 Shift-Click Edit Attributes ~ 11.05.2009 ** ; ** ** ; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=** However, this now requires EXPRESS TOOLS to run. Quote
The Buzzard Posted May 11, 2009 Posted May 11, 2009 Lee, The shift-click thing works great! I love this program. Quote
RyanAtNelco Posted May 11, 2009 Posted May 11, 2009 I should have read the instructions more clearly before skipping immediately to the play phase:? Quote
Lee Mac Posted May 11, 2009 Author Posted May 11, 2009 Lee, The shift-click thing works great! I love this program. Thanks Buzzard Quote
Lee Mac Posted May 11, 2009 Author Posted May 11, 2009 I should have read the instructions more clearly before skipping immediately to the play phase:? Thats OK, tbh I don't think many people actually read the headers we put on our programs... most just save it and load it. What really gets annoying though, is when the code is posted with the original header stripped off... Quote
Lee Mac Posted May 12, 2009 Author Posted May 12, 2009 A few more updates -- Object Colour, Linetype Scale, and Block Scale is now shown. Viewport Scale is show Edit XLines by clicking/Shift-clicking on them Click on Dimensions to perform a Text-Override Edit Ellipses, (will edit the axis closest to mouse pointer. Initial Cursor Diameter made slightly smaller. Text colour changes. ; **=-=-=-=-=-=-=-=-=-=-=- 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. ** ; ** Shift+Click on Attributes to Edit using Text Editor. ** ; ** Click on a Viewport to Lock it. ** ; ** Click on Drawing Objects to Edit them. ** ; ** Click on XLine to Rotate, Shift+Click to Move ** ; ** Click on Dimension to Perform Text Override ** ; ** ** ; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=** ; ** ** ; ** 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 (Commented) ** ; ** dxf: Returns DXF code value ** ; ** verchk: Checks AutoCAD Version ** ; ** round: Rounds a Number to Nearest Whole Number ** ; ** rtd: Radian to Degree Convertor ** ; ** ** ; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=** ; ** ** ; ** PLATFORM RESTRICTIONS: ** ; ** ** ; ** For use on AutoCAD 2000 onwards. ** ; ** Only tested in AutoCAD 2004. ** ; ** ** ; ** Requires EXPRESS TOOLS to run. ** ; ** ** ; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=** ; ** ** ; ** 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 ** ; ** 5.0 Xref and Block Update ~ 10.05.2009 ** ; ** 5.1 Bug fix Editing Nested Ents ~ 11.05.2009 ** ; ** 6.0 Shift-Click Edit Attributes ~ 11.05.2009 ** ; ** 7.0 Xline and Ellipse Edit Added ~ 12.05.2009 ** ; ** 7.1 Dimension Editing Added ~ 12.05.2009 ** ; ** 7.2 Object Colour and Block Name ~ 12.05.2009 ** ; ** ** ; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=** Quote
Lee Mac Posted May 13, 2009 Author Posted May 13, 2009 This will probably be the last update, as I cannot think of anything else to add to this thing... You can now edit Splines. ; **=-=-=-=-=-=-=-=-=-=-=- 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. ** ; ** Shift+Click on Attributes to Edit using Text Editor. ** ; ** Click on a Viewport to Lock it. ** ; ** Click on Drawing Objects to Edit them. ** ; ** Click on XLine to Rotate, Shift+Click to Move ** ; ** Click on Dimension to Perform Text Override ** ; ** ** ; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=** ; ** ** ; ** 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 (Commented) ** ; ** dxf: Returns DXF code value ** ; ** vlax-list->3D-point: Converts a SArray lst -> 3D pt ** ; ** verchk: Checks AutoCAD Version ** ; ** round: Rounds a Number to Nearest Whole Number ** ; ** rtd: Radian to Degree Convertor ** ; ** ** ; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=** ; ** ** ; ** PLATFORM RESTRICTIONS: ** ; ** ** ; ** For use on AutoCAD 2000 onwards. ** ; ** Only tested in AutoCAD 2004. ** ; ** ** ; ** Requires EXPRESS TOOLS to run. ** ; ** ** ; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=** ; ** ** ; ** 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 ** ; ** 5.0 Xref and Block Update ~ 10.05.2009 ** ; ** 5.1 Bug fix Editing Nested Ents ~ 11.05.2009 ** ; ** 6.0 Shift-Click Edit Attributes ~ 11.05.2009 ** ; ** 7.0 Xline and Ellipse Edit Added ~ 12.05.2009 ** ; ** 7.1 Dimension Editing Added ~ 12.05.2009 ** ; ** 7.2 Object Colour and Block Name ~ 12.05.2009 ** ; ** 7.3 Spline Edit Added ~ 13.05.2009 ** ; ** ** ; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=** Quote
The Buzzard Posted May 13, 2009 Posted May 13, 2009 Lee, This is great. Not only is it an information tool, But an editor as well. Are you sure you named it right? Quote
Lee Mac Posted May 13, 2009 Author Posted May 13, 2009 Lee, This is great. Not only is it an information tool, But an editor as well. Are you sure you named it right? Thanks Buzzard, I didn't originally think I'd take it this far to be honest... - I knew I wanted the information side of things to appear, but I had designated the click of the mouse to indicate quiting the program. Then, I thought about using that click for a "quick-edit" for things like text and attributes.... but why stop there... Quote
The Buzzard Posted May 13, 2009 Posted May 13, 2009 Some never stop striving for excellence. This is such a useful program. I recall when AutoCAD had a similar function that was very annoying and did not do very much but describe an entity. I have this program of yours automatically loaded and find it highly useful. I have put alot of mileage on already and you just keep on improving it before I can find out how much more it does. Just Fantastic. Quote
Lee Mac Posted May 13, 2009 Author Posted May 13, 2009 Thanks for your kind words Buzzard - its always great to hear that a program that you make is being put through its paces. With the editing side, I have tried to emulate how a user would primarily edit each object, and combine it all into one editing tool. Hence with text or attributes, the editor appears. With drawing objects, the objects are edited as if the user were using the "grips" - but multiple grips can be cycled through by moving around the object (check this out when editing an LWPoly). And then of course, with viewports, they can be locked/unlocked with a single click... I would incorporate more, but its having the ideas... :wink: Quote
The Buzzard Posted May 13, 2009 Posted May 13, 2009 Ideas area not short in this forum by any means. I am sure you will hear more. Quote
Lee Mac Posted May 14, 2009 Author Posted May 14, 2009 I have modified the code somewhat to include two extra functions, LAYISO and OBJISO - help is given about these functions in the header. I have only quickly added the code, to see if these would be useful - not sure if I want to keep 'em as yet ; **=-=-=-=-=-=-=-=-=-=-=- 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 ** ; ** ** ; ** Press "TAB" to Switch Modes ** ; ** ** ; ** Available Modes:- ** ; ** DINFO MODE: General Object Editor ** ; ** LAYISO MODE: Click on an Object to Isolate Layer ** ; ** Shift Click to Turn on all Layers. ** ; ** OBJISO MODE: Click on an Object to Isolate Object ** ; ** Type, Shift Click to Turn on all ** ; ** Objects. ** ; ** ** ; ** Click on Text or Attributes to Edit them. ** ; ** Shift+Click on Attributes to Edit using Text Editor. ** ; ** Click on a Viewport to Lock it. ** ; ** Click on Drawing Objects to Edit them. ** ; ** Click on XLine to Rotate, Shift+Click to Move ** ; ** Click on Dimension to Perform Text Override ** ; ** ** ; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=** ; ** ** ; ** 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 (Commented) ** ; ** dxf: Returns DXF code value ** ; ** vlax-list->3D-point: Converts a SArray lst -> 3D pt ** ; ** verchk: Checks AutoCAD Version ** ; ** round: Rounds a Number to Nearest Whole Number ** ; ** rtd: Radian to Degree Convertor ** ; ** ** ; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=** ; ** ** ; ** PLATFORM RESTRICTIONS: ** ; ** ** ; ** For use on AutoCAD 2000 onwards. ** ; ** Only tested in AutoCAD 2004. ** ; ** ** ; ** Requires EXPRESS TOOLS to run. ** ; ** ** ; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=** ; ** ** ; ** 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 ** ; ** 5.0 Xref and Block Update ~ 10.05.2009 ** ; ** 5.1 Bug fix Editing Nested Ents ~ 11.05.2009 ** ; ** 6.0 Shift-Click Edit Attributes ~ 11.05.2009 ** ; ** 7.0 Xline and Ellipse Edit Added ~ 12.05.2009 ** ; ** 7.1 Dimension Editing Added ~ 12.05.2009 ** ; ** 7.2 Object Colour and Block Name ~ 12.05.2009 ** ; ** 7.3 Spline Edit Added ~ 13.05.2009 ** ; ** 8.0 LayIso and ObjIso Added ~ 14.05.2009 ** ; ** ** ; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=** Quote
NBC Posted May 14, 2009 Posted May 14, 2009 Great tool Lee, hat's off to you. Just a minor request or 2, after having a quick play with it for 2 minutes - Is it possible to get it to 'remember' the size of the cursor pick box from the last time it was used ? As at the moment, it reverts back to the massive circle all the time Also, is it possible when 'editting' entities for the DINFO thingummy to acknowledge the use of OSNAP's ? Quote
Lee Mac Posted May 14, 2009 Author Posted May 14, 2009 Sorry, I disabled OSNAPs when I first made it - but I should think it would be OK to take that out of the code now. Posted code above updated ^^ 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.