2016.08.30 09:07
(defun c:att (/ radd L:1 L:22 L1 L2 L3 dist dist11 dist22 dist1)
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(command "color" "bylayer")
; (command "layer" "unlock" "*" "")
(prompt "\n Automatic wire... ")
(setq radd (getvar "filletrad"))
(setq radd (fix radd))
(prompt "\n How much Fillet Radius <")
(prin1 radd)
(setq L:1 (getdist "> : "))
(if (/= L:1 nil)
(progn
(setvar "filletrad" L:1)
(setq radd L:1)
)
(setq L:1 radd)
)
(command "osnap" "QUA,MID")
(setq L1 (getpoint "\n Pick First line point : "))
(setq L2 (getcorner L1 "\n Pick Second point : "))
(setvar "osmode" 0)
(setq L3 (list (car L1) (cadr L2)))
(setq dist11 (distance L3 L1))
(setq dist22 (distance L2 L3))
(if (< dist11 dist22)
(setq dist dist11)
(setq dist dist22)
)
(if (< dist L:1)
(setq L:1 (* 3 (/ dist 4)))
)
(if (or (= (car L1) (car L2)) (= (cadr L1) (cadr L2)))
(command "line" L1 L2 "")
(progn
(command "pline" L1 "w" "0" "" L3 L2 "")
(command "fillet" "r" L:1)
(command "fillet" "p" "L")
(setvar "filletrad" radd)
)
)
(setvar "blipmode" 0)
)
리습을 사용하고나면 스냅옵션이 모두 꺼져요...
어떻게 수정하면 좋을까여
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
공지 | ★ 드림플러스 질문은 메일 또는 홈페이지에 부탁합니다 ★ | 아저씨 | 2017.05.16 | 2774 |
공지 | 제목이 엉망이면 답변달지 않습니다. [1] | 아저씨 | 2014.04.04 | 23853 |
공지 | 순수 캐드 질문은 고캐드로 | 아저씨 | 2013.05.28 | 68640 |
공지 | 질문 답변 게시판을 만들었습니다. | 아저씨 | 2013.02.09 | 74943 |
544 | 2010아무리 노력 해도 안돼요 [1] | 왕초보 | 2016.02.18 | 72 |
543 | 안녕하세요 setup을하는데 마지막에 이런메세지가떠네요 [2] | 대군 | 2015.01.23 | 72 |
542 | 최근 DREAM 업데이트 이후..문제점?인지 확인좀 부탁드릴께요 [1] | 김영찬 | 2020.04.20 | 71 |
541 | 다중플롯 배치탭 출력 관련오류 질문입니다. [1] | 김원재 | 2017.08.29 | 71 |
540 | 응용프로그램 로드시 오류 메세지가 뜹니다 [1] | 홍예은 | 2015.12.13 | 71 |
539 | 드림등록후 오류사항 [1] | kyseo | 2015.10.05 | 71 |
538 | 다중플롯 및 블록 수량 관련 문의 [2] | 궁금함 | 2015.08.21 | 71 |
537 | 도면 일괄처리에서 삽입 관련 질문입니다. [2] | 선달 | 2018.05.28 | 70 |
536 | 드림 윈도우1 0 설치시 질문(기존) [1] | 살려주세요 | 2018.05.15 | 70 |
535 | Pel 명령문의드려요 [1] | 강상수 | 2017.09.18 | 70 |
534 | 드림설치후 크롬이 실행이 안되요 [1] | 수자 | 2017.05.08 | 70 |
533 | xy 좌표쓰기 질문이요 [1] | 기사 | 2015.02.02 | 70 |
532 | 캐드 관련 질문 드립니다. [1] | 호랑이 | 2022.01.07 | 69 |
531 | 드림플러스 7월10일 버전에 명령어가 추가 또는 변경된것이 있는건가요?? [4] | 모사워니 | 2016.07.11 | 69 |
530 | 2010드림 깔고 캐드탭을 깔았더니 드림이 안되네여!? [3] | 소프트탑 | 2015.11.17 | 69 |
안녕하세요.
죄송합니다만 제가 리습 언어는 모릅니다.
제가 할줄아는 것은 드림과 관련된 언어뿐입니다.
고캐드 질문 게시판에 질문 남기시는 것이 좋을 것 같습니다.
http://www.gocad.co.kr/