反应器的一个问题

daiguafan

1. 
   
2. (defun c:t2( / line dim_handle dim line_dim line_dim_reactor)
   
3. (Setq line (Vlax-Ename->Vla-Object (car (entsel))))
   
4. (Setq dim (Vlax-Ename->Vla-Object (car (entsel))))
   
5. (setq dim_handle (Vlax-Get dim 'Handle ))
   
6. (if (not line_dim_reactor)(setq line_dim_reactor (vlr-object-reactor (list line) (list dim_handle) '((:vlr-modified . line_dim)))))
   
7. (vlr-pers line_dim_reactor)
   
8. )
   
9. (defun line_dim (a b c / line line_pa long pa pb pta ptb )
   
10. (setq line a)
    
11. (setq dim (Vlax-Invoke-Method (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'HandleToObject (car (vlr-data b))))
    
12. (setq dim(entget (vlax-vla-object->ename  dim))
    
13.   p10           (cdr (assoc 10 entlis))
    
14.          P13           (cdr (assoc 13 entlis))
    
15.          P11           (cdr (assoc 11 entlis))
    
16.          )
    
17. (setq pa(vlax-curve-getstartPoint line))
    
18. (setq pb(vlax-curve-getendPoint line))
    
19. (entmod (subst (cons 11 pa) (assoc 11 dim) dim))
    
20. (entmod (subst (cons 13 pa) (assoc 13 dim) dim))
    
21. (princ)
    
22. )
    

<br /> (defun c:t2( / line dim_handle dim line_dim line_dim_reactor)<br /> (Setq line (Vlax-Ename->Vla-Object (car (entsel))))<br /> (Setq dim (Vlax-Ename->Vla-Object (car (entsel))))<br /> (setq dim_handle (Vlax-Get dim 'Handle ))<br /> (if (not line_dim_reactor)(setq line_dim_reactor (vlr-object-reactor (list line) (list dim_handle) '((:vlr-modified . line_dim)))))<br /> (vlr-pers line_dim_reactor)<br /> )<br /> (defun line_dim (a b c / line line_pa long pa pb pta ptb )<br /> (setq line a)<br /> (setq dim (Vlax-Invoke-Method (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'HandleToObject (car (vlr-data b))))<br /> (setq dim(entget (vlax-vla-object->ename  dim))<br />   p10           (cdr (assoc 10 entlis))<br />          P13           (cdr (assoc 13 entlis))<br />          P11           (cdr (assoc 11 entlis))<br />          )<br /> (setq pa(vlax-curve-getstartPoint line))<br /> (setq pb(vlax-curve-getendPoint line))<br /> (entmod (subst (cons 11 pa) (assoc 11 dim) dim))<br /> (entmod (subst (cons 13 pa) (assoc 13 dim) dim))<br /> (princ)<br /> )<br />

请问为何没有返回尺寸标注的跟随变化

daiguafan

没有一个人帮帮忙啊》

七七0707

1. (defun c:t2 (/ line dim_handle dim line_dim line_dim_reactor)
   
2.   (Setq line (Vlax-Ename->Vla-Object (car (entsel))))
   
3.   (Setq dim (Vlax-Ename->Vla-Object (car (entsel))))
   
4.   (setq dim_handle (Vlax-Get dim 'Handle))
   
5.   (if (not line_dim_reactor)
   
6.     (setq line_dim_reactor
   
7.            (vlr-pers
   
8.            (vlr-object-reactor
   
9.              (list line)
   
10.              (list dim_handle)
    
11.              '((:vlr-modified . line_dim))
    
12.              )
    
13.            )
    
14.           )
    
15.     )
    
16.   
    
17.   )
    
18. (defun line_dim (a b c / line line_pa long pa pb pta ptb)
    
19.   (setq line a)
    
20.   (setq dim (Vlax-Invoke-Method
    
21.               (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument)
    
22.               'HandleToObject
    
23.               (car (vlr-data b))
    
24.               )
    
25.         )
    
26.   (setq dim (entget (vlax-vla-object->ename dim))
    
27.         p10 (cdr (assoc 10 entlis))
    
28.         P13 (cdr (assoc 13 entlis))
    
29.         P11 (cdr (assoc 11 entlis))
    
30.         )
    
31.   (setq pa (vlax-curve-getstartPoint line))
    
32.   (setq pb (vlax-curve-getendPoint line))
    
33.   (entmod (subst (cons 13 pa) (assoc 13 dim) dim))
    
34.   (entmod (subst (cons 14 pb) (assoc 14 dim) dim))
    
35.   (princ)
    
36.   )

(defun c:t2 (/ line dim_handle dim line_dim line_dim_reactor)<br />   (Setq line (Vlax-Ename->Vla-Object (car (entsel))))<br />   (Setq dim (Vlax-Ename->Vla-Object (car (entsel))))<br />   (setq dim_handle (Vlax-Get dim 'Handle))<br />   (if (not line_dim_reactor)<br />     (setq line_dim_reactor<br />            (vlr-pers<br />            (vlr-object-reactor<br />              (list line)<br />              (list dim_handle)<br />              '((:vlr-modified . line_dim))<br />              )<br />            )<br />           )<br />     )<br />   <br />   )<br /> (defun line_dim (a b c / line line_pa long pa pb pta ptb)<br />   (setq line a)<br />   (setq dim (Vlax-Invoke-Method<br />               (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument)<br />               'HandleToObject<br />               (car (vlr-data b))<br />               )<br />         )<br />   (setq dim (entget (vlax-vla-object->ename dim))<br />         p10 (cdr (assoc 10 entlis))<br />         P13 (cdr (assoc 13 entlis))<br />         P11 (cdr (assoc 11 entlis))<br />         )<br />   (setq pa (vlax-curve-getstartPoint line))<br />   (setq pb (vlax-curve-getendPoint line))<br />   (entmod (subst (cons 13 pa) (assoc 13 dim) dim))<br />   (entmod (subst (cons 14 pb) (assoc 14 dim) dim))<br />   (princ)<br />   )

daiguafan

七七0707 发表于 2013-8-12 09:00

确实可以了啊。请问改了那个地方啊？就最后几句？

七七0707

daiguafan 发表于 2013-8-12 16:19
确实可以了啊。请问改了那个地方啊？就最后几句？

一共就那么几行代码，自己逐行仔细看一遍的耐心都没有吗？

jyzas

不错，下来试试是怎样的