[VBA程序]：lsp反应器讨论

hy_rxiao

希望大家发言，我有一简单代码供大家学习交流

(defun line-c (obj rea par)
  (setq cen (handent (vlr-data rea)))
  (setq        len (vlax-vla-object->ename obj)
        le1 (entget len)
        pt1 (cdr (assoc 10 le1))
        pt2 (cdr (assoc 11 le1))
  )
  (setq        ce1 (entget cen)
        ce1 (subst (vl-list* 10 pt2) (assoc 10 ce1) ce1)
        ce1 (subst (vl-list* 40 (/ (distance pt1 pt2) pi 2))
                   (assoc 40 ce1)
                   ce1
            )
  )
  (entmod ce1)
)

(defun c:tr()
  (setq        pt1 (getpoint "\n start pt:")
        pt2 (getpoint "\n end pt:")
  )
  (command "line" pt1 pt2 "")
  (setq len (entlast))
  (command "circle" pt2 (/ (distance pt1 pt2) pi 2))
  (setq ch1 (cdr (assoc 5 (entget (entlast)))))
  (setq rlt (cons (vlax-ename->vla-object len) '()))
  (setq        vrl (vlr-pers (vlr-object-reactor
                        rlt
                        ch1
                        '((:vlr-modified . line-c))
                      )
            )
  )
  (princ "\nreactors:")
  (princ (vlr-reactors))
  (princ)
)

jinsong-liao

不知道该程序能实现啥具体功能？

nyp

同意楼上观点，请楼主具体说说。

WHGF

没有说明，只好自己研究了

小九喜欢吃葡挞

我去下载看看。。。。正在做一涵洞

adian2000

这个程序很好地说明了反应器的使用。