홈/ 질문/Q 111083
다음
진행 중
조니1
Lv.1
등록일: 2019-03-19T18:44:44+09:00 카테고리:

REVCOLUD 자동화

(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 답변

    1. aalan
    2. Lv.0

      아래에 제가 사용중인 리습 첨부합니다.
      개인적으로는 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

       

      • 0