求FL大侠的几个函数

lucas3

俾人实在无能，请求各位高人相助！感激不尽！

1. fy:cset->objs,
   
2. fy:startundo,
   
3. fy:unsetv,
   
4. fy:endundo.

fy:cset->objs,<br /> fy:startundo,<br /> fy:unsetv,<br /> fy:endundo.

st788796

(defun fy:cset->objs (/ el)
   (vlax-for obj (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))
      (setq el (cons obj el))
   )
  el
)
(defun fy:startundo ()
   (vla-startundo (vla-get-activedocument (vlax-get-acad-object)))
)
(defun fy:endundo ()
  (vla-endundo (vla-get-activedoument (vlax-get-acad-object)))
)

有些语句重复，app 中应该是把重复语句在前面又定义为子函数了
http://bbs.xdcad.net/thread-671318-1-1.html

fy:unsetv 应该是 eachy 推荐的两个函数之一
http://bbs.xdcad.net/thread-672080-1-1.html