动态信息工具

Lee Mac · 发表于 2022-7-6 10:00:07

刚刚制作了一个LISP，它将为用户提供有关他/她移动光标的任何对象的即时信息。

这是第一个版本，所以让我知道你的评论和批评，以及任何建议，你想张贴。

谢谢

李

可以找到该程序的最新版本
酒店雇员和饭馆雇员

The Buzzard · 发表于 2022-7-6 10:04:20

你怎么把这些知识放在脑子里？
你的大脑受伤过吗？

李太棒了。
总有一天，我不得不再看一眼visual lisp。
它看起来很吓人，但做得更多。

NBC · 发表于 2022-7-6 10:09:44

李，我能问一下它是否做了QuickProperties没有做的事情吗？

Lee Mac · 发表于 2022-7-6 10:10:28

哈哈，有的时候

谢谢Buzzard

老实说，其中大部分并没有使用太多VL-程序在“grread”函数上运行，VL只用于识别实体交点

Lee Mac · 发表于 2022-7-6 10:15:26

QuickProperties？我想你说的是属性标签？不，这并没有给你提供更多的信息，但我只是觉得它很新颖，很有用，因为它可以很快地获得关于物体的关键信息

此外，如有必要，它可以轻松扩展以具有更多功能

Lee Mac · 发表于 2022-7-6 10:17:12

快速更新-现在可以快速编辑任何文本或属性

哦，你可以点击一个视口来锁定它

李

copy


 ; **=-=-=-=-=-=-=-=-=-=-=- 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  **
 ; **                                                       **
 ; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=**

Cad64 · 发表于 2022-7-6 10:20:53

实际上，NBC在Autocad2010中提到了新的QuickProperties。如果你点击一个对象，你会看到一个小的浓缩属性面板，显示关于该对象的所有信息。下面的屏幕截图显示了我选择的多段线和QuickProperties面板。

这个选项很快变得很恼人，所以我禁用了它。每次你选择某样东西，都会有一个大面板挡住你的视线。这真的不太实际。