이번에 cad 2008을 사용하다가 캐드를 2013으로 바꾸었습니다.
리습 설정은 다했는데 한부분이 오류가 나서 이렇게 질문합니다.
자동배선에 관한 리습입니다.
(defun c:at (/ radd L:1 L:22 L1 L2 L3 dist dist11 dist22 dist1)
(setvar “cmdecho” 0)
(setvar “blipmode” 0)
(command “color” “bylayer”)
(if (tblsearch “layer” “wire”)
(command “layer” “s” “wire” “”)
(progn
(command “layer” “new” “wire” “color” “2” “wire” “”)
(command “layer” “s” “wire” “”)
)
)
; (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” “end,cen,mid,qua,int,node,perpendicular,ext”)
(setq L1 (getpoint “n Pick First line point : “))
(setq L2 (getcorner L1 “n Pick Second point : “))
(setvar “osmode” 191)
(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)
)
)
(if (tblsearch “layer” “wire”)
(command “chprop” “l” “” “la” “wire” “c” “bylayer” “”)
(progn
(command “layer” “new” “wire” “color” “2” “wire” “”)
(command “chprop” “l” “” “la” “wire” “c” “bylayer” “”)
)
)
(setvar “blipmode” 0)
)
위의 리습을 실행시 선이 직각만 되고 필렛값은 오류가 납니다.
오류내용은 아래와 같습니다.
알 수 없는 명령 “R”. 도움말을 보려면 F1을 누르십시오.
150
알 수 없는 명령 “FILLET”. 도움말을 보려면 F1을 누르십시오.
알 수 없는 명령 “P”. 도움말을 보려면 F1을 누르십시오.
알 수 없는 명령 “L”. 도움말을 보려면 F1을 누르십시오.
0
명령: *취소*
고수님들의 많은 가르침 부탁드리겠습니다.
공유