안녕하세요
선 과 반지름 을 결합을 할려고 하는데
서로 떨어져 있어서 결합이 안되고 있습니다.
그래서 필렛으로 다시 연결을 하고 있는데
이 부분을 리습으로 도움을 받았으면 좋겠습니다.
글 읽어 주셔서 감사합니다.
부탁 드립니다.
공유
비밀번호를 잊으셨나요? 비밀번호를 재설정하려면 이메일 주소를 입력해주세요.
해당 질문을 신고하는 이유를 간단히 입력해주세요.
해당 답변을 신고하는 이유를 간단히 입력해주세요.
해당 유저를 신고하는 이유를 간단히 입력해주세요.
계속 사용중인데 리습의 매력을 느끼고 있습니다^^
감사합니다. 조금이나마 시간이 줄어들게 되었습니다. 꾸벅
Good Job.gif)
잘 동작하네용
집에 있는 컴퓨터에서는 파일 업로드가 안되고, 회사 컴퓨터에서 업로드하니까 되네요.
원인을 모르겠네요. 일단 파일 첨부합니다.
저도 웬만하면 파일 첨부를 하고 싶은데
파일첨부 버튼을 눌러도 파일첨부 창이 뜨지 않아 부득이 텍스트로 올렸습니다.
윈도우 10에 엣지 쓰고 있는데, 파일첨부 기능이 어제부터 안 되네요.
안녕하세요 엔씨벤딩님.gif)
복사 붙혀넣기 한 리습을 캐드로 끌어오면 (드래그 & 드롭) ;오류:입력에서 잘못된 문자열 이라고 메세지가 뜨고 리습 명령어를 치면 알 수 없는 명령이라고 나옵니다
obje2 obje2cnt line2 line22 line2s line2l smem2 pt2v
objea objeacnt limit plusa pointa pointax pointay ) ;;;;;;;;;;;; 호를 클릭해서 같은크기의 필렛 다시 그리기
(setq os (getvar “osmode”))
(setvar “osmode” 0)
(setq pointax (car pointa)
pointay (cadr pointa))
(setq objea nil) ;루프를 시작하기전에 변수에 초기값을 준다.
(setq objeacnt 0)
(setq limit 0)
(setq plusa 0)
(while (and (/= 1 objeacnt) (> 1000 limit) ) ; 클릭한 포인트를 기준으로 가장 근접한 두개의 선을 선택세트에 담는다.
(setq objea nil)
(setq plusa (+ plusa 0.5))
;(command “rectangle” (list ( + point1x plus ) (- point1y plus ) 0 ) (list ( – point1x plus ) (+ point1y plus ) 0 ) ) ;디버깅용 코드
(setq objea (ssget “c” (list ( + pointax plusa ) (- pointay plusa ) 0 ) (list ( – pointax plusa ) (+ pointay plusa ) 0 ) ‘((0 . “ARC”)) ))
(if (/= objea nil)
(setq objeacnt (sslength objea))
)
(setq limit (+ limit 1))
(if (= limit 100 )
(progn
(alert “호 객체 검색 안됨… (Cannot Find Arc)”)
(exit)
);progn end
);if end
) ;eob of while
;(setq rearc (entget (car rearcc)))
(setq rearcc (ssname objea 0))
(setq rearc (entget (ssname objea 0)))
(setq arcr (cdr (assoc 40 rearc))) ;반지름
(setq arcname (cdr (assoc 0 rearc))) ;객체이름
(progn
(alert “호를 선택할 것”)
(exit)
);progn end
);if end
(command “fillet” “r” arcr )
(command “fillet” )
안녕하세요~~댓글 감사합니다
제가 사용할려고 명령어 rer 하니깐 없는 명려어라고 나오는데… 어떻게 해야 할까요?
리습도 하나 첨부합니다.
이 리습은 님이 하시려는 작업을 [완전 노가다] 에서 [약간만 노가다] 로 바꿔줄 겁니다.
아래코드 조금만 손보면 [약간만 노가다]에서 [완전 자동화]로 바꾸는 것도 가능할 겁니다.
(defun c:rer ( / rearcc rearc arcname arcr pt1 pt2 obje objecnt plus point1x point1y limit line1 line11 line1s line1l smem os pt1v point2x point2y
obje2 obje2cnt line2 line22 line2s line2l smem2 pt2v
objea objeacnt limit plusa pointa pointax pointay ) ;;;;;;;;;;;; 호를 클릭해서 같은크기의 필렛 다시 그리기
(defun *error* (msg)(princ “error: “)(princ msg) (setvar “osmode” os) (princ) )
(setq os (getvar “osmode”))
(setvar “osmode” 0)
(setq pointa (getpoint “n 다시그릴 호를 클릭.. ” ))
(setq pointax (car pointa)
pointay (cadr pointa))
(setq objea nil) ;루프를 시작하기전에 변수에 초기값을 준다.
(setq objeacnt 0)
(setq limit 0)
(setq plusa 0)
(while (and (/= 1 objeacnt) (> 1000 limit) ) ; 클릭한 포인트를 기준으로 가장 근접한 두개의 선을 선택세트에 담는다.
(setq objea nil)
(setq plusa (+ plusa 0.5))
;(command “rectangle” (list ( + point1x plus ) (- point1y plus ) 0 ) (list ( – point1x plus ) (+ point1y plus ) 0 ) ) ;디버깅용 코드
(setq objea (ssget “c” (list ( + pointax plusa ) (- pointay plusa ) 0 ) (list ( – pointax plusa ) (+ pointay plusa ) 0 ) ‘((0 . “ARC”)) ))
(if (/= objea nil)
(setq objeacnt (sslength objea))
)
(setq limit (+ limit 1))
(if (= limit 100 )
(progn
(alert “호 객체 검색 안됨… (Cannot Find Arc)”)
(exit)
);progn end
);if end
) ;eob of while
;(setq rearcc (entsel “n 다시그릴 호를 클릭.. “))
;(setq rearc (entget (car rearcc)))
(setq rearcc (ssname objea 0))
(setq rearc (entget (ssname objea 0)))
(setq arcr (cdr (assoc 40 rearc))) ;반지름
(setq arcname (cdr (assoc 0 rearc))) ;객체이름
(if (/= arcname “ARC”)
(progn
(alert “호를 선택할 것”)
(exit)
);progn end
);if end
(command “erase” rearcc “”)
(command “fillet” “r” arcr )
(command “fillet” )
(exit)
유튜브 링크 하나 첨부합니다.
도움 되시길 바랍니다.
https://www.youtube.com/watch?v=hw9CGYnqFSo