越飞越高讲堂（2）CAD的API编程指南(上)--DynamicWrapperX

chlh_jd

用楼主的代码把派送消息行注释掉

1. (vlax-invoke DWX 'DispatchMessage ptr)    ;派送消息

复制代码

，就可以不让屏幕跟着滚动了 ;但这个amsg始终返回±7864320，C++中的wParam好像可以返回滚动距离；
另一个问题请教下斑竹：有没有一种可能把这个功能附加到grread上？
鼠标滚轮的消息处理，这篇文章可能叙述得不错
http://topic.csdn.net/t/20030820/15/2168554.html
这段代码貌似精髓诠释

1. 
   
2. WM_MOUSEWHEEL   
   
3. fwKeys   =   LOWORD(wParam);   /*   key   flags   */   
   
4. zDelta   =   (short)   HIWORD(wParam);   
   
5. /*   wheel   rotation   */   
   
6. xPos   =   (short)   LOWORD(lParam);   
   
7. /*   horizontal   position   of   pointer   */   
   
8. yPos   =   (short)   HIWORD(lParam);   
   
9. /*   vertical   position   of   pointer   */   
   

复制代码

highflybird

回复 chlh_jd 的帖子

这样是可以的，等于截获CAD发出来的消息。但我不知道会有什么意外发生。
aMsg = wParam
bMsg = lParam
可以通过lParam或者屏幕坐标，然后把屏幕坐标转换为CAD的坐标（需要获得窗口大小，
要用到ScreenToClient 的API，参见下面：
http://hi.baidu.com/sppeivan/blog/item/98ba4ba337f84aa7cbefd041.html
最后用trans pt  2 0
但这样我没测试过。

chlh_jd

滚轮信息即时截取要协同VLISP做ACAD屏幕的动态显示，这个确实有点麻烦；
不防先看下这个VLISP

2. ;;;use Alan method
   
3. ;;;to easy to control add method devided by viewsize .
   
4. (defun c:test (/ en ent str ds pto pt)
   
5.   (if (and (setq en (car (entsel "Select Integer Number Text :")))
   
6.            (setq ent (entget en))
   
7.            (setq str (cdr (assoc 1 ent)))
   
8.            (numberp (eval (read str)))
   
9.            (equal (atoi str) (atof str))
   
10.            (setq ds (/ (getvar "viewsize") 100.));_here can be changed cond to your need
    
11.            (setq pto (grread t 15 0))
    
12.       )
    
13.     (while (and (setq pt (grread pto))
    
14.                 (not (and (= 2 (car pt))
    
15.                           (or (= 13 (cadr pt)) (= 32 (cadr pt)))
    
16.                      )
    
17.                 ) ;_Enter Space
    
18.                 (not (or (= (car pt) 11) (= (car pt) 25))) ;_Right button
    
19.            )
    
20.       (if (and (= (car pt) 5)
    
21.                (> (abs (- (cadadr pt) (cadadr pto))) ds)               
    
22.           )
    
23.         (cond
    
24.           ((> (- (cadadr pt) (cadadr pto)) 0);_Y+ move   
    
25.            (setq str (rtos (1+ (atoi str)) 2 0))
    
26.            (entmod (list (cons 1 str) (cons -1 en)))           
    
27.            (setq pto pt)
    
28.           )
    
29.           ((< (- (cadadr pt) (cadadr pto)) 0);_Y- move
    
30.            (setq str (rtos (1- (atoi str)) 2 0))
    
31.            (entmod (list (cons 1 str) (cons -1 en)))
    
32.            (setq pto pt)
    
33.           )
    
34.         )
    
35.         (princ)
    
36.       )
    
37.     )
    
38.     (princ)
    
39.   )
    
40.   (princ)
    
41. )
    

;;;use Alan method<br /> ;;;to easy to control add method devided by viewsize .<br /> (defun c:test (/ en ent str ds pto pt)<br />   (if (and (setq en (car (entsel "Select Integer Number Text :")))<br />            (setq ent (entget en))<br />            (setq str (cdr (assoc 1 ent)))<br />            (numberp (eval (read str)))<br />            (equal (atoi str) (atof str))<br />            (setq ds (/ (getvar "viewsize") 100.));_here can be changed cond to your need <br />            (setq pto (grread t 15 0))<br />       )<br />     (while (and (setq pt (grread pto))<br />                 (not (and (= 2 (car pt))<br />                           (or (= 13 (cadr pt)) (= 32 (cadr pt)))<br />                      )<br />                 ) ;_Enter Space<br />                 (not (or (= (car pt) 11) (= (car pt) 25))) ;_Right button<br />            )<br />       (if (and (= (car pt) 5)<br />                (> (abs (- (cadadr pt) (cadadr pto))) ds)               <br />           )<br />         (cond<br />           ((> (- (cadadr pt) (cadadr pto)) 0);_Y+ move   <br />            (setq str (rtos (1+ (atoi str)) 2 0))<br />            (entmod (list (cons 1 str) (cons -1 en)))           <br />            (setq pto pt)<br />           )<br />           ((< (- (cadadr pt) (cadadr pto)) 0);_Y- move<br />            (setq str (rtos (1- (atoi str)) 2 0))<br />            (entmod (list (cons 1 str) (cons -1 en)))<br />            (setq pto pt)<br />           )<br />         )<br />         (princ)<br />       )<br />     )<br />     (princ)<br />   )<br />   (princ)<br /> )<br />

icefrog

这个一定要顶

xiaotao

再一次佩服！

carrot1983

很好，很强大。看来不得不恶补VB。

carrot1983

你甚至可以将它打包到vlx文件中。

楼主所言是真的？请教怎么做到？

carrot1983

你甚至可以将它打包到vlx文件中。

楼主所言是真的？请教怎么做到？

carrot1983

你甚至可以将它打包到vlx文件中。

楼主所言是真的？请教怎么做到？


还以为没有发出去，怎么一下子就发了三条。哈哈，不太会用。

zark

我相信这是迟来的爱，楼主，你太高了