;;=========================================================
; dot로 표현된 지시선 그리기(01cho_i)
;;———————————————————
(defun c:ar1(/ ot os sc cl ltsc pt1 pt2 pt3 sc3 ag)
(prompt “…Dot지시선 그리기”)(terpri)
(setq ot (getvar “orthomode”) os (getvar “osmode”)
ltsc (getvar “ltscale”) cl (getvar “clayer”) )
(setvar “osmode” 512) (setvar “orthomode” 1)
(prompt “nScale factor<“) (prin1 ltsc) (prompt “>:”)
(setq sc (getint))
(if (= sc nil) (setq sc ltsc))
(setq pt1 (getpoint “nEnter first point->”))
(setvar “osmode” 0)
(laset “a-sym”)
(command “donut” 1 sc pt1 “”)
(command “line” pt1 pause)
(laset cl)
(setvar “orthomode” ot) (setvar “osmode” os)
(prin1)
)
리습이 사용하면
Error:no function definition: LASETAutoCAD 변수 설정이 거부됨: “blipmode” nil
이라는 오류가 뜨면서 실행이 안됩니다.
뭐때문인지 수정 좀 부탁드립니다.
/
그리고 참고로 하나만 더 여쭤보자면 리습을 사용하면 자꾸 오스냅이 꺼지는데
이거는 어떤걸 수정해야하는지 좀 부탁드립니다…!
리습파일을 말씀하시는건가요?
(defun LASET () 로 시작되는 파일은 리습파일을 말씀하시는건가요,,?
(laset “a-sym”) => (setvar “clayer” “a-sym”)
“a-sym” 은 지정 레이어 명으로 수정하시고…
(laset cl) => (setvar “clayer” cl) 로 바꿔도 실행은 되실듯