현재 이 리습을 사용 하는데요…
이 리습으로 그리면 0번으로 출력 되는것을
현재 선택 되어있는 레이어로 출력 되게끔
밑에 있는 외형선 레이어 0에 해당하는 부분을 이것저것으로 바꿔보았는데 원하는대로 안되네요 ㅠ
어떻게 수정해야 될지 알려주시면 감사하겠습니다!!
평면도 핀홀 리습
(defun c:vg (/ D1 pt0 PT1 PT2 PT3 PT4 PT1A PT2A PT3A PT4A r1 R2 os cla)
(setq os (getvar "osmode"))
(setq cla (getvar "clayer"))
(setq pt0 (getpoint "n≫ Pin의 중심점을 선택하세요 : "))
(setq d1 (getreal "n≫ Pin의 지름을 입력하세요 : "))
(setq r1 (/ d1 2))
(setq r2 (/ r1 2))
(setq pt1 (list (+ (car pt0) r2) (cadr pt0)))
(setq pt1a (list (+ (car pt0) (* r1 1.5)) (cadr pt0)))
(setq pt2 (list (- (car pt0) r2) (cadr pt0)))
(setq pt2a (list (- (car pt0) (* r1 1.5)) (cadr pt0)))
(setq pt3 (list (car pt0) (+ (cadr pt0) r2)))
(setq pt3a (list (car pt0) (+ (cadr pt0) (* r1 1.5))))
(setq pt4 (list (car pt0) (- (cadr pt0) r2)))
(setq pt4a (list (car pt0) (- (cadr pt0) (* r1 1.5))))
(setvar "osmode" 0)
(command "-LINETYPE" "S" "center" "")
(command "layer" "s" "1″ "") ;; 사용자 변경 부분 -중심선 레이어 22
(command "line" pt1a pt2a "")
(command "line" pt3a pt4a "")
(command "-LINETYPE" "S" "bylayer" "")
(command "layer" "s" "0″ "")
(command "circle" pt0 r1) ;; 사용자 변경 부분 -외형선 레이어 0
(command "pline" pt1 "w" r1 "" "a" "a" 90 pt3 "")
(command "pline" pt2 "w" r1 "" "a" "a" 90 pt4 "")
(command "pline" pt2 "w" "0″ "0″ *consol*)
(setvar "osmode" os)
(setvar "clayer" cla)
); end of defun
(defun bot_er (s)
(if (/= s "Function Cancelled")
(if (= s "quit / exit abort")
(princ) (princ (strcat "nERROR :" s)) ))
(setvar "cmdecho" ocmde) (setvar "osmode" oosmo)(setvar "clayer" cla)
(setq *error* olderr)
(princ))
(defun dtr (dtr1)(* pi (/ dtr1 180.00)))
(defun ss-add () (while (setq lst(entnext lst))(ssadd lst ss) ))
(defun out_lay () (command "layer" "s" "0″ ""))
(defun cen_lay () (command "layer" "s" "22″ ""))
(command "layer" "s" "0″ "")
이부분을
(setvar "clayer" cla)
으로 바꾸세요
감사합니다!!