—— 리습 정보 ——– ;;;;자료출력 (if (= sd_list_s000 nil) (setq sd_list_s000 100)) (setq sd_list_s01 (getint (strcat “n문자 높이를 지정하세요:”))) (if (= sd_list_s01 nil) (progn (setq sd_list_s01 sd_list_s000) ) (progn (setq sd_list_s000 sd_list_s01) ) ) (setq sd_list_s02 (getpoint “n문자 위치를 지정하세요:”)) (setq ...더 읽기
고캐드 – 캐드(CAD) 정보의 중심 Latest 질문
블로그에서 배포한 ” 블록 선택시, 지시선으로 이름 추출 ” 리습 입니다. 로드 하여 사용 하려하니 에러가 떠서 고수님들께 도움을 받고자 올려드립니다. 오류 내용 이미지로 첨부 합니다. ** 하기는 리습 입니다. ;;;;블럭이름 알려주는 지시선 리습 (defun c:blockname2text ( / bnt) (setq bnt (getstring “nBlockName to Leader // Text(O)ne // ...더 읽기
—— 리습 정보 ——– ;;;;자료출력 (if (= sd_list_s000 nil) (setq sd_list_s000 100)) (setq sd_list_s01 (getint (strcat “n문자 높이를 지정하세요<“(rtos sd_list_s000 2 0)”>:”))) (if (= sd_list_s01 nil) (progn (setq sd_list_s01 sd_list_s000) ) (progn (setq sd_list_s000 sd_list_s01) ) ) (setq sd_list_s02 (getpoint “n문자 ...더 읽기
안녕하세요 캐드 정보의 중심, 고캐드입니다. 리뉴얼 이후 사이트 이용 관련하여 접수되고 있는 다양한 건의 사항들 중 ‘코드 공유 시 특정 문자열이 변경되어 공유된 코드가 정상 동작 되지 않는 현상’이 확인되어 코드 공유 정상화를 위한 조치를 진행하였습니다. 현재 많은 유저 분들께서 질문/답변 메뉴 등을 통해 리습(Lisp) 코드를 ...더 읽기
제목과 같이 해당 리습사용시 [ no function definition: MEMVAR ] 라는 오류가 발생합니다. 타 질의에서 memvar 함수 리습이 없어서 그렇다고 하는데 그것은 어떻게 해결하는지 궁금합니다. 답변 부탁드립니다. 아래 는 해당 리습 내용입니다. 감사합니다. (defun C:MAC_MC() (memvar “MULTIPLE COPY”) (MEM_OS) (setq sel (ssget)) (setq p1 (getpoint ($p_com “Pick ...더 읽기
오랫만에 캐드 작업하다보니 실수를 해버렸네요 도면 검토하다보니 Z 값이 들쭉날쭉 난리도 아닌데 어찌 다 수정할까요..? 한 두 개 도면이 아니라 일일히 전부 다 수정하기엔 날 샐 것 같은데 분명 예전에 썼던 것 같은데.. 기본 명령에 없는 걸 보니 리습이거나 애드온인 것 같습니다… 오늘 안에 작업 ...더 읽기