Copy and rotate, move and rota

KARDOLITO89 · 发表于 2022-7-5 15:15:04

hello when executing the commands the elements are duplicated in the same place, will there be any way that does not happen? and that the command be repeated
Thank you.

copy

((defun c: cr () (princ "\ n Copiar, & Girar: \ n") (setq ss (ssget)) (comando "copiar" ss "" "0" "0") (comando "mover" ss "" pause pause) (comando "rotar" ss "" "@" pause))(defun c: mr () (princ "\ nMover, & Rotate: \ n") (setq ss (ssget)) (comando "Move" ss "" "0" "0") (comando "move" ss "" pause pause) (comando "rotar" ss "" "@" pause))