Lisp copy xoay đối tượng hay hơn lệnh mocoro

(defun c:cr (/ goc dmoi gocxoay txoay)(prompt "\nChon doi tuong muon copy")(ssget)(setq dgoc (getpoint "\nChon diem goc:"))(setq dmoi (getpoint "\nChon diem den moi:"))(command "copy" "P" "" dgoc dgoc "")(command "move" "p" "" dgoc dmoi "")(setq txoay (getpoint "\nChon tam xoay:"))(if (= txoay nil) (setq txoay dmoi))(setq gocxoay (/ (* (getangle "\nNhap goc xoay:") 180) pi))(command "rotate" "P" "" txoay gocxoay ""))

lisp trên không bị mất wipout lệnh cr, lisp dưới bị mất wipout

(defun c:cr1( / oldcm doituong goc dmoi)
(setq oldcm (getvar "cmdecho"))
(setvar "cmdecho" 0)
(prompt "\nChon doi tuong muon copy")
(setq doituong (ssget))
(setq dgoc (getpoint "\nChon diem goc:"))

(prompt "\nChon diem den moi:");; dong nhac chon diem den moi
(command ".mocoro" doituong "" dgoc "c" pause); tam dung tra lai quyen dieu khien cho CAD de ban thay anh dong va ban chon diem den moi
(prompt "\nChon goc quay :")
(Command  "" "r" pause ""); tiep tuc lenh mocoro con dang do
(setvar "cmdecho" oldcm)
(princ)
)

https://www.cadviet.com/forum/topic/72563-y%C3%AAu-c%E1%BA%A7u-xin-lisp-copy-move-%C4%91%E1%BB%91i-t%C6%B0%E1%BB%A3ng-r%E1%BB%93i-xoay/

(defun c:cr (/ goc dmoi gocxoay txoay)
(prompt "\nChon doi tuong muon copy")
(ssget)
(setq dgoc (getpoint "\nChon diem goc:"))
(setq dmoi (getpoint "\nChon diem den moi:"))
(command "copy" "P" "" dgoc dgoc "")
(command "move" "p" "" dgoc dmoi "")
(setq txoay (getpoint "\nChon tam xoay:"))
(if (= txoay nil) (setq txoay dmoi))
(setq gocxoay (/ (* (getangle "\nNhap goc xoay:") 180) pi))
(command "rotate" "P" "" txoay gocxoay "")
)

Khi tâm xoay trùng với điểm gốc bạn muốn di chuyển tới thì bạn chỉ cần enter và nhập góc xoay;

lisp này khá hay dùng cả cho trường hợp có wipout mà không bị mất wipout như lisp trên và lệnh mocoro