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

highflybir

附件已经更新，请大家重新测试。多谢大家的支持。

Gu_xl

highflybir 发表于 2011-11-21 21:17
附件已经更新，请大家重新测试。多谢大家的支持。

提示在某些情况下仍然存在！在调用(HFB_PointMonitor ...)的函数里有等待输入语句，譬如：getreal /getkword等则退出cad时依然会出现提示！64位的2010仍然无法加载！两个都试了！

highflybir

Gu_xl 发表于 2011-11-21 23:06
提示在某些情况下仍然存在！在调用(HFB_PointMonitor ...)的函数里有等待输入语句，譬如：getreal /getkw ...

单独给你上传一个r2010 x64的版本，再测试看看。

Gu_xl

highflybir 发表于 2011-11-22 08:35
单独给你上传一个r2010 x64的版本，再测试看看。

谢谢！晚上回家再测试！单位电脑没装64位2010！对于在调用(HFB_PointMonitor ...)的函数里有等待输入语句，譬如：getreal /getkword等则退出cad时依然会出现提示，是在这种情况下会出现提示：我使用鼠标双击反应器在空白处双击启动一个对话框，然后在这个对话框中启动(HFB_PointMonitor ...)调用，在退出时就会出现提示！若在命令行或菜单栏启动(HFB_PointMonitor ...)调用，退出时则不会出现提示！

brainstorm

brainstorm 发表于 2011-11-21 20:58
用(hfb_pointmonitor)关闭了 问题依旧 cad2012 32位

在单位打开一张大图 含有引用的块 结果cad就崩溃了 而且出现了千万在卸载程序前用.... 的提示

wwwliuyu

给力真的很给力，能否做一个在非命令状态下，当有选择对象时返回所选对象的反应器？

highflybir

wwwliuyu 发表于 2011-11-22 23:17
给力真的很给力，能否做一个在非命令状态下，当有选择对象时返回所选对象的反应器？

构造编辑器反应器对象，它不属于任何其他编辑器反应器类型

(vlr-miscellaneous-reactor data callbacks)

:vlr-pickfirstModified
当前文档的优先选择集已被修改

这个可以不用我上面的函数，而直接用LISP函数。

1. (if (null *pickfirstReactor*)
   
2.   (setq *pickfirstReactor*
   
3.   (VLR-Miscellaneous-Reactor
   
4.     data
   
5.     '((:VLR-pickfirstModified . pickFirstCallback))
   
6.   )
   
7.   )
   
8. )
   
9. (defun pickFirstCallback (reactor data)
   
10.   (princ "\nReactor is: ")
    
11.   (princ reactor)
    
12.   (princ "\ndata is:")
    
13.   (princ data)
    
14. )
    

(if (null *pickfirstReactor*)<br />   (setq *pickfirstReactor*<br />   (VLR-Miscellaneous-Reactor <br />     data<br />     '((:VLR-pickfirstModified . pickFirstCallback))<br />   )<br />   )<br /> )<br /> (defun pickFirstCallback (reactor data)<br />   (princ "\nReactor is: ")<br />   (princ reactor)<br />   (princ "\ndata is:")<br />   (princ data)<br /> )<br />

wwwliuyu

哦，原来还有这么个反应器，看来还要多看看反应器函数才成。
你的函数真的太赞了，有了你的函数以后就可以彻底摆脱grread函数。

logitechlike

info命令
(GetAperture)     ;靶框下的图元列表
(GetOSMode)     ;当前的捕捉模式（非系统变量）
(GetNested)      ;嵌套选择的图元列表
高亮图元才显示效果，试了半天；哈

洪华

太好了,谢谢
使用后发现如下问题(CAD2004)：1、SSJIG函数光标类型无效。2、SSJIG函数返回时不能恢复原来的光标型状。3、在光标拖动时，能否不显示拖动点与原点的距离值及箭头，仅显示直线。4、TGG命令在运行时不能消除原有图形，与新图形同时显示。