아래 리습은 교차점에 모따기 하는 리습입니다
근데 명령창에 오류: 입력에서 잘못된 리스트가 나와요
몇번을 보고 또 봤는데
어디가 잘못된건지 도대체 알수가 없어요
회원님들 답변좀 부탁드립니다
수고하세요
(defun c:vvv ()
(setvar “cmdecho” 0)
(setq now_osmode (getvar “osmode”))
(setvar “osmode” 0)
(while (setq base_line (entsel “n>>모따기 기준선 입력… : “))
(redraw (car base_line) 3)
(if (setq chamfer_line (entsel “n>>모따기 처리할 LINE 입력… : “))
(progn
(redraw (car chamfer_line) 3)
(setq base_line_db (entget (car base_line)))
(setq base_line_sp (cdr (assoc 10 base_line_db))
base_line_ep (cdr (assoc 11 base_line_db))
)
(setq chamfer_line_db (entget (car chamfer_line)))
(setq chamfer_line_sp (cdr (assoc 10 chamfer_line_db))
chamfer_line_ep (cdr (assoc 11 chamfer_line_db))
)
(setq inter_pt (inters base_line_sp
base_line_ep
chamfer_line_sp
chamfer_line_ep
)
)
(if (not chamfer_dist)
(setq chamfer_dist 5)
)
(setq c_dist (getdist (strcat “n>>모따기 값을 입력하세요<” (rtos chamfer_dist 2 0 ) “> … : “)))
(if c_dist
(setq chamfer_dist c_dist)
)
(setvar “chamfera” chamfer_dist)
(setvar “chamferb” chamfer_dist)
(command “_break” chamfer_line “f” inter_pt inter_pt)
(setq chamfer_line2 (entlast))
(command “_chamfer” (car base_line) (car chamfer_line))
(command “_chamfer” (car base_line) chamfer_line2)
(setvar “osmode” now_osmode)
(princ)
)
괄호 개수가 안맞아요