着墨中文lisp登入_养成良好的AutoLISP书写习惯

字"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 "")