羊年奉献- Lisp 点监视器 （Net版）

csharp

羊年来临之际奉献一个 Lisp 用的点监视器函数，和 xdapi 中的 xdrx_pointmonitor 使用方法类似

在Arx中调用 Lisp 是使用 acedInvoke ，这个方法要求是 c: 定义 的函数，这就是 ODCL 回调函数都是 defun c: 开头的原因，在高飞版主定义的 DynamicLisp 中内部对非 c: 函数增加了  vl-acad-defun

使用方法
(cmonitor "c:mycallback“)   启用点监视器，定义为 c: 开头，参数为 点 (WCS)
(cmonitor) 不带参数，清除所有点监视器

附件 dll 为 For 2014 编译版，
Lisp 测试代码

1. (defun c:tt (/ c:callback txt pts p)
   
2.   (defun myerr (msg)
   
3.     (cmonitor)
   
4.     (if        txt
   
5.       (vla-delete txt)
   
6.     )
   
7.     (princ)
   
8.   )
   
9.   (defun c:callback (dynpt /)
   
10.     (redraw)
    
11.     (mapcar '(lambda (x y) (grdraw x y 1 -1)) pts (cdr pts))
    
12.     (if        txt
    
13.       (progn
    
14.         (vla-put-visible txt :vlax-true)
    
15.         (vla-put-textstring txt (itoa (length pts)))
    
16.         (vla-put-insertionpoint txt (vlax-3d-point dynpt))
    
17.       )
    
18.     )
    
19.   )
    
20.   (setq        olderr        *error*
    
21.         *error*        myerr
    
22.   )
    
23.   (setq        txt (vla-addtext
    
24.               (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))
    
25.               "0"
    
26.               (vlax-3d-point '(0.0 0.0 0.0))
    
27.               (/ (getvar "viewsize") 15.0)
    
28.             )
    
29.   )
    
30.   (vla-put-visible txt :vlax-false)
    
31.   (cmonitor "c:callback")
    
32.   (while (setq p (if pts
    
33.                    (getpoint (car pts) "\nNext Point: ")
    
34.                    (getpoint "\nNext Point: ")
    
35.                  )
    
36.          )
    
37.     (setq pts (cons p pts))
    
38.   )
    
39.   (vla-delete txt)
    
40.   (cmonitor)
    
41.   (princ)
    
42. )

(defun c:tt (/ c:callback txt pts p)<br />   (defun myerr (msg)<br />     (cmonitor)<br />     (if        txt<br />       (vla-delete txt)<br />     )<br />     (princ)<br />   )<br />   (defun c:callback (dynpt /)<br />     (redraw)<br />     (mapcar '(lambda (x y) (grdraw x y 1 -1)) pts (cdr pts))<br />     (if        txt<br />       (progn<br />         (vla-put-visible txt :vlax-true)<br />         (vla-put-textstring txt (itoa (length pts)))<br />         (vla-put-insertionpoint txt (vlax-3d-point dynpt))<br />       )<br />     )<br />   )<br />   (setq        olderr        *error*<br />         *error*        myerr<br />   )<br />   (setq        txt (vla-addtext<br />               (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))<br />               "0"<br />               (vlax-3d-point '(0.0 0.0 0.0))<br />               (/ (getvar "viewsize") 15.0)<br />             )<br />   )<br />   (vla-put-visible txt :vlax-false)<br />   (cmonitor "c:callback")<br />   (while (setq p (if pts<br />                    (getpoint (car pts) "\nNext Point: ")<br />                    (getpoint "\nNext Point: ")<br />                  )<br />          )<br />     (setq pts (cons p pts))<br />   )<br />   (vla-delete txt)<br />   (cmonitor)<br />   (princ)<br /> )

运行效果

lucas3

不懂，但是支持前辈

ynhh

:lol
大师新年好

st788796

切换 文档有 Bug

sicky111

很强大   

viphappy

很强大   不知道怎么干坏事:lol

xvjiex

感谢楼主分享羊年奉献- Lisp 点监视器 （Net版）