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

新客网 XKER.COM 2006-11-06 来源： 收藏本文

　(princ "\n\n\t**宁波大学建筑设计研究院--程建华,1996**\n")

　(princ)

　) ;for defun os

四、程序的安装与使用

　1. 程序的安装

以下三种装载方式，用户任选一种即可： 在AutoCAD环境下，将OS.LSP拷至当前目录，再执行(LOAD"OS")即可装载OS.LSP。也可先将OS.LSP拷至\ACAD\SUPPORT\子目录下，再在\ACAD\SUPPORT\ACADR12.LSP或ACADR13.LSP中加入下面一句语句实现启动AutoCAD时自动装载:

　 (AUTOLOAD "OS" '("OS"))

也可将OS.LSP拷至\ACAD\SUPPORT\子目录下，在\ACAD\SUPPORT\\子目录下的菜单文件ACAD.MNU中的合适位置加上下面的一句语句，即可直接在菜单中点取角度捕捉操作：

　·

　·

　·

　[角度捕捉]^c^c(load"c:/acad/support/os.lsp") os

　·

　·

　·

　2. 程序的使用

在一幅图中第一次使用该程序时，需要用户输入捕捉角度和捕捉长度，第二次调用本程序时，程序可自动采用上一次最后设定的捕捉角度和长度作为默认值。然后，程序需要用户选择输入一点作为基准点，此时命令行提示：

　F2/F3/F4/F5/ESC/Return /下一点:

　用户根据该提示可任选其中的一种操作，具体解释如下：

① 按F2键重新设定捕捉角度；

② 按F3键重新设定捕捉长度；

③ 按F4键窗口缩小0.7倍；

④ 按F5键窗口放大1.4倍；

⑤ 按ESC键、回车键、鼠标右键均可结束操作，退出程序；

⑥ 选取下一点，移动十字光标键，此时在屏幕的最上面的一行的坐标提示栏准确地显示出按用户设定的捕捉角度和长度所取得的落点相对于基准点的偏移角度和长度，滑动十字光标键直至用户寻找到所需要的下一点并按下鼠标左键，命令行重又出现上面的提示行，并进行下一轮循环；

⑦ 另外，用户还可以点取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()中的"点取下拉菜单"部分的下述语句作对应修改：

• ·AutoCAD模拟空间与图纸空间简介
• ·AutoCAD单窗口同时打开多个图形文件
• ·AutoCAD控制实体显示的方法
• ·用AutoCAD绘制平面曲线与空间曲线
• ·用AutoCAD画粗实线的两种方法
• ·在中望CAD中绘图怎样自定义标题栏？
• ·AutoCAD中有关选择编辑的技巧
• ·AutoCAD三维建模实例：排球
• ·AutoCAD三维造型实例：制作直线沙发
• ·利用AutoCAD拉伸面命令绘制哑铃
• ·AutoCAD造型实例：十字形螺丝刀头
• ·AutoCAD造型实例：一字形螺丝刀头
• ·AutoCAD中关于阿波罗尼斯圆的讨论
• ·用AutoCAD五分钟内完成三维足球建模
• ·AutoCAD三维造型：弹簧的简单画法
• ·AutoCAD滚珠轴承建模全过程