장공1 선택점 중심에서 장공 그리기 리습 ;;선택점 중심에서 장공 그리기 (defun c:SL(/ os cla ort cp dia rad len hlen p1 p2 p3 p4 p5 p6) ; 지역변수와 defun 정의,명령어 JG ;아래 두줄은 명령 실행중 취소를 하거나 에러 발생시 에러 메세지를 띄우고 osmode, clayer, orthomode 를 초기값으로 되돌림 (defun *error* (msg)(princ "error: ")(princ msg) (setvar "osmode" os) (setvar "clayer" cla)(setvar "orthomode" ort) (princ) ) ;;에러 핸들러 끝 (prompt "\n 선택점 중심에서 장공 그리기") ; 화면에 보여질 문장 (setq os (getvar "osmode")) ; 현재.. 2023. 2. 14. 이전 1 다음