API应用 Xdrx_PointMonitor应用会动和变色的实体

eachy

这两天写几个函数时用到 xdrx_pointmonitor , 对这个函数有了更深的理解，看看这个例子

1. (defun mycallback (dynpt / ent bp up obj)
   
2.   (if (and (setq ent (nentselp dynpt))
   
3.            (= (cdr (assoc 5 (entget (car ent)))) *handle*)
   
4.       )
   
5.     (progn
   
6.       (setq obj (vlax-ename->vla-object (car ent)))
   
7.       (vla-getboundingbox obj 'bp 'up)
   
8.       (vla-rotate
   
9.         obj
   
10.         (vlax-3d-point
    
11.           (mapcar '(lambda (x y) (* 0.5 (+ x y)))
    
12.                   (safearray-value bp)
    
13.                   (safearray-value up)
    
14.           )
    
15.         )
    
16.         (/ pi 2)
    
17.       )
    
18.       (if (< (vla-get-color obj) 255)
    
19.         (vla-put-color obj (1+ (vla-get-color obj)))
    
20.         (vla-put-color obj 1)
    
21.       )
    
22.     )
    
23.   )
    
24. )
    
25. (defun c:tt (/ e)
    
26.   (if (setq e (car (entsel "\n选择实体<回车取消点监视>: ")))
    
27.     (progn
    
28.       (setq *handle* (cdr (assoc 5 (entget e))))
    
29.       (xdrx_pointmonitor "mycallback" e)
    
30.     )
    
31.     (progn
    
32.       (xdrx_pointmonitor)
    
33.       (princ "\n已取消点监视!")
    
34.       (setq *handle* nil)
    
35.     )
    
36.   )
    
37.   (princ)
    
38. )
    

(defun mycallback (dynpt / ent bp up obj)<br />   (if (and (setq ent (nentselp dynpt))<br />            (= (cdr (assoc 5 (entget (car ent)))) *handle*)<br />       )<br />     (progn<br />       (setq obj (vlax-ename->vla-object (car ent)))<br />       (vla-getboundingbox obj 'bp 'up)<br />       (vla-rotate<br />         obj<br />         (vlax-3d-point<br />           (mapcar '(lambda (x y) (* 0.5 (+ x y)))<br />                   (safearray-value bp)<br />                   (safearray-value up)<br />           )<br />         )<br />         (/ pi 2)<br />       )<br />       (if (< (vla-get-color obj) 255)<br />         (vla-put-color obj (1+ (vla-get-color obj)))<br />         (vla-put-color obj 1)<br />       )<br />     )<br />   )<br /> )<br /> (defun c:tt (/ e)<br />   (if (setq e (car (entsel "\n选择实体<回车取消点监视>: ")))<br />     (progn<br />       (setq *handle* (cdr (assoc 5 (entget e))))<br />       (xdrx_pointmonitor "mycallback" e)<br />     )<br />     (progn<br />       (xdrx_pointmonitor)<br />       (princ "\n已取消点监视!")<br />       (setq *handle* nil)<br />     )<br />   )<br />   (princ)<br /> )<br />

点监视器就是一个反应器入口，点满足一定情况就执行回调函数

st788796

有点意思，移动或者复制过程中这个实体还可以旋转！

newer

st788796 发表于 2014-11-1 21:06
有点意思，移动或者复制过程中这个实体还可以旋转！

哇，这个特性能写些什么应用不？

iLisp

newer 发表于 2014-11-1 21:41
哇，这个特性能写些什么应用不？

可用的地方很多，不过添个乐子也好