CAD开发者社区 › 首页 ›AutoCAD二次开发指南› AutoLISP 开发指南› AutoLISP：开发人员指南› 使用 Visual LISP IDE（仅限 Windows）› 关于使用Visual LISP开发程序（Visual LISP IDE）› 关于使用控制台窗口（Visual LISP IDE）› 关于控制台窗口的行为（Visual LISP IDE）› 关于使用控制台窗口历史记录（Visual LISP IDE） › 查看内容

AutoLISP 开发指南

检索在控制台窗口中输入的文本（Visual LISP IDE）

2023-1-6 07:32| 发布者: admin| 查看: 633| 评论: 0|来自: AutoCAD

摘要: Visual LISP Console 窗口允许您执行和检查一行 AutoLISP 代码。

Visual LISP Console 窗口允许您执行和检查一行 AutoLISP 代码。

注意：Visual LISP IDE 仅在 Windows 上可用。

执行下列操作之一：

按 Tab 可在 Visual LISP 控制台窗口提示符下检索最近输入的文本。继续按 Tab 键进一步返回到控制台窗口的历史记录。
按 Shift+Tab 可反转遍历 Visual LISP 控制台窗口历史记录的方向。

例

此示例假定先前已在“可视 LISP 控制台”窗口中输入以下文本。

(setq origin (getpoint "\nOrigin of inyn sign: "))
(setq radius (getdist "\nRadius of inyn sign: " origin))
(setq half-r (/ radius 2))
(setq origin-x (car origin))
(command "._CIRCLE" origin radius)

在可视 LISP 控制台窗口中，按一次 Tab。
可视 LISP 检索最后输入的文本，并将其放在控制台窗口提示符处。
```
(command "._CIRCLE" origin radius)
```
再次按 Tab 键。
以下文本显示在控制台窗口提示符处。
```
(setq origin-x (car origin))
```
再次按 Tab 键。
可视 LISP 在控制台窗口提示符处显示以下文本。
```
(setq half-r (/ radius 2))
```
按 Shift+Tab。
可视 LISP 反转方向并检索以前的文本，并在控制台窗口提示符下显示它。
```
(setq origin-x (car origin))
```
再次按 Shift+Tab。
可视 LISP 在控制台窗口提示符处显示以下文本。
```
(command "._CIRCLE" origin radius)
```
这是在控制台窗口提示符下输入的最后一个文本。
再次按 Shift+Tab。
因为检索到的上一个文本是在“控制台”窗口中输入的最后一个文本，所以 Visual LISP 通过检索在“控制台”窗口中输入的第一个文本来再次启动。
```
(setq origin (getpoint "\nOrigin of inyn sign: "))
```