캐드 분류
리습에서 osmode가 풀려요 ~
컨텐츠 정보
- 48 조회
- 3 댓글
- 0 추천
- 0 비추천
- 목록
본문
(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으로 되네요
어떤부분이 잘못되었는지 알수 있을까요??
리습
관련자료
댓글 3
캐드플러스님의 댓글
(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)
