먼저 감사합니다…(_ _)
센터라인인데요.
오류가 자주 나네요.
몇줄 고견 부탁합니다.
(defun dtr (a)
(* pi (/ a 180.0)))
(defun c:cl (/ a b lay rad cen pt1 pt2 pt3 pt4)
(setq lay (getvar “clayer”))
(setq ly (tblsearch “layer” “4”))
(if (= ly nil)(command “-layer” “m” “4” “c” “1” “” “l” “center” “” “s” lay “”))
(setq a (entsel “n원(Circle) 또는 호(Arc)를 선택하시오: “))
(setq b (entget (car a)))
(setq cen (cdr (assoc 10 b)))
(setq rad (cdr (assoc 40 b)))
(setq pt1 (polar cen (dtr 90) (+ rad (/ rad 5))))
(setq pt2 (polar cen (dtr -90) (+ rad (/ rad 5))))
(setq pt3 (polar cen (dtr 180) (+ rad (/ rad 5))))
(setq pt4 (polar cen (dtr 0) (+ rad (/ rad 5))))
(command “line” pt1 pt2 “”)
(command “chprop” “l” “” “la” “4” “”)
(command “line” pt3 pt4 “”)
(command “chprop” “l” “” “la” “4” “”)
(princ)
)
항상 건강하세요.
에러 구문이 뭐라고 뜨는가요?
에러가 뜰 가능성 있는 구문은 레이어 4번이 작업하는 도면에 없을때 레이어가 없어서 에러 뜰 가능성이 있군요
4번 레이어는 있는상태에서 에러라기 보단 점이 찍힌다거나,
엉뚱한곳에 이어져 찌그러진 형태로 그려집니다. 고견 감사드립니다.
(defun dtr (a)
(* pi (/ a 180.0)))
(defun c:cl (/ a b lay rad cen pt1 pt2 pt3 pt4 os_mode)
(setq lay (getvar “clayer”))
(setq ly (tblsearch “layer” “4”))
(if (= ly nil)(command “-layer” “m” “4” “c” “1” “” “l” “center” “” “s” lay “”))
(if (setq a (entsel “n원(Circle) 또는 호(Arc)를 선택하시오: “))
(progn
(setq b (entget (car a)))
(setq cen (cdr (assoc 10 b)))
(setq rad (cdr (assoc 40 b)))
(setq pt1 (polar cen (dtr 90) (+ rad (/ rad 5))))
(setq pt2 (polar cen (dtr -90) (+ rad (/ rad 5))))
(setq pt3 (polar cen (dtr 180) (+ rad (/ rad 5))))
(setq pt4 (polar cen (dtr 0) (+ rad (/ rad 5))))
(setq os_mode (getvar “osmode”))
(setvar “osmode” 0)
(command “line” pt1 pt2 “”)
(command “chprop” “l” “” “la” “4” “”)
(command “line” pt3 pt4 “”)
(command “chprop” “l” “” “la” “4” “”)
(setvar “osmode” os_mode)
)
);end of if.
(princ)
)
먼저 관심가져주시고 도움주신점 감사합니다.
그런데 이거 적용해봤는데, 로드해도 명령이 활성화가 안돼네요…ㅠㅠ
네 알고 있습니다.
여기 고캐드에 올리면 “”가 아니고 “”이렇게 변합니다.
프로그램을 복사해서 모두 변경해야 할 겁니다.