캐드 분류
REVCOLUD 자동화
컨텐츠 정보
- 204 조회
- 1 댓글
- 0 추천
- 0 비추천
-
목록
본문
(defun c:GF()
(setvar "cmdecho" 0)
(setq osm (getvar "osmode")) ; OS; 저장
(command "ortho" "off")
(setq p1 (getpoint "n 대각 한쪽 끝선 :"))
(setq p2 (getcorner P1 "n 대각 반대편 끝선 :"))
(command "osnap" "")
(command "rectang" p1 p2 "")
(if (= (tblsearch "layer" "!JK_REVC") nil)
(command "-layer" "n" "!JK_REVC" "c" "140″ "!JK_REVC" "l" "continuous" "1″ "")
(command "-layer" "P" "N" "!JK_REVC" "" )
);endif
(command "-layer" "s" "!JK_REVC" "")
(setq ss ( ENTLAST))
(command "reVCLOUD" "O" SS "N")
(setvar "osmode" osm) ; OS 불러오기
(princ)
)
되긴하는데
잡스러운 문구들이 ㅁ낳이나오는걸로봐서 어디가 문제가있는데
뭔지 모르겠네요. 밑에분이 남겨주신거랑은 조금다르네요 답변감사합니다 ㅎ
올려주신거 참고해서 어찌어찌 만들어봤습니다.
관련자료
댓글 1
엔씨벤딩님의 댓글
아래에 제가 사용중인 리습 첨부합니다. 개인적으로는 RV는 거의 안쓰고 RVV만 쓰고 있습니다. 원하시는 용도로 변형해서 사용하세요.
(defun C:RV( / ly ent OS) ;구름 수정 기호 (defun *error* (msg)(princ "error: ")(princ msg) (setvar "osmode" os) (princ) ) (setq os (getvar "osmode")) (setq ly (tblsearch "layer" "Nck-KK")) (if (= ly nil) (command "layer" "n" "Nck-KK" "" "layer" "s" "Nck-KK" "c" "150″ "Nck-KK" "s" "Nck-KK" ""))
(SETQ ent (entsel "N 객체를 선택…")) (while ( = ent nil) (SETQ ent (entsel "N 객체를 선택…")) ) (COMMAND "REVCLOUD" "O" ent "") (SETQ ent (entsel "N 객체를 선택…")) (while ( = ent nil) (SETQ ent (entsel "N 객체를 선택…")) ) (command "layer" "n" "Nck-KK" "" ) (command "layer" "s" "Nck-KK" "c" "150″ "Nck-KK" "s" "Nck-KK" "") (command "change" ent "" "p" "layer" "Nck-KK" "") (command "clayer" "0″) (PRINC) );DEFUN END
(defun C:RVv( / ly ent aa OS) ;구름 수정 기호 – 구름간격 클릭하여 지정 (defun *error* (msg)(princ "error: ")(princ msg) (setvar "osmode" os) (princ) ) (setq ly (tblsearch "layer" "Nck-KK")) (if (= ly nil) (command "layer" "n" "Nck-KK" "" "layer" "s" "Nck-KK" "c" "150″ "Nck-KK" "s" "Nck-KK" ""))
(setq os (getvar "osmode")) (command "layer" "n" "Nck-KK" "" ) (command "layer" "s" "Nck-KK" "c" "150″ "Nck-KK" "s" "Nck-KK" "") (SETQ aa (getdist "N 호 거리를 입력…")) (SETQ ent (entsel "N 객체를 선택…"))
(while ( = ent nil) (SETQ ent (entsel "N 객체를 선택…")) ) ;(COMMAND "REVCLOUD" "a" aa aa "o" ent "") ; (SETQ ent (entsel "N 객체를 선택…"))
; (while ( = ent nil) ; (SETQ ent (entsel "N 객체를 선택…")) ; )
(command "change" ent "" "p" "layer" "Nck-KK" "") (COMMAND "REVCLOUD" "a" aa aa "o" ent "") (command "clayer" "0″) (PRINC) );DEFUN END
