社区 › Auto Lisp › 动态信息工具

The Buzzard 发表于 2022-7-6 10:34:50

我将光标放置在具有属性的块上，无论我做什么，光标都不会改变。

The Buzzard 发表于 2022-7-6 10:35:52

这是一个样本测试图纸，我正在尝试你的程序。
车门测试。图纸

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

这真的很奇怪。
 
这是我发现的第一个这样做的街区。
 
就好像vla与相交没有“看到”它。

The Buzzard 发表于 2022-7-6 10:43:39

我不认为我发明了一个李麦克证明的积木，所以它至少对你们来说是简单的。

Lee Mac 发表于 2022-7-6 10:44:39

 
嗯，我试过一些东西，但我真的看不出你的街区和我一直在做的街区有什么不同。。。

The Buzzard 发表于 2022-7-6 10:48:05

这是我的IDS程序创建的一个块。这与我的编程方法有关吗？

Lee Mac 发表于 2022-7-6 10:52:46

无论如何，这里有另一个更新供大家使用
 
我要睡觉了
 

; **=-=-=-=-=-=-=-=-=-=-=- 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.0First Release                  ~09.05.2009**
; **    1.1ProgEdition Added (Commented)~09.05.2009**
; **    2.0Text and Attribute Edit Added~09.05.2009**
; **    3.0Line Editor Added            ~09.05.2009**
; **    4.0Circle and LWPolyline Editor   ~10.05.2009**
; **                                                       **
; **=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=**

The Buzzard 发表于 2022-7-6 10:54:09

我很抱歉做了这么奇怪的一块。我会尽量不让它再次发生。

The Buzzard 发表于 2022-7-6 10:57:15

我只是想一想。块有十一个属性，十个隐藏，一个可见。这可能是问题所在吗？或者可能与问题有关。

Lee Mac 发表于 2022-7-6 11:02:37

我相信我已经发现了问题——但我不知道如何解决它。。。
 
vla intersect with无法识别图形中“entmade”的块。
 
我只是用一个旧的lisp将一组对象转换成块，我发现这个工具在这些块上失败了。
 
不过，我仍然对代码中的“圆弧编辑”部分不满意。

查看完整版本: 动态信息工具