daiguafan 发表于 2013-8-9 23:14:01

反应器的一个问题


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


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

daiguafan 发表于 2013-8-12 08:24:25

没有一个人帮帮忙啊》

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

(defun c:t2 (/ line dim_handle dim line_dim line_dim_reactor)
(Setq line (Vlax-Ename->Vla-Object (car (entsel))))
(Setq dim (Vlax-Ename->Vla-Object (car (entsel))))
(setq dim_handle (Vlax-Get dim 'Handle))
(if (not line_dim_reactor)
    (setq line_dim_reactor
         (vlr-pers
         (vlr-object-reactor
             (list line)
             (list dim_handle)
             '((:vlr-modified . line_dim))
             )
         )
          )
    )

)
(defun line_dim (a b c / line line_pa long pa pb pta ptb)
(setq line a)
(setq dim (Vlax-Invoke-Method
            (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument)
            'HandleToObject
            (car (vlr-data b))
            )
      )
(setq dim (entget (vlax-vla-object->ename dim))
      p10 (cdr (assoc 10 entlis))
      P13 (cdr (assoc 13 entlis))
      P11 (cdr (assoc 11 entlis))
      )
(setq pa (vlax-curve-getstartPoint line))
(setq pb (vlax-curve-getendPoint line))
(entmod (subst (cons 13 pa) (assoc 13 dim) dim))
(entmod (subst (cons 14 pb) (assoc 14 dim) dim))
(princ)
)

daiguafan 发表于 2013-8-12 16:19:02

七七0707 发表于 2013-8-12 09:00 static/image/common/back.gif


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

七七0707 发表于 2013-8-13 10:32:20

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

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

jyzas 发表于 2013-8-15 20:54:00

不错，下来试试是怎样的
页: [1]
查看完整版本: 反应器的一个问题