加载中…
个人资料
  • 博客等级:
  • 博客积分:
  • 博客访问:
  • 关注人气:
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
正文 字体大小:

CAD LISP关闭指令响应 和 避开程序最后响应

(2008-06-16 14:11:16)
标签:

杂谈

在书写LISP程序的时候,有时由于我们没有关掉指令响应,会看到程序执行指令响应的过程,另外,由于也没有在程序的最后面加上(Princ)函数,所以让(command)函数响应的nil出现在屏幕上,影响程序的美观。

以下程序是做了修改的。

(defun C:CC()
  (setq oce (getvar "cmdecho"))               ;存储旧指令响应值
  (setvar "cmdecho" 0)                        ;关闭指令响应

  (command "-vbarun" "PinkTxtLwP")
  (setvar "cmdecho" oce)                      ;恢复旧的指令响应值
  (princ)                                     ;避开程序最后响应

)

0

阅读 收藏 喜欢 打印举报/Report
  

新浪BLOG意见反馈留言板 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

新浪公司 版权所有