[Ãâó] ¼ö¾ßÀÇ ¼³°è [¿øº»] http://www.mechapia.com/plog/plog_view.php?HomeID=cmguy33&pid=928 |
;ÂüÁ¶È¸Àü (defun c:roc(/ ss rc1 rc2 p1) ;->*error* start (defun *error* (msg)(princ "error: ")(princ msg) (setvar "osmode" os) (princ)) ;-<*error* end (setq os (getvar "osmode")) (setq ss (ssget)) (setvar "osmode" 37) ; 1 ³¡, 32 ±³Â÷, 4 Á᫐ (setq p1 (getpoint " ¡í ±âÁØÁ¡ ÁöÁ¤:")) (setq rc1 (getpoint p1 (strcat " ¡í ÇöÀç°¢ ³¡Á¡ ÁöÁ¤ :"))) (setq rc2 (getpoint p1 " ¡í »õ·Î¿î°¢ ³¡Á¡ ÁöÁ¤ :")) (command "undo" "be") (setvar "osmode" 0) (command "rotate" ss "" p1 "r" p1 rc1 rc2) (setvar "osmode" os) (command "undo" "e") (princ) );defun |