홈/ 질문/Q 111100
다음
진행 중
조니1
Lv.1
등록일: 2019-03-22T15:08:03+09:00 카테고리:

수치입력하였을때 다음명령어 쳐도 전에 적은 수치가 그대로남게하는법

       (setq a (getreal “n : 수치입력 :  “))  

이렇게 수치를 입력하였는데요]
기존에 250이라고 쳤으면 다음 명령어 칠때도 250이 그대로 남아있게하려면 어떤구문을 입력해야하나요?

공유

    관련 있는 질문들

    10 답변

    1. aalan
    2. Lv.17
      그냥 마지막 값을 보고 싶고 그냥 엔터 치면 값을 유지하는것 아닌가요?
      (if (= a nil) (setq a 100.)) ;;;;처음 시작할때 초기값.
      (setq def_a a);;;;다음줄에서 엔터 칠때를 대비해서 a값 보관함.
      (setq a (getreal (strcat “n : 수치입력 :  <“(rtos a)”>”))) ;;a에 값을 입력받고 마지막 값을 보여줌.
      (if (= a nil) (setq a def_a));;;앞줄에서 기본값으로 엔터를 치면 a는 nil이 되므로 a값을 다시 받음.
      이것 아닌가요?
      • 0
    3. Lv.1

      아 감사합니다. 보고 공부좀 더해볼게요

      • 0
    4. Lv.23
      (defun c:GGF ()
      (setvar “cmdecho” 0)
      (setq osm (getvar “osmode”)) ; OS; 저장
      (command “OSMODE” 0)
      (setq currentlayer (getvar “clayer”))
      (setq p1 (getpoint “n 대각 한쪽 끝선 :”))
      (setq p2 (getcorner p1 “n 대각 반대편 끝선 :”))
      (command “rectang” p1 p2 “”)
      (setq ss (ENTLAST))
      (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” “”)
      (if
      (= defaultrad nil)
      (progn
      (setq a (getreal “n 반지름을 입력하세요 : <100>”))
      (if
      (= a nil)
      (setq a 100)
      )
      )
      (progn
      (setq textstring (strcat “n 반지름을 입력하세요 : <” defaultrad “>”))
      (setq a (getreal textstring))
      (if
      (= a nil)
      (setq a defaultrad)
      )
      )
      )
      (command “reVCLOUD” “A” a a “O” SS “N”)
      (setvar ‘osmode osm) ; OS 불러오기
      (setvar “clayer” currentlayer)
      (setq defaultrad (rtos a))
      (princ)
      )
      머리쓰기 귀찮아서 대충 만들었더니…엉망이긴 하지만…
      공부하는데에 도움은 될꺼예요.
      요는, 사용자 입력값이 없을 경우에…지난번에 썼던 값을 다시 써야 한다는 거잖아요?
      그걸 만들어서 넣아야죠.
      • 0
    5. Lv.1
      (defun c:GGFF ()
        (setvar “cmdecho” 0)
        (command “OSMODE” 0)
      (setq osm (getvar “osmode”)) ; OS; 저장
          (setq p1 (getpoint “n 대각 한쪽 끝선 :”))
          (setq p2 (getcorner p1 “n 대각 반대편 끝선 :”))
          (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))
        (setq kkk (vl-registry-read “HKEY_CURRENT_USER\Software\VB and VBA Program Settings\myapp\fsgsmat” “enlong”)) ;불러오기
        (setq a (getvar kkk))
        (command “reVCLOUD” “A” a a “s” “c””O” SS “N”)
          (setvar ‘osmode osm) ; OS 불러오기
          (command “OSMODE” 16383)
        (vl-registry-write “HKEY_CURRENT_USER\Software\VB and VBA Program Settings\myapp\DCLKEY” “NCKLAYER” “nochange”) ;저장
         (princ)
        )
      getreal 을 getvar 로 바꾸고 kkk를 받앛와서 a 로저장했는데
      다음에 칠때 역시나 숫자를 또입력해야하네요 ㅠㅠ  실패
      • 0
    6. Lv.1
      (defun c:GGF ()
        (setvar “cmdecho” 0)
        (command “OSMODE” 0)
      (setq osm (getvar “osmode”)) ; OS; 저장
          (setq p1 (getpoint “n 대각 한쪽 끝선 :”))
          (setq p2 (getcorner p1 “n 대각 반대편 끝선 :”))
          (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))
        (setq a (getreal “n : 구름마크 입력 :  “))
        (command “reVCLOUD” “A” a a “O” SS “N”)
          (setvar ‘osmode osm) ; OS 불러오기
          (command “OSMODE” 16383)
         (princ)
        )
      알려주신대로 (defun c:GGF () 이렇게하면 a가 리습이 끝난후에도 값이 남아있어야하는데
      제가하는건 안되네요 ㅠ 실패
      • 0
    7. Lv.1
      (defun c:GGF ()
        (setvar “cmdecho” 0)
        (command “OSMODE” 0)
      (setq osm (getvar “osmode”)) ; OS; 저장
          (setq p1 (getpoint “n 대각 한쪽 끝선 :”))
          (setq p2 (getcorner p1 “n 대각 반대편 끝선 :”))
          (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))
          (setq TH (getvar “Userr1”))  ;;; 불러오는 코드
        (setq userr1 (getreal “n : 구름마크 입력 :  “))
        (command “reVCLOUD” “A” th th “O” SS “N”)
        (setvar “Userr1”  th )  ;;; 저장하는 코드
          (setvar ‘osmode osm) ; OS 불러오기
          (command “OSMODE” 16383)
         (princ)
        )
      요렇게 해봤는데 실패 ㅠㅠ
      • 0
    8. Lv.1

      세가지 방법이나 알려주시다니 감사합니다!!!! 

      • 0
    9. Lv.0

      ———세번째 방법———-
      전역변수를 사용하는 방법입니다.
      (defun c:aaa (  /  a b c )  로 시작하는 형식의 리습구문에서
      / 뒤의 변수명은 지역변수입니다. (휘발성 변수)
      사용되는 변수를 저 슬러쉬뒤에 나열하지 않으면 전역변수가 되어
      리습명령이 종료된 후에도 여전히 값을 가지고 있습니다.
      메모리 관리 측면에서 비효율적일 수도 있지만, 단순한 형태의 리습에서는
      전혀 아무 상관없습니다.

      • 0
    10. Lv.0

      ———– 두번째 방법——————
      사용자 변수를 이용합니다.
      입력값이 실수형 변수값이니까
      Userr1 ~ Userr5 중에 아무데나 넣어놓고 나중에 불러쓰면 됩니다.
      (setq TH (getvar “Userr1”))  ;;; 불러오는 코드
      (setvar “Userr1”  a )  ;;; 저장하는 코드

      사용자 변수는 각 도면마다 다른 값이 저장되기 때문에
      이 방법을 사용하면, 다른 도면을 작업할 경우에 대한 주의가 필요합니다.

      • 0
    11. Lv.0

      ———첫번째 방법 —————-
      a에 입력받은 값을 레지스트리에 저장해놓고 나중에 불러오면 됩니다.

      불러오는 코드는 :
      (setq kkk (vl-registry-read “HKEY_CURRENT_USER\Software\VB and VBA Program Settings\myapp\fsgsmat” “enlong”))
      저장하는 코드는 :
       (vl-registry-write “HKEY_CURRENT_USER\Software\VB and VBA Program Settings\myapp\DCLKEY” “NCKLAYER” “nochange”)

      HKEY_CURRENT_USER\Software\VB and VBA Program Settings\myapp\  여기까지는
      오토캐드의 레지스트리 기본저장 위치이니 안 건드리는게 좋습니다.
      뒤에 2가지 키만 건드려서 저장하세요.

      • 0