请问PointMonitor可以显示捕捉点吗？jig不能用nentselp和ssget

xinxirong

请问PointMonitor可以显示捕捉点吗？
为什么jig回调函数中不能用nentselp和ssget？

xinxirong

nentselp老是返回nil,可能是document要unlock?

newer

xinxirong 发表于 2018-4-18 12:49
nentselp老是返回nil,可能是document要unlock?

LISP还是ARX？ 默认下，文档是UNLOCK的，一般只有写操作的时候才需要LOCK

xinxirong

lisp+高飞鸟的jig arx，也就是晓东API。我是要获得点所在的ent。先是用

xinxirong

lisp+高飞鸟的jig arx，也就是晓东API。我是要获得点所在的ent。先是用PointMonitor，发现不能显示捕捉点，于是改jig,但jig的回调函数中nentselp总是返回nil，ssget也出现ads错误

newer

xinxirong 发表于 2018-4-18 18:14
lisp+高飞鸟的jig arx，也就是晓东API。我是要获得点所在的ent。先是用PointMonitor，发现不能显示捕捉点， ...

XDRX API 函数 xdrx_ipmonitor_getnested 可以在点监视器回调函数里面，获取鼠标下的实体名表。

1. (defun c:tt ()
   
2.   (defun _callback (dynpt / )
   
3.     (if        (setq a (xdrx_ipmonitor_getnested dynpt))
   
4.       (setq str (xdrx_prompt "鼠标下发现 " (length a) " 个实体." t))
   
5.     )
   
6.     str
   
7.   )
   
8.   (xdrx_pointmonitor "_callback")
   
9. )
   

(defun c:tt ()<br />   (defun _callback (dynpt / )<br />     (if        (setq a (xdrx_ipmonitor_getnested dynpt))<br />       (setq str (xdrx_prompt "鼠标下发现 " (length a) " 个实体." t))<br />     )<br />     str<br />   )<br />   (xdrx_pointmonitor "_callback") <br /> )<br />

newer

xinxirong 发表于 2018-4-18 18:14
lisp+高飞鸟的jig arx，也就是晓东API。我是要获得点所在的ent。先是用PointMonitor，发现不能显示捕捉点， ...

鼠标指示窗口动态显示实体信息插件（支持扩展实体、扩展词典显示）

134 个回复 - 5756 次查看

XDRX API 点监视器函数的应用 **** 本内容被作者隐藏 ****

2013-10-28 23:18 - XDSoft - 每日插件

                               
登录/注册后可看大图

上面老大这个插件的源码，点监视器里面就是用的 nentselp 获取的实体信息。说明点监视器下，nentselp 完全可用。

xinxirong

我是想说_pointmonitor不能显示捕捉点，还要自己grdraw，跟grread有什么区别？而jig这么好的东西却在回调函数中不能获得对象

xinxirong

即使我在pointmonitor后加getpoint也不能显示捕捉点，说明pointmonitor会重画，把getpoint的捕捉点都redraw掉了

newer

xinxirong 发表于 2018-4-19 08:54
即使我在pointmonitor后加getpoint也不能显示捕捉点，说明pointmonitor会重画，把getpoint的捕捉点都redraw ...

1. (defun c:tt ()
   
2.   (defun _callback (dynpt / )
   
3.     (if        (setq a (xdrx_ipmonitor_getnested dynpt))
   
4.       (setq str (xdrx_prompt "鼠标下发现 " (length a) " 个实体." t))
   
5.     )
   
6.     str
   
7.   )
   
8.   (xdrx_pointmonitor "_callback")
   
9.   (getpoint)
   
10.   (xdrx_pointmonitor)
    
11. )
    
12. 
    

(defun c:tt ()<br />   (defun _callback (dynpt / )<br />     (if        (setq a (xdrx_ipmonitor_getnested dynpt))<br />       (setq str (xdrx_prompt "鼠标下发现 " (length a) " 个实体." t))<br />     )<br />     str<br />   )<br />   (xdrx_pointmonitor "_callback")<br />   (getpoint)<br />   (xdrx_pointmonitor)<br /> )<br /> <br />

xinxirong

我知道了，回调函数一定要返回string

xinxirong

调试没问题，打包后偶尔回调函数会串到另外一个函数中，函数名不是callback。应该要在error函数把(xdrx_pointmonitor)加上才行

newer

xinxirong 发表于 2018-4-25 08:48
调试没问题，打包后偶尔回调函数会串到另外一个函数中，函数名不是callback。应该要在error函数把(xdrx_poi ...

你说是用XDRX API， 你把回调函数定义到主的LISP函数内，不会串的。在外面定义，就起个专有的名字。
*error* 里面加上 xdrx_end 就行了，这个负责清除所有的现场了。