[求助]：图元位置变化，数据如何即时变化？难！难！难死我也！！！

jinsong-liao

移动或者拉伸多义线的顶点位置，如何让坐标表中的各顶点坐标数据即时更新？
即顶点位置变化，表中数据即时变化。
坐标表是由LISP程序自动生成的DWG文件，且与图元在同一DWG文件中。

   此问题困扰本人许久时间，不知能否实现，用啥办法才能实现？网上高手如云，
，本人才疏学浅，请各位指点迷津。不甚感激！！！

lsjjm

你这里所说的“自动生成的DWG文件”？TABLE？ TEXT？
在移动或者拉伸多义线的顶点位置后重新提取坐标数据， 然后赋予相应的实体即可。。。

panzhongw

只有使用反应器，但这样并不值得，建议可以作一个搜索更新，这样的效率更高。

jinsong-liao

如何作一个搜索更新啊？能否说的更详细点？
反应器我也不知道如何使用，请问须看啥方面的资料？

cyxzime

不知是啥意思，解释一下。

John

秋枫的关联标高程序有类似功能，不过我没想通实现原理在哪

Job_ho

使用物件反应器vlr-object-reactor,事件为:vlr-modified
下面是书本上的实例
虽说与想要的功能无关,但这是一个很好的物件反应器的实例
如能举一反三,其实精华就在其中
反应器如果不懂很难学通,建议一定要买书来看,并不断的测试

;---------------------------------------------------------------------------------------
(VL-Load-Com)
(Defun Line-C (notifier-object reactor-object parameter-list)
       (SetQ cen (HandEnt (VLR-Data reactor-object)))
       (SetQ len (VLAX-VLA-Object->EName notifier-object)
      lel (EntGet len)
      pt1 (Cdr (Assoc 10 lel))
      pt2 (Cdr (Assoc 11 lel))
       )
       (SetQ cel (EntGet cen)
             cel (Subst (VL-List* 10 pt2) (Assoc 10 cel) cel)
             cel (Subst (VL-List* 40 (/ (Distance pt1 pt2) Pi 2))(Assoc 40 cel) cel)
       )
       (EntMod cel)
)

;-----------------------------------------------------------------------------------------
(Defun C:TR01 ()
      (SetQ pt1 (GetPoint "\n起点：")
            pt2 (GetPoint pt1 "\n末点：")
      )
      (Command "line" pt1 pt2 "")
      (SetQ len (EntLast))
      (Command "circle" pt2 (/ (Distance pt1 pt2) Pi 2))
      (SetQ chl (Cdr (Assoc 5 (EntGet (EntLast)))))
      (SetQ rlt (Cons (VLAX-EName->VLA-Object len) '()))
      (SetQ vrl (VLR-Pers (VLR-Object-Reactor rlt chl '((:vlr-modified . Line-C)))))
      (PrinC "\n已建立的反应器有: ")(PrinC (VLR-Reactors))
      (PrinC)
)
;--------------------------------------------------------------------

jinsong-liao

要学的东西真不少，活到老，学到老！