AutoCAD中特定角度及长度捕捉的实现方法(2)

核心提示： ⑦ 另外，用户还可以点取View菜单下的Zoom菜单中的Zoom Window 、Zoom Previous、Zoom All等三个子项实现窗口放缩和Pan菜单实现屏幕漫游； 对于其他操作，AutoCAD中特定角度及长度捕捉的实现方法(2)(2)，用户均可按屏幕命令行的中文提示方便地进行操

⑦ 另外，用户还可以点取View菜单下的Zoom菜单中的Zoom Window 、Zoom Previous、Zoom All等三个子项实现窗口放缩和Pan菜单实现屏幕漫游； 对于其他操作，用户均可按屏幕命令行的中文提示方便地进行操作。在非汉化AutoCAD 中运行本程序时，只需将程序中有关的中文提示行改成英文提示即可。 另外，由于不同的机型在AutoCAD环境下键盘返回码可能稍有区别，所以要求用户在应用本程序之前对自己的机器键盘返回码按如下方法作一次核实：

在AutoCAD命令状态下输入(grread)并回车，用户此时可按下F2或F3、F4、F5键：

第一步：Command:(grread)回车

第二步：按下F2键

此时，屏幕上回显刚输入的键值，比如对笔者使用的机器(AST PIII+4/66D)回显为：(2 1 36)。

其具体涵义为：第一个数字"2"表示刚才是键盘输入；第二个数字"136"表示本机器的"F2"键的返回码。

按上述步骤依次对FF4、F5键的返回码进行核实，笔者的机器该三键的返回码分别为137、138、139。

如果核实结果与上述结果不符(比如，对某些机型，上述四键的返回码分别为138、139、140、141)，则应对程序中的相应语句作如下修改。

在"接受用户输入控制子程序"pull()中的键盘输入部分的下述语句作对应修改：

(cond ((=c1 136)(ant));F2--此处136改为用户的F2键返回码

((=c1 137)(leng)；

F3--此处137改为用户的F3键返回码

((=c1 138)；

F4--此处138改为用户的F4键返回码

((=c1 139)；

F5--此处139改为用户的F5键返回码

最后，需要指出的是：用户自己的菜单文件ACAD.MNU可能增删过菜单项或AutoCAD R13中，会使Zoom Window、Zoom All、Zoom Previous、Pan在菜单中位置发生改变。这样，要求用户在应用本程序之前对自己的菜单项回码按如下方法作一次核实：

在AutoCAD命令状态下输入(grread)并回车，用户此时可点取下拉菜单View下的Zoom子菜单中的Window项，对于笔者的菜单其返回值为：(4 6005)。其具体涵义为：第一个数字"4"表示刚才是下拉菜单输入；第二个数字"6005"表示本菜单的Zoom Window菜单项的返回码。用户可按同样的方法找到菜单项Zoom All、Zoom Previous、Pan的返回码。并相应地改变"接受用户输入控制子程序"pull()中的"点取下拉菜单"部分的下述语句作对应修改：

(cond ((=c1 6005)--此处6005改为用户的Zoom Window菜单项返回码；

((=c1 6007)--此处6007改为用户的Zoom Previous菜单项返回码；

((=c1 6008)--此处6008改为用户的Zoom All菜单项返回码；

((=c1 6011)--此外6011改为用户的Pan菜单项返回码；

五、结语

应用本程序，可在制图过程中很方便地实现某些特定角度和长度的捕捉，简化了操作步骤和击键次数，根据目前的使用情况来看，画线时可提高作图速度4倍以上。至于AutoCAD内部提供的正交和网点捕捉只是本程序当捕捉角度为 90°时的一个特例。

将本程序的画线子模块 draw()中语句行

(command"line" pstart pend "")