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)
)
리습을 사용하고나면 스냅옵션이 모두 꺼져요...
어떻게 수정하면 좋을까여
안녕하세요.
죄송합니다만 제가 리습 언어는 모릅니다.
제가 할줄아는 것은 드림과 관련된 언어뿐입니다.
고캐드 질문 게시판에 질문 남기시는 것이 좋을 것 같습니다.
http://www.gocad.co.kr/