拖动过程如何避免闪烁

brainstorm

我这个代码想实现在拖动过程中，支持一键回车，可能代码写的有点问题，在按S键时会闪烁
给指点一下，另外xdrx_inget放到那里比较合适，回调函数内，还是xdrx_drag_jig

1. (defun c:tt (/ e loop mark p1 promptstr rtn1 dragtable)
   
2.   (setq e (car(entsel)))
   
3.   (vl-acad-defun 'dragtable)
   
4.   (defun dragtable (p)
   
5.     (xdrx_initget "S")   
   
6.     (xdrx_setpropertyvalue e "position" p)
   
7.   )
   
8.   (setq p1 (getvar "lastpoint"))
   
9.   (setq loop t)
   
10.   (setq mark nil)
    
11.   (if mark
    
12.     (setq promptstr "\n&#209;&#161;&#212;&#241;±í&#184;&#241;2&#229;è&#235;μ&#227;,μ±&#199;°í&#172;ê±±ê×￠·&#191;&#188;&#228;&#196;ú2&#191;<S&#199;D&#187;&#187;>: ")
    
13.     (setq promptstr "\n&#209;&#161;&#212;&#241;±í&#184;&#241;2&#229;è&#235;μ&#227;,μ±&#199;°&#189;&#246;ê&#228;3&#246;±í&#184;&#241;<S&#199;D&#187;&#187;>: ")
    
14.   )
    
15.   (while loop
    
16.     (setq rtn1
    
17.            (xdrx_drag_jig
    
18.              ;; Name of callback - finction
    
19.              "dragtable"
    
20.              ;; Prompt string
    
21.              promptstr
    
22.              ;; Keyword string
    
23.              "S"
    
24.              ;; Input flag
    
25.              (+ 2 128 2048)
    
26.              ;; Allow entering empty and 3D-points
    
27.              ;; Cursor type
    
28.              0
    
29.              ;;  RubberBand
    
30.              ;; Base point (in UCS)
    
31.              p1
    
32.            )
    
33.     )
    
34.     (if        (equal rtn1 "S")
    
35.       (if mark
    
36.         (progn
    
37.           (setq mark nil)
    
38.           (setq promptstr "\n&#209;&#161;&#212;&#241;±í&#184;&#241;2&#229;è&#235;μ&#227;,μ±&#199;°&#189;&#246;ê&#228;3&#246;±í&#184;&#241;<S&#199;D&#187;&#187;>: ")
    
39.         )
    
40.         (progn
    
41.           (setq mark t)
    
42.           (setq
    
43.             promptstr "\n&#209;&#161;&#212;&#241;±í&#184;&#241;2&#229;è&#235;μ&#227;,μ±&#199;°í&#172;ê±±ê×￠·&#191;&#188;&#228;&#196;ú2&#191;<S&#199;D&#187;&#187;>: "
    
44.           )
    
45.         )
    
46.       )
    
47.       (setq loop nil)
    
48.     )
    
49.   )
    
50. 
    
51.   (REDRAW)  
    
52.   (xdrx_initget)  
    
53. )
    

(defun c:tt (/ e loop mark p1 promptstr rtn1 dragtable)<br />   (setq e (car(entsel)))<br />   (vl-acad-defun 'dragtable)<br />   (defun dragtable (p)<br />     (xdrx_initget "S")    <br />     (xdrx_setpropertyvalue e "position" p)<br />   )<br />   (setq p1 (getvar "lastpoint"))<br />   (setq loop t)<br />   (setq mark nil)<br />   (if mark<br />     (setq promptstr "\n&#209;&#161;&#212;&#241;±í&#184;&#241;2&#229;è&#235;μ&#227;,μ±&#199;°í&#172;ê±±ê×￠·&#191;&#188;&#228;&#196;ú2&#191;<S&#199;D&#187;&#187;>: ")<br />     (setq promptstr "\n&#209;&#161;&#212;&#241;±í&#184;&#241;2&#229;è&#235;μ&#227;,μ±&#199;°&#189;&#246;ê&#228;3&#246;±í&#184;&#241;<S&#199;D&#187;&#187;>: ")<br />   )<br />   (while loop<br />     (setq rtn1<br />            (xdrx_drag_jig<br />              ;; Name of callback - finction<br />              "dragtable"<br />              ;; Prompt string<br />              promptstr<br />              ;; Keyword string<br />              "S"<br />              ;; Input flag<br />              (+ 2 128 2048)<br />              ;; Allow entering empty and 3D-points<br />              ;; Cursor type<br />              0<br />              ;;  RubberBand<br />              ;; Base point (in UCS)<br />              p1<br />            )<br />     )<br />     (if        (equal rtn1 "S")<br />       (if mark<br />         (progn<br />           (setq mark nil)<br />           (setq promptstr "\n&#209;&#161;&#212;&#241;±í&#184;&#241;2&#229;è&#235;μ&#227;,μ±&#199;°&#189;&#246;ê&#228;3&#246;±í&#184;&#241;<S&#199;D&#187;&#187;>: ")<br />         )<br />         (progn<br />           (setq mark t)<br />           (setq<br />             promptstr "\n&#209;&#161;&#212;&#241;±í&#184;&#241;2&#229;è&#235;μ&#227;,μ±&#199;°í&#172;ê±±ê×￠·&#191;&#188;&#228;&#196;ú2&#191;<S&#199;D&#187;&#187;>: "<br />           )<br />         )<br />       )<br />       (setq loop nil)<br />     )<br />   ) <br /> <br />   (REDRAW)  <br />   (xdrx_initget)  <br /> )<br />

newer

(xdrx_initget "S") 这个函数完成的是
(initget "S") + 一键回车的初始设置，而且这个函数要通过 (xdrx_end) 来消除作用,并且下一个xdrx_init的调用抹除前一个的。

如果你的程序有好几个地方要用 不同的关键字组合去交互，那么你就要保证在你当前的getXXXX函数前调用这个函数

比如

(xdrx_initget "S")
(while (setq a (getstring "...[XX(S]"))
    (progn
       ...
       (xdrx_initget "A")
       (if (setq b (getstring "....XX(A)"))
          (progn
             ....
          )
       )
    )
)

这种情况，循环第二次时候，S就失去作用了。

要继续使得S起作用，那 xdrx_initget就要放循环里面。


(while (and (xdrx_initget "S")
                (setq a (getstring "...[XX(S]"))
         )
    (progn
       ...
       (xdrx_initget "A")
       (if (setq b (getstring "....XX(A)"))
          (progn
             ....
          )
       )
    )
)
        

newer

拖动闪烁，这个以前讨论过，可以搜索下。

这个避免不了，是AcGeJig类的特性

如果想不闪烁，可以用点监视器xdrx_pointmointor实现拖到，具体你可以去看看开源函数库里面的

xd::drag:Gmove (这个强大，支持你自定义回调函数)
xd::doc:simplemove函数

brainstorm

谢谢了 学习很多知识

brainstorm

2. (setq rtn1
   
3.            (xdrx_drag_jig
   
4.              ;; Name of callback - finction
   
5.              "dragtable"
   
6.              ;; Prompt string
   
7.              promptstr
   
8. ;;;             "\n&#209;&#161;&#212;&#241;±í&#184;&#241;2&#229;è&#235;μ&#227;[ê&#199;·&#241;í&#172;ê±±ê×￠·&#191;&#188;&#228;&#196;ú]<Sê&#199;>: "
   
9.              ;; Keyword string
   
10.              "S"
    
11.              ;; Input flag
    
12.              (+ 4 128 256 2048)
    
13.              ;; Allow entering empty and 3D-points
    
14.              ;; Cursor type
    
15.              0
    
16.              ;;  RubberBand
    
17.              ;; Base point (in UCS)
    
18.              p1
    
19.            )
    
20.     )

(setq rtn1<br />            (xdrx_drag_jig<br />              ;; Name of callback - finction<br />              "dragtable"<br />              ;; Prompt string<br />              promptstr<br /> ;;;             "\n&#209;&#161;&#212;&#241;±í&#184;&#241;2&#229;è&#235;μ&#227;[ê&#199;·&#241;í&#172;ê±±ê×￠·&#191;&#188;&#228;&#196;ú]<Sê&#199;>: "<br />              ;; Keyword string<br />              "S"<br />              ;; Input flag<br />              (+ 4 128 256 2048)<br />              ;; Allow entering empty and 3D-points<br />              ;; Cursor type<br />              0<br />              ;;  RubberBand<br />              ;; Base point (in UCS)<br />              p1<br />            )<br />     )

input flag 已经设值4，为什么按esc键仍然退出？此时rtn1返回值为-4,但是在回到函数中(if (equal rtn1 -4)(vla-erase vlatbl))无法删除，本意是如果用户退出，则删除原来的图元，如何实现？

brainstorm

我搞错了 调试的不是一个程序