无论如何，这里有另一个更新供大家使用
我要睡觉了
- ; **=-=-=-=-=-=-=-=-=-=-=- 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 **
- ; ** **
- ; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=**
| 
