Lee Mac Posted May 10, 2009 Author Posted May 10, 2009 I suppose this is a slightly better arc modifier: ; **=-=-=-=-=-=-=-=-=-=-=- 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 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. Now thats strange. Quote
The Buzzard Posted May 10, 2009 Posted May 10, 2009 Lee, Check out this link, Not sure if the answer is here. http://management.cadalyst.com/cadman/article/articleDetail.jsp?id=101854 Quote
Lee Mac Posted May 10, 2009 Author Posted May 10, 2009 Thanks Buzzard, I've seen that article before - but it just explains how to find intersections. But thanks for the link. Quote
The Buzzard Posted May 10, 2009 Posted May 10, 2009 Was not sure since the article mentions seeing blocks and the use of flags with vla-IntersectWith. As you know, I do not have a clue about VL and just trying to be of some help, But I know you will get this issue fixed because that your way. Quote
Lee Mac Posted May 10, 2009 Author Posted May 10, 2009 But I know you will get this issue fixed because that your way. Well... I'm not so sure about that.... this is something that the VL function is not recognising as an intersection, so it may be beyond my control short of rewriting the whole code... Quote
Lee Mac Posted May 10, 2009 Author Posted May 10, 2009 Ok, I believe this may solve our problems -- when you said I wouldn't rest til I sorted it, I think you were right... This now performs like the function "xlist" -- which will list nested entities. ; **=-=-=-=-=-=-=-=-=-=-=- 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 ** ; ** 5.0 Xref and Block Update ~ 10.05.2009 ** ; ** ** ; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=** Quote
The Buzzard Posted May 10, 2009 Posted May 10, 2009 I figured this would be here soon, Otherwise you would have to wait another twenty years for me to figure it out for and you know that will not happen. Quote
Lee Mac Posted May 10, 2009 Author Posted May 10, 2009 I figured this would be here soon, Otherwise you would have to wait another twenty years for me to figure it out for and you know that will not happen. Haha -- it was actually a mildly easy fix - but not one that you would first think of (if you know what I mean..) Quote
The Buzzard Posted May 10, 2009 Posted May 10, 2009 It now sees the object, But will not allow edit. Quote
The Buzzard Posted May 10, 2009 Posted May 10, 2009 Haha -- it was actually a mildly easy fix - but not one that you would first think of (if you know what I mean..) Not sure what you mean. Quote
Lee Mac Posted May 10, 2009 Author Posted May 10, 2009 Not sure what you mean. Well to fix it I asked it to first look for intersections, but as we know this does not work with the blocks and nested entities, I then said - if you don't find any intersections, then use the cursor point and perform an "nentselp" function to check for entities - hence there is no chance the object could be missed. -- But it wasn't initially obvious to do this (is what i meant).. Quote
Lee Mac Posted May 10, 2009 Author Posted May 10, 2009 It now sees the object, But will not allow edit. Sorry, forgot one last bit ; **=-=-=-=-=-=-=-=-=-=-=- 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 ** ; ** 5.0 Xref and Block Update ~ 10.05.2009 ** ; ** ** ; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=** Make sure you click on the attribute to edit it Quote
Lee Mac Posted May 10, 2009 Author Posted May 10, 2009 You were holding out on me. Haha, yeah -- I meant to miss that last bit... make you wait for it :P Quote
Lee Mac Posted May 10, 2009 Author Posted May 10, 2009 Hot Dog! Thats Great! Cheers Buzzard It should now work on XREFs too -- just like the xlist function, only continuous. Quote
The Buzzard Posted May 10, 2009 Posted May 10, 2009 Just remember, I was the one who gave this headache. Quote
Lee Mac Posted May 10, 2009 Author Posted May 10, 2009 Just remember, I was the one who gave this headache. Oh yes... its always you :P 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.