kingofauto 发表于 2016-5-27 15:23:20

反应器返回怎么弄


刚刚学反应器，闭合线点变动，面积也跟着变。返回不知道怎么写?高手帮忙看看
(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)
)


自贡黄明儒 发表于 2016-5-27 20:59:54

可以参考一下，http://bbs.xdcad.net/thread-704279-1-1.html
写法都差不多
页: [1]
查看完整版本: 反应器返回怎么弄