如上标题所示,我正在使用ucs lisp,该lisp将根据选定的对象旋转ucs。但是,我不知道如何确保它在使用lisp时正确旋转。(当手动选择时,Ucs将旋转到最近的选定端)
- (defun c:cs ()
- (command "ncopy" pause "" "0,0" "0,0")
- (setq dummy (entlast))
- (command "ucs" "ob" dummy "plan" "current")
- (command "zoom" "o" dummy "")
- (command "erase" dummy "")
- (princ)
- )
- (defun c:cs1 ()
- (command "ucs" "w" "plan" "current")
- (princ)
- )
除此之外,我如何记得上次重置ucs的缩放位置?
顺致敬意, |