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 | 2775 |
공지 | 제목이 엉망이면 답변달지 않습니다. [1] | 아저씨 | 2014.04.04 | 23854 |
공지 | 순수 캐드 질문은 고캐드로 | 아저씨 | 2013.05.28 | 68641 |
공지 | 질문 답변 게시판을 만들었습니다. | 아저씨 | 2013.02.09 | 74943 |
784 | xp입니다. 드림명령어변경을 선택오류 [1] | 크리스탈 | 2014.09.02 | 500 |
783 | 안녕하세요. 수고많으십니다. 캐드 2015 64bit 사용자입니다.. [2] | 64궁금 | 2014.10.10 | 501 |
782 | 다중플롯시 미리보기 에러 [1] | 망치아빠 | 2014.07.07 | 503 |
781 | 오토캐드 map 3d 2015, 윈도우10, 운영가능여부 [1] | 신재용 | 2016.05.11 | 503 |
780 | AUTOCAD 2015 DLL로드오류 [4] | 태운산업개발 | 2016.12.18 | 503 |
779 | Dream 설치관련 문의 [1] | 에릭 | 2013.12.08 | 505 |
778 | 매뉴얼작성시 사용하신 예제를 받을 수 있나요 ? [1] | 임준호 | 2014.05.18 | 506 |
777 | 최대/최소값 찾기 기능(MAX)버그 [3] | 남 | 2014.04.13 | 507 |
776 | 블록을 사용하고있는데 2014에서 안되는부분이있어서 도움요청합니다. [1] | 울트라곰 | 2013.11.28 | 508 |
775 | 윈도우XP 드림설치 문의합니다 [1] | 미진잉 | 2014.06.20 | 508 |
774 | 같은 버전으로 작성하고 저장한 파일이 열리지 않습니다. [2] | Jyoon | 2015.01.19 | 509 |
773 | 다중플롯관련 질문드릴께요. [1] | 내가대장이 | 2013.12.04 | 510 |
772 | 드림 설치 질문이요 !! | 성공할양반 | 2014.01.07 | 511 |
771 | 드림 오류 질문드려요 [1] | 유박사 | 2014.04.12 | 512 |
770 | 다중플롯시... [1] | 플롯 | 2013.12.10 | 513 |
안녕하세요.
죄송합니다만 제가 리습 언어는 모릅니다.
제가 할줄아는 것은 드림과 관련된 언어뿐입니다.
고캐드 질문 게시판에 질문 남기시는 것이 좋을 것 같습니다.
http://www.gocad.co.kr/