728x90 복사2 멀티 회전복사 리습 ;멀티 회전복사 -> 입력각도다르게 (defun c:crr (/ os ss cn af en nang) (defun *error* (msg)(princ "error: ")(princ msg) (setvar "osmode" os) (princ)) (setq os (getvar "osmode")) (setq ss (ssget)) (SETVAR "OSMODE" 32) (setq cn (getpoint "\n > Base point : ")) (setq af (getstring 5 "\n > Rotate Angle : ")) (SETVAR "OSMODE" 0) (command "copy" ss "" cn cn "Rotate" ss "" cn af ) (while (setq Nang (getstring "\n > .. 2023. 2. 14. 일정간격 다중 복사 리습 MC : 수평 수직 입력 간격으로 연속 다중복사 CR : 다중 회전복사 각도 다르게 입력가능 (동일간격은 엔터 ) ;━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ;MC.LSP..... 다중복사(방향 임의 지정) ;멀티 복사 -> 1 객체선택 2 방향 지정 3간격입력 4 연속 엔터 ;━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ (defun C:MC ( / os1 ent tdist pnt1 spt1 ang1 dist udist) ;->*error* start (defun *error* (msg)(princ "\n 오류내용 : ")(princ msg) (setvar "osmode" os1) (princ)) ;- 입력각도다르게 (동일 각도 반복은 엔터) ; by SuHa ;━━━━━━━━━.. 2023. 2. 14. 이전 1 다음 728x90