双击多段线能弹出对话框但是不能更新数据 这是为什么

lea丶丶

2. ;;; 下面程序定义双击反应器
   
3. (princ "\n修改电缆数据：双击")
   
4. (vl-load-com)
   
5. (if (member "acdblclkedit.arx" (arx))
   
6.   (arxunload "acdblclkedit.arx" nil)
   
7. )
   
8. (or
   
9.   *dblclkcirclereactor*
   
10.   (setq *dblclkcirclereactor* (vlr-mouse-reactor nil' ((:vlr-begindoubleclick . dblclkedit))))
    
11. )
    
12. ;;; 回调函数
    
13. (defun dblclkedit (reactorobject point / p owner en_data doc)
    
14.   (setvar "cmdecho" 0)         ; 关闭命令响应
    
15.   (if (setq owner (nentselp (setq p (trans (car point) 0 1)))) ; 指定点来选择对象
    
16.     (progn
    
17.       (if (> (length owner) 2)
    
18. (setq lea_ent (last (last owner)))
    
19. (setq lea_ent (car owner))
    
20.       )
    
21.       (sssetfirst nil)
    
22.       (redraw lea_ent 4)
    
23.       (setq en_data (entget ent '("*"))
    
24.            doc (vlax-get (vlax-get-acad-object) "activedocument")
    
25.       )
    
26.       (if (and (cdr (assoc -3 en_data)) (= (cdr (assoc 0 en_data)) "LWPOLYLINE"))
    
27.             (show_dcl lea_ent)
    
28.       
    
29.     )
    
30.    
    
31.   ))
    
32.   (setvar "CMDECHO" 1)
    
33. )
    
34. 
    
35. (defun show_dcl (lea_ent / en_data old_data lst dclname tempname filen stream Dcl_Id r0 r1 r2 r3 new_data)
    
36.   (setq en_data (entget ent '("*")))
    
37.   (setq old_data (cdr (assoc -3 en_data)))
    
38.   (setq lst    (mapcar '(lambda (x)
    
39.                                (cdr (cadr x))
    
40.                               )
    
41.                        old_data
    
42.                      ))
    
43.   (setq dclname
    
44.     (cond
    
45.       ((setq tempname (vl-filename-mktemp "temp.dcl")
    
46.          filen (open tempname "w")
    
47.        )
    
48.         (foreach stream '(
    
49. " RENAME:dialog {label = "Lea电缆参数" ;"  
    
50. " :boxed_column   {"  
    
51. "       :edit_box { key = "K0" ; label = "电缆序号" ;   edit_width  = 20 ; fixed_width = true ; }"
    
52. "       :edit_box { key = "K1" ; label = "电缆型号" ;   edit_width  = 20 ;  fixed_width = true ;}"
    
53. "       :edit_box { key = "K2" ; label = "电缆根数" ;   edit_width  = 20;  fixed_width = true ;}"
    
54. "       :edit_box { key = "K3" ; label = "单根长度" ;   edit_width  = 20;  fixed_width = true ;}"                                
    
55. " }"
    
56. "spacer_1;"                           
    
57. " ok_cancel;"                           
    
58. " }"
    
59.                          )
    
60.           (write-line stream filen)
    
61.         )
    
62.         (close filen)
    
63.         tempname
    
64.       )
    
65.     )
    
66.   )
    
67.   (setq Dcl_Id (load_dialog dclname))  
    
68.   (vl-file-delete tempname)
    
69.   (new_dialog "RENAME" Dcl_Id)
    
70.   (set_tile "K0" (setq r0 (nth 0 lst)))
    
71.   (set_tile "K1" (setq r1 (nth 1 lst)))
    
72.   (set_tile "K2" (setq r2 (nth 2 lst)))
    
73.   (set_tile "K3" (setq r3 (nth 3 lst)))
    
74.   (action_tile "K0" "(setq r0 (get_tile "K0"))")
    
75.   (action_tile "K1" "(setq r1 (get_tile "K1"))")
    
76.   (action_tile "K2" "(setq r2 (get_tile "K2"))")
    
77.   (action_tile "K3" "(setq r3 (get_tile "K3"))")
    
78.   (action_tile "accept" "(done_dialog)")
    
79.   (start_dialog)
    
80.   (unload_dialog Dcl_Id)
    
81.   (setq new_data (list '-3 (list "电缆序号" (cons 1000 r0))(list "电缆型号" (cons 1000 r1))(list "电缆根数" (cons 1000 r2))(list "单根长度" (cons 1000 r3))))
    
82.   (entmod (subst new_data (cons -3 old_data)  en_data))
    
83.   (princ)
    
84. )
    
85. 
    
86. 
    

;;; 下面程序定义双击反应器<br /> (princ "\n修改电缆数据：双击")<br /> (vl-load-com)<br /> (if (member "acdblclkedit.arx" (arx))<br />   (arxunload "acdblclkedit.arx" nil)<br /> )<br /> (or<br />   *dblclkcirclereactor*<br />   (setq *dblclkcirclereactor* (vlr-mouse-reactor nil' ((:vlr-begindoubleclick . dblclkedit))))<br /> )<br /> ;;; 回调函数<br /> (defun dblclkedit (reactorobject point / p owner en_data doc)<br />   (setvar "cmdecho" 0)         ; 关闭命令响应<br />   (if (setq owner (nentselp (setq p (trans (car point) 0 1)))) ; 指定点来选择对象<br />     (progn<br />       (if (> (length owner) 2)<br /> (setq lea_ent (last (last owner)))<br /> (setq lea_ent (car owner))<br />       )<br />       (sssetfirst nil)<br />       (redraw lea_ent 4)<br />       (setq en_data (entget ent '("*"))<br />            doc (vlax-get (vlax-get-acad-object) "activedocument")<br />       )<br />       (if (and (cdr (assoc -3 en_data)) (= (cdr (assoc 0 en_data)) "LWPOLYLINE"))<br />             (show_dcl lea_ent)<br />       <br />     )<br />     <br />   ))<br />   (setvar "CMDECHO" 1)<br /> )<br /> <br /> (defun show_dcl (lea_ent / en_data old_data lst dclname tempname filen stream Dcl_Id r0 r1 r2 r3 new_data)<br />   (setq en_data (entget ent '("*")))<br />   (setq old_data (cdr (assoc -3 en_data)))<br />   (setq lst    (mapcar '(lambda (x)<br />                                (cdr (cadr x))<br />                               )<br />                        old_data<br />                      ))<br />   (setq dclname<br />     (cond<br />       ((setq tempname (vl-filename-mktemp "temp.dcl")<br />          filen (open tempname "w")<br />        )<br />         (foreach stream '(<br /> " RENAME:dialog {label = "Lea电缆参数" ;"  <br /> " :boxed_column   {"  <br /> "       :edit_box { key = "K0" ; label = "电缆序号" ;   edit_width  = 20 ; fixed_width = true ; }"<br /> "       :edit_box { key = "K1" ; label = "电缆型号" ;   edit_width  = 20 ;  fixed_width = true ;}"<br /> "       :edit_box { key = "K2" ; label = "电缆根数" ;   edit_width  = 20;  fixed_width = true ;}"<br /> "       :edit_box { key = "K3" ; label = "单根长度" ;   edit_width  = 20;  fixed_width = true ;}"                                <br /> " }"<br /> "spacer_1;"                           <br /> " ok_cancel;"                           <br /> " }"<br />                          )<br />           (write-line stream filen)<br />         )<br />         (close filen)<br />         tempname<br />       )<br />     )<br />   )<br />   (setq Dcl_Id (load_dialog dclname))  <br />   (vl-file-delete tempname)<br />   (new_dialog "RENAME" Dcl_Id)<br />   (set_tile "K0" (setq r0 (nth 0 lst)))<br />   (set_tile "K1" (setq r1 (nth 1 lst)))<br />   (set_tile "K2" (setq r2 (nth 2 lst)))<br />   (set_tile "K3" (setq r3 (nth 3 lst)))<br />   (action_tile "K0" "(setq r0 (get_tile "K0"))")<br />   (action_tile "K1" "(setq r1 (get_tile "K1"))")<br />   (action_tile "K2" "(setq r2 (get_tile "K2"))")<br />   (action_tile "K3" "(setq r3 (get_tile "K3"))")<br />   (action_tile "accept" "(done_dialog)")<br />   (start_dialog)<br />   (unload_dialog Dcl_Id)<br />   (setq new_data (list '-3 (list "电缆序号" (cons 1000 r0))(list "电缆型号" (cons 1000 r1))(list "电缆根数" (cons 1000 r2))(list "单根长度" (cons 1000 r3))))<br />   (entmod (subst new_data (cons -3 old_data)  en_data))<br />   (princ)<br /> )<br /> <br /> <br />

为什么我用程序可以直接更新数据，
但是用双击反应器后能弹出对话框 却不能更新数据。在线求教！

danxingpen

把entmod改成vla方法......事实上应该是你的entmod在双击反应器调用下根本就没有起到作用，在双击模式下，此时的选择的多段线应该是只读的，用vla方法应该属于异步进行。。。。

lea丶丶

danxingpen 发表于 2016-8-5 14:28
把entmod改成vla方法......事实上应该是你的entmod在双击反应器调用下根本就没有起到作用，在双击模式下，此 ...

哦哦  那我试试

自贡黄明儒

应该是程序本身有问题，entmod是可以的
如果没有扩展数据(and (cdr (assoc -3 en_data)) (= (cdr (assoc 0 en_data)) "LWPOLYLINE"))，返回nil,就修改不成了。

lea丶丶

自贡黄明儒 发表于 2016-8-23 14:31
应该是程序本身有问题，entmod是可以的
如果没有扩展数据(and (cdr (assoc -3 en_data)) (= (cdr (assoc 0 ...

已解决 用vla-SendCommand 调用命令就可以了