(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/