동일한 특정 문자가 들어가 있는 여러개의 문자가 있는데 그 특정 문자를 기준으로 텍스트를 자르려고 합니다. 감사하게도 어느 분이 올려 주신 것을 찾았는데 선택은 다중 선택이 되지만 실행은 마지막 작성된 한 객체만 적용이 됩니다. 선택된 문자 모두 적용 될 수 있게 선배님들 조언 부탁 드립니다. 그리고 ...더 읽기
고캐드 – 캐드(CAD) 정보의 중심 Latest 질문
미리 만들어논 블록에 이름을 단순화 하여 리습 內 차트화 한 후에, 리습 실행 -> ABCD -> 엔터 -> A,B,C,D 블록이 어떠한 기준에 의하여 X 거리 값 만큼 이동 된 후에 생성 EX) ABCD 실행 ( 자간 1.0 ) -> A 1mm ...더 읽기
(defun c:cloud (/ *error* plw pt1 pt2 p1 p2 xdist ydist spcsx spcsy ent1 ent2 nxt info bulge data c_o c_l) (defun *error* (msg) (setvar “osmode” c_o) (setvar “clayer” c_l) ) ...더 읽기
“마젠타색 폴리라인의 시작점과 끝점에 잡히는 폴리라인 끊고, 버텍스 끝점 이동” 하는 리습인데 잘 돌아갔었는데 캐드2020에서 안돌아갑니다. 이런 오류가 나면서 점을 못갖고 오는거같은데 제발 수정 부탁드립니다ㅠㅠ 명령: FSS 객체 선택: 반대 구석 지정: 4개를 찾음 객체 선택: 유효하지 않은 점. 유효하지 않은 ...더 읽기
안녕하세요 리습 만드록있는 초보입니다. 최근 치수를 측정하는 리습을 만들었는데, 여러 객체를 선택해서 치수를 측정하는방법이 어려워 블럭을 만든 후 치수를 측정하는 프로그램을 만들었습니다. FILLET이 적용된 부분은 FIILET을 마우스 휠로 확대를 한 후 치수 리습을 상용하면 정확한 치수가 표시됩니다. 하지만 신기하게 도면을 마우스휠로 ...더 읽기
안녕하세요 리습 만드록있는 초보입니다. 최근 치수를 측정하는 리습을 만들었는데, 여러 객체를 선택해서 치수를 측정하는방법이 어려워 블럭을 만든 후 치수를 측정하는 프로그램을 만들었습니다. FILLET이 적용된 부분은 FIILET을 마우스 휠로 확대를 한 후 치수 리습을 상용하면 정확한 치수가 표시됩니다. 하지만 신기하게 도면을 마우스휠로 ...더 읽기
안녕하세요. 자동 어레이 기능의 리습을 만들고있습니다. 원하는 기능은 1. 물체를 선택 2. 배치원하는 크기를 클릭 2번으로 설정 3. 물체와 물체사이의 거리를 지정 4. 해당 값에 따라 물체를 배치하는 판위에 배치 이러한 기능을 만드려고합니다. 혼자 공부해서 사진과같이 배치할 판의 길이, 물체선택 등은 해결하였으나, 물체의 ...더 읽기
제가 쓰고 있는 면적 계산 리습인데요.. 소수점을 마음대로 정할 수 있지만 4자리로 정했을때 다른 면적은 소수점 4자리수로 잘 나오지만, 특정 면적이 4.00003일 경우 결과값은 4라고만 나와서요. 혹시 4.0000으로 나오게 하려면 무엇을 수정해야하나요? (defun c:aq ( / doc space n sum obj sp ep cplst ...더 읽기
(defun c:SG() (command “ZOOM” “E”) ;ZOOM EXTEND (repeat 3 (command “-purge” “a” “*” “n”)) ;PURGE (command “qsave”) ;SAVE (princ) ) 저장 시 ZOOM EXTEND 및 퍼지를 하기위해 만든 리습입니다. 그런데 사진과 같이 새 도면을 저장하려하니 명령창에서 저장하라고 뜨네요.. FILEDIA값은 1이었으며, 혹시몰라 0으로 변경 ...더 읽기
클라우드 이쁘게 쳐지는 LISP인데, 2022에서 사용 하려 하니 오류가 발생하네요. 뭐가 잘못된건가요?? (defun C:RM (/ stp ssp np nnp true dist ft ea ang arc sp) (setq olderr *error* *error* error ) (setvar “CMDECHO” 0) (setq cl (getvar “clayer”)) (setq co (getvar ...더 읽기
안녕하세요 ^^ 금형설계를 업으로 삼고 있는 직딩 입니다. 고캐드에서 리습을 조합해서 치수스타일 변경 ( 없을시 생성 ) 리습을 조잡하게 만들어서 쓰고있는데 .. 치수스타일이 없을경우 생성되는 치수 스타일에 변수값을 적용 해보고 싶습니다 예를들어 ,, 선형 단위 축척 비율 ( DIMLFAC ) 값을 조정해서 생성 하고 싶은데 기존에 ...더 읽기
안녕하세요. 평소처럼 일을 하던중에 갑자기 떠올라서 질문드립니다.. 사진과 같이 모형을 사각 중심에 배치하여 양끝 치수가 동일하고 상하치수가 동일하게 배치하는 작업을 하던중 이것도 분명 리습으로 구현이 될것같아서.. 혹시 알고 계신분이 계시다면 도움을 ...더 읽기
기존 텍스트에 특정 텍스를 기입하는 리습니다. 현제는 단일 선택으로 하나씩 눌려 변경하여야 하는데 여러개 객체를 한번에 선택 할수 있는 코드를 어디에서 바꿔야 할까요? (defun C:PHT ( / TXT_String LOC ELIST EntType Old_TXT Chk_TXT EntType SUB Sub_Ent) (while (= TXT_String nil); ...더 읽기
—— 리습 정보 ——– ;;;;자료출력 (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 ...더 읽기
블로그에서 배포한 ” 블록 선택시, 지시선으로 이름 추출 ” 리습 입니다. 로드 하여 사용 하려하니 에러가 떠서 고수님들께 도움을 받고자 올려드립니다. 오류 내용 이미지로 첨부 합니다. ** 하기는 리습 입니다. ;;;;블럭이름 알려주는 지시선 리습 (defun c:blockname2text ( / bnt) (setq bnt (getstring “nBlockName to Leader // Text(O)ne // ...더 읽기