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 |
1294 | 다중플룻 오류 관련 [2] | 서울교통 | 2016.01.05 | 165 |
1293 | 드림 오류 관련 문의합니다. [4] | DOMINO | 2016.01.04 | 97 |
1292 | 사용기간이 만료되었습니다..(아직 많이 남았는데요..-,-;) [1] | 여름휴가 | 2016.01.04 | 247 |
1291 | 드림 명령어중에 질문이 있는데요. [2] | PEACE CAD | 2015.12.29 | 39 |
1290 |
캐드질문이긴한데;;여쭤보려구요 ㅠ
[2] ![]() | 즐똥이 | 2015.12.29 | 2 |
1289 | 실행을 하면 강제 종료가 됩니다. [1] | 박재우 | 2015.12.28 | 1443 |
1288 | 드림 메뉴바 글씨크기 [1] | 이츠 | 2015.12.26 | 228 |
1287 | 2016 64Bit 에서 메뉴버튼이 나오지 않네요? [1] | 캐드 사용자 | 2015.12.24 | 98 |
1286 | 드림플러스 사용시 기존드림 .mnr파일을 이용하여 명령어 불러오기 [1] | 고슴도치 | 2015.12.23 | 110 |
1285 | 오토캐드 2016 드림 오류 문의합니다. [1] | 강동엽 | 2015.12.23 | 737 |
1284 | zw캐드 관련문의 [1] | 게벨라 | 2015.12.23 | 262 |
1283 | 드림 플러스 실수로 날짜가 변경되어 실행이 안돼요.. [2] | 샤샥이 | 2015.12.22 | 215 |
1282 | 드림명령어 실행시에 알수없는 명령어 오류가 납니다. [2] | 초보사용자 | 2015.12.22 | 99 |
1281 | 도면분할 원점이동 [1] | 겨울 | 2015.12.21 | 56 |
1280 | 도면분할 [1] | 야옹 | 2015.12.19 | 65 |
안녕하세요.
죄송합니다만 제가 리습 언어는 모릅니다.
제가 할줄아는 것은 드림과 관련된 언어뿐입니다.
고캐드 질문 게시판에 질문 남기시는 것이 좋을 것 같습니다.
http://www.gocad.co.kr/