(defun c:xxt (/ os1 ss n e en a10 p1 p2 len )
(setq os1 (getvar “OSMODE”))
(setvar “OSMODE” 0)
(setq ss (ssget ‘((0 . “circle,arc,insert,LWpolyline”))))
(setq n 0)
(setq len 0.01)
(repeat (sslength ss)
(setq e (ssname ss n))
(setq en(entget e))
(setq a10(cdr(assoc 10 en)))
(setq p1 (POLAR a10 0.0 len))
(setq p2 (POLAR a10 pi len))
(command “xline” “v” p1 p2 “”)
(setq n(1+ n))
(setvar “OSMODE” os1)
(princ)
기존에 있던 리습 수정해서 만들어보고 있습니다.
osmode 세팅값 변수에 저장해놓고
다시 세팅값 불러오는데 여전히 0으로 되네요
어떤부분이 잘못되었는지 알수 있을까요??
(defun c:xxt (/ os1 ss n e en a10 p1 p2 len )
(setq os1 (getvar “OSMODE”))
;;;;;(setvar “OSMODE” 0) 2. 여기 있어도 프로그램은 정상적으로 실행은 됩니다만….
(setq ss (ssget ‘((0 . “circle,arc,insert,LWpolyline”))));;;4. 여기에서 오브젝트를 선택하지만 취소 할 수도 있기때문….
(setq n 0)
(setq len 0.01)
(setvar “OSMODE” 0);;;;3. 이 위치가 가장 좋습니다.;
(repeat (sslength ss)
(setq e (ssname ss n))
(setq en(entget e))
(setq a10(cdr(assoc 10 en)))
(setq p1 (POLAR a10 0.0 len))
(setq p2 (POLAR a10 pi len))
(command “xline” “v” p1 p2 “”)
(setq n(1+ n))
);;;;; 1. 프로그램에서 누낙되었네요….
(setvar “OSMODE” os1)
(princ)
감사합니다 !! 또 하나 배웠네요 꾸벅
여기 올라온 구문대로라면 괄호가 2~3개정도 누락됐네요