反应器返回怎么弄

kingofauto

刚刚学反应器，闭合线点变动，面积也跟着变。返回不知道怎么写?高手帮忙看看
(defun C:test (/ mSpace MtextH OBJ P2 PT2 ss s)
  (setq        mSpace (vla-get-ModelSpace
                 (vla-get-ActiveDocument (vlax-get-acad-object))
               )
  )
  (setq MtextH (* (getvar "DIMSCALE") (getvar "DIMTXT")))                               
  (setq p2 (getpoint  "\n选择标注文字位置:"))
  (setq pt2 (vlax-3D-point p2))  
  (setq ss (vlax-ename->vla-object (car (entsel))))
  (setq s (vlax-get ss 'Area))
  (setq        obj (vla-addMtext
                   mSpace
                   pt2
                   0.0
                   (strcat "S=" (rtos s 2 1))
                 )
  )
  (vlax-put obj 'Height MtextH)
  (setq hand (vlax-get ss 'Handle))  
  (vlax-put obj 'InsertionPoint p2)
  (vlr-object-reactor
  (list obj)
  (list hand)
    '((:vlr-modified . mj))
  )
  (princ)
)

自贡黄明儒

可以参考一下，http://bbs.xdcad.net/thread-704279-1-1.html
写法都差不多