附件已经更新，请大家重新测试。多谢大家的支持。
highflybir 发表于 2011-11-21 21:17 static/image/common/back.gif
附件已经更新，请大家重新测试。多谢大家的支持。
提示在某些情况下仍然存在！在调用(HFB_PointMonitor ...)的函数里有等待输入语句，譬如：getreal /getkword等则退出cad时依然会出现提示！64位的2010仍然无法加载！两个都试了！
Gu_xl 发表于 2011-11-21 23:06 static/image/common/back.gif
提示在某些情况下仍然存在！在调用(HFB_PointMonitor ...)的函数里有等待输入语句，譬如：getreal /getkw ...
单独给你上传一个r2010 x64的版本，再测试看看。
highflybir 发表于 2011-11-22 08:35 static/image/common/back.gif
单独给你上传一个r2010 x64的版本，再测试看看。
谢谢！晚上回家再测试！单位电脑没装64位2010！对于在调用(HFB_PointMonitor ...)的函数里有等待输入语句，譬如：getreal /getkword等则退出cad时依然会出现提示，是在这种情况下会出现提示：我使用鼠标双击反应器在空白处双击启动一个对话框，然后在这个对话框中启动(HFB_PointMonitor ...)调用，在退出时就会出现提示！若在命令行或菜单栏启动(HFB_PointMonitor ...)调用，退出时则不会出现提示！
brainstorm 发表于 2011-11-21 20:58 static/image/common/back.gif
用(hfb_pointmonitor)关闭了 问题依旧 cad2012 32位
在单位打开一张大图 含有引用的块 结果cad就崩溃了 而且出现了千万在卸载程序前用.... 的提示
给力真的很给力，能否做一个在非命令状态下，当有选择对象时返回所选对象的反应器？
本帖最后由 highflybir 于 2011-11-23 00:17 编辑
wwwliuyu 发表于 2011-11-22 23:17 http://bbs.mjtd.com/static/image/common/back.gif
给力真的很给力，能否做一个在非命令状态下，当有选择对象时返回所选对象的反应器？
构造编辑器反应器对象，它不属于任何其他编辑器反应器类型
(vlr-miscellaneous-reactor data callbacks)
:vlr-pickfirstModified
当前文档的优先选择集已被修改
这个可以不用我上面的函数，而直接用LISP函数。
(if (null *pickfirstReactor*)
(setq *pickfirstReactor*
(VLR-Miscellaneous-Reactor
data
'((:VLR-pickfirstModified . pickFirstCallback))
)
)
)
(defun pickFirstCallback (reactor data)
(princ "\nReactor is: ")
(princ reactor)
(princ "\ndata is:")
(princ data)
)
哦，原来还有这么个反应器，看来还要多看看反应器函数才成。
你的函数真的太赞了，有了你的函数以后就可以彻底摆脱grread函数。
info命令
(GetAperture) ;靶框下的图元列表
(GetOSMode) ;当前的捕捉模式（非系统变量）
(GetNested) ;嵌套选择的图元列表
高亮图元才显示效果，试了半天；哈
本帖最后由 洪华 于 2011-11-24 12:59 编辑
太好了,谢谢
使用后发现如下问题(CAD2004)：1、SSJIG函数光标类型无效。2、SSJIG函数返回时不能恢复原来的光标型状。3、在光标拖动时，能否不显示拖动点与原点的距离值及箭头，仅显示直线。4、TGG命令在运行时不能消除原有图形，与新图形同时显示。