使用点监视器，动态绘制内存实体，模拟SPLINE命令

newer

演示了动态拖动中，显示内存实体的方法

使用了ARX的ViewportDraw，屏幕刷新显示实体，速度快

1. (defun c:tt ()
   
2.   (defun _callback (dynpt)
   
3.     (redraw)
   
4.     (xdrx-setpropertyvalue
   
5.       spl
   
6.       "setfitpoints"
   
7.       (reverse (cons dynpt lst));;设置拟合点
   
8.     )
   
9.     (xdrx-grdraw 1 -1 spl) ;;显示内存实体
   
10.   )
    
11.   (if (and (setq p1 (getpoint "\n起点<退出>:"))
    
12.            (setq p2 (getpoint p1 "\n下一点<退出>:"))
    
13.       )
    
14.     (progn (xdrx-pointmonitor "_callback")
    
15.            (setq lst (list p2 p1))
    
16.            (setq spl (xdrx-spline-make)) ;;创建内存DB实体
    
17.            (while (setq p3 (getpoint (car lst) "\n下一点<退出>:"))
    
18.              (setq lst (cons p3 lst))
    
19.            )
    
20.            (xdrx-pointmonitor)
    
21.            (xdrx-setpropertyvalue spl "removefitpointat" (length lst));;移除最后鼠标确认前最后一个拟合点
    
22.            (xdrx-entity-make spl);;从内存实体创建到数据库
    
23.     )
    
24.   )
    
25.   (princ)
    
26. )
    
27. 
    

(defun c:tt ()<br />   (defun _callback (dynpt)<br />     (redraw)<br />     (xdrx-setpropertyvalue<br />       spl<br />       "setfitpoints"<br />       (reverse (cons dynpt lst));;设置拟合点<br />     )<br />     (xdrx-grdraw 1 -1 spl) ;;显示内存实体<br />   )<br />   (if (and (setq p1 (getpoint "\n起点<退出>:"))<br />            (setq p2 (getpoint p1 "\n下一点<退出>:"))<br />       )<br />     (progn (xdrx-pointmonitor "_callback")<br />            (setq lst (list p2 p1))<br />            (setq spl (xdrx-spline-make)) ;;创建内存DB实体<br />            (while (setq p3 (getpoint (car lst) "\n下一点<退出>:"))<br />              (setq lst (cons p3 lst))<br />            )<br />            (xdrx-pointmonitor)<br />            (xdrx-setpropertyvalue spl "removefitpointat" (length lst));;移除最后鼠标确认前最后一个拟合点<br />            (xdrx-entity-make spl);;从内存实体创建到数据库<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />