【飞鸟集】心随我动--为LISP定制的动态输入,拖拉和动态信息函数(更新至20130731)

highflybird

呵呵，楼盖得真快！三天时间就超过了50楼。
我都还没来得及整理。。。
不过一言既出，驷马难追。 等下我整理好了就贴出来。。

NetBee

这些功能对LISP是大补充呀。

aaacjh

很好用，谢谢！

cnks

highflybird 发表于 2011-11-20 10:44
呵呵，楼盖得真快！三天时间就超过了50楼。
我都还没来得及整理。。。
不过一言既出，驷马难追。 等下我整 ...

嘿嘿，好东西当然盖楼比较快

highflybir

现在版本更新，请大家重新下载，并请反馈测试结果。
现在R2000-2002版本可用。

R14版本及其以下版本，我无法编译。所以这个程序最低CAD版本是R2000.
等到测试所有版本都能成功加载并正确运行后，我把我的源码贴在ObjectARX版块。请大家耐心等待。
后面跟帖的请报告CAD版本，32位或者64位，各个函数的运行是否正常，以方便我改进。

brainstorm :楼主的函数能够捕获键盘输入信息么 比如是按了那个字母 这样就可以定义cad的热键了

考虑在下个版本增加钩子和定时器事件。

Gu_xl

highflybir 发表于 2011-11-21 10:20
现在版本更新，请大家重新下载，并请反馈测试结果。
现在R2000-2002版本可用。

2002、2004、2008测试成功！晚上回家再测试一下64位的2010，不过退出cad时总出现如下提示：

我做了一个图档关闭反应器：

1.       ;;;添加图档监视反应器
   
2.       (or *Vlr_HFB_PointMonitor*
   
3.    (setq *Vlr_HFB_PointMonitor* (VLR-dwg-Reactor nil '((:VLR-beginClose . HFB_PointMonitor_close))))
   
4. )
   
5. ;;;回调函数
   
6. (defun HFB_PointMonitor_close (reactor_object data)
   
7.   (HFB_PointMonitor)
   
8.   )
   

      ;;;添加图档监视反应器<br />       (or *Vlr_HFB_PointMonitor*<br />    (setq *Vlr_HFB_PointMonitor* (VLR-dwg-Reactor nil '((:VLR-beginClose . HFB_PointMonitor_close))))<br /> )<br /> ;;;回调函数<br /> (defun HFB_PointMonitor_close (reactor_object data)<br />   (HFB_PointMonitor)<br />   )<br />

有时退出cad时不上出现述提示，有时退出时就出现上述提示！能分析下原因么？

highflybir

Gu_xl 发表于 2011-11-21 14:31
2002、2004、2008测试成功！晚上回家再测试一下64位的2010，不过退出cad时总出现如下提示：

我做了一 ...

如果你的有活动的没卸载干净的话，就需要手动卸载。否则有可能引起崩溃。故提醒。

highflybir

Gu_xl  只打开一个文档，手工用(HFB_PointMonitor)关闭后，退出CAD依然会出现提示！  

现在已经解决了这个问题。请下载重新测试。无需加反应器，现在关闭文件时可以自动关闭事件。

brainstorm

楼主 SSJIG 的关键字 如果用户输入了关键字 能不用回车就直接接受关键字么 可以设个选项需要回车确认或者不需要
很多软件在命令过程中支持关键字热键
很期待这个功能

brainstorm

用(hfb_pointmonitor)关闭了 问题依旧 cad2012 32位