xdrx_pointmonitor用法疑问

pxt2015

2. 
   
3. (defun c:t ()
   
4.   (setq os (getvar "osmode"))
   
5.   (setvar "osmode" 0)  
   
6.   (setq cvport (getvar "cvport"))
   
7.   (xdrx_pointmonitor "callback2")
   
8.   (setq pt (getpoint "\nPT:"))
   
9.   (xdrx_pointmonitor)
   
10.   (setvar "osmode" os)
    
11.   (princ)
    
12. )
    
13. (defun callback2 (dynpt)
    
14.   (redraw)
    
15.   (print dynpt)
    
16.   (dim-pt dynpt)
    
17. )
    
18. (defun dim-pt (P0 / K  High ANG LST)
    
19.   (setq k NIL)  
    
20.   (setq High (* (/ (getvar "viewsize") 30) 0.5 (sqrt 2)))
    
21.   (setq        ANG (list 1.25 1.75 0.25 0.75)
    
22.         lst (mapcar '(lambda (n) (polar p0 (* n PI) High)) ANG)
    
23.   )
    
24.   (if k
    
25.     (progn (command "line" (CAR LST) (CADDR LST) "")
    
26.            (command "line" (CADR LST) (LAST LST) "")
    
27.     )
    
28.     (progn
    
29.       (redraw)
    
30.       (grdraw (CAR LST) (CADDR LST) 1 1)
    
31.       (grdraw (CADR LST) (LAST LST) 1 1)
    
32.     )
    
33.   )  
    
34. )
    

<br /> (defun c:t ()<br />   (setq os (getvar "osmode"))<br />   (setvar "osmode" 0)  <br />   (setq cvport (getvar "cvport"))<br />   (xdrx_pointmonitor "callback2")<br />   (setq pt (getpoint "\nPT:"))<br />   (xdrx_pointmonitor)<br />   (setvar "osmode" os)<br />   (princ)<br /> )<br /> (defun callback2 (dynpt)<br />   (redraw)<br />   (print dynpt)<br />   (dim-pt dynpt)<br /> )<br /> (defun dim-pt (P0 / K  High ANG LST)<br />   (setq k NIL)  <br />   (setq High (* (/ (getvar "viewsize") 30) 0.5 (sqrt 2)))<br />   (setq        ANG (list 1.25 1.75 0.25 0.75)<br />         lst (mapcar '(lambda (n) (polar p0 (* n PI) High)) ANG)<br />   )<br />   (if k<br />     (progn (command "line" (CAR LST) (CADDR LST) "")<br />            (command "line" (CADR LST) (LAST LST) "")<br />     )<br />     (progn<br />       (redraw)<br />       (grdraw (CAR LST) (CADDR LST) 1 1)<br />       (grdraw (CADR LST) (LAST LST) 1 1)<br />     )<br />   )  <br /> )<br />

以上代码，当光标从窗口2移动到窗口3时，无法自动激活窗口3，请问如何解决？

Lisphk

鼠标移动过去，但没激活窗口啊

pxt2015

难点就在这里啊，当鼠标移到左边窗口，光标还在CAD窗口但不是当前激活的窗口，xdrx_pointmonitor不能取得鼠标坐标。如果能取得坐标，判断实时监视到的坐标是否在右边窗口外，可以用系统变量cvport激活左边窗口。

st788796

可以使用  xdrx_system_cursorpos 获取当前鼠标的屏幕坐标

不过 api 中没有 获取 AcDbViewportTableRecord 边框屏幕坐标方法

Lisphk

pxt2015 发表于 2020-12-19 07:50
难点就在这里啊，当鼠标移到左边窗口，光标还在CAD窗口但不是当前激活的窗口，xdrx_pointmonitor不能取得鼠 ...

可以用监视器啊

a117034423

人丑就要多读