홈/ 질문/Q 110398
다음
진행 중
윌러러러이
Lv.0
등록일: 2018-09-29T09:46:14+09:00 카테고리:

entsel 함수 사용 시 입력값을 사용하고 싶습니다.

(defun c:asd1 () 
(if (setq ent (entsel “n호 선택 or <enter> :”))
    (progn
     (setq el (entget (car ent)))
     (setq rad (cdr (assoc 40 el)))
     (setq ss (ssget (list (cons 0 “arc”) (cons 40 rad))))
     )
    (progn
    (setq rad (/ (getreal “n지름”) 2))
    (setq ss (ssget (list (cons 0 “arc”) (cons 40 rad))))
    )
) 
(princ))
———————————————
———————————————
———————————————
안녕하세요. 
정식으로 리습을 배운것이 아니라 여기저기서 짜집기 하다보니 
제가 원하는 리습을 만들기가 너무 어렵네요ㅜ
문의하는 내용
(if (setq ent (entsel “n호 선택 or <enter> :”))
리습을 실행하면 호 선택 or enter 입력으로 나옵니다.
그런데 여기서 enter 입력이 아니라 
바로 숫자를 입력해서 그 입력값을 
(setq rad (/ (getreal “n지름”) 2))    <—— 이 구문의 지름으로 
바로 사용할 수 있는 방법은 없을까요??
객체를 선택하거나 입력값을 사용해서 
특정지름의 호를 찾으려고 하는 목적을 가진 리습입니다.
혹시 방법을 아신다면 알려주시면 감사하겠습니다.
공유

    관련 있는 질문들

    3 답변

    1. aalan
    2. Lv.0

      상큼메론님 답변 감사합니다.

      그런데 제가 원하는 것은 
      리습 실행 시 객체를 선택 또는 바로 지름값을 입력해서 같은지름의 호를 찾고 싶습니다.
      리습을 실행하면 
      entsel 함수가 사용되잖아요?? 
      그런데 거기서 객체를 선택하던지 아니면 숫자를 입력해서 입력한 숫자가 바로 지름값으로 
      사용되어지는 리습을 원합니다.
      지금 리습은 
      실행 시 엔터를 입력하면 지름값 입력이 나오는데요
      지름값 입력 또는 객체선택이 바로 실행어지는 리습을 원합니다.
      • 0
    3. Lv.21

      녹화_2018_09_30_21_16_06_876.gif

      초보때 누구나 한번쯤 고민하는 문제군요 ㅎㅎ;; (저도 경험자..)
      entsel로는 바로 안되고 코드를 응용해야 합니다  
      (defun c:ff(/ pt e rad str)
       (initget 128)
       (if (setq pt(getpoint “nDiameter input or Select Arc:”))
         (progn 
           (cond  
            ((= (type pt) ‘LIST)
              (setq e(nentselp pt))
              (setq rad(cdr(assoc 40(entget(car e)))))
              (_ArcSelection rad)
            )
          ((= (type pt) ‘STR)
      (setq str(atof pt))
      (if (/= 0.0 str)
        (progn(setq rad (* 0.5 str))(_ArcSelection rad) )
      (progn (princ “nStupid~!! You made the wrong input.”)(exit))
      )
            )
         (t)
       )
          )
        )
      (princ)
         )
      (defun _ArcSelection(rad)
       (setq ss (ssget “x”(list (cons 0 “arc”) (cons 40 rad))))
       (sssetfirst nil ss)
      )
      • 0
    4. Lv.0

      수야님! 감사합니다^^

      덕분에 가려운곳을 긁을 수 있었네요.
      이제야 속이 후련해집니다.
      • 0