홈/ 질문/Q 111924
다음
진행 중
닐스몹
Lv.1
등록일: 2019-11-05T15:49:53+09:00 카테고리:

entmake 관련해서 질문드립니다

(defun uni (txt)


  (entmake (list (cons 0 “TEXT”)
   (cons 1 “-“)
   (cons 6 (cdr (assoc 6 ent)))
   (cons 7 (getvar “textstyle”))
   (cons 10 (list (+ (nth 1 (assoc 10 ent)) 344) (nth 2 (assoc 10 ent))))
   (cons 11 (list (+ (nth 1 (assoc 11 ent)) 355) (nth 2 (assoc 11 ent))))
   (cons 40 (cdr (assoc 40 ent)))
   (cons 41 (cdr (assoc 41 ent)))
   (cons 62 (cdr (assoc 62 ent)))
   (cons 72 2)
   (cons 73 2)))
)

캐드에 입력하고

커맨드창에
(uni unit) 이렇게 입력하니까 리습은 되는데

(uni 다음에 어떠한 문자가 들어가도 다 실행되던데 정확어떤 문자가 들어가야 하나요?

공유

    관련 있는 질문들

    7 답변

    1. aalan
    2. Lv.1

      파일내용까지 확인했습니다..! 친절한 설명까지 감사합니다!!

      • 0
    3. Lv.1

      감사합니다..!근데 다운이 안되네요ㅠㅠㅠ

      위에껄 눌러야 하는군요..감사합니다!
      • 0
    4. Lv.1

      감사합니다 참고하겠습니다!!

      • 0
    5. Lv.21

      댓글로 달았다가 게시글이 지저분해져서 파일로 올립니다 ^^ ;;

      • 0
    6. Lv.17
      변수는 3가지가 있습니다.
      1. 광역변수(전역변수)
      2. 매개변수
      3. 지역변수
      1.광역변수는 캐드파일 하나를 열면 그 파일 내에서  동일한 변수 값을 가지고 있습니다.
      변수에 대한 별도 지정없이 프로그램을 만들면 모두 광역변수가 됩니다.
      (setq a 1)
      !a   결과값이 1이 항상나옵니다.
      장점은 변수에 값이 항상 있어 언제든 가져와서 사용할수 있습니다.
      단점은 여러 리습을 사용할때 같은 변수를 사용하면 값이 충돌이 일어납니다.
      메모리를 많이 사용합니다.
      초기값을 줄때 주의해야 합니다.
      2. 매개 변수
      함수를 호출할때 두 프로그램간 연결을 해주는 변수라고 이해하면 됩니다.
      필요한 메모리만 사용을 합니다.
      함수를 호출할때 순서에 맞게 정확하게 나열해줘야 합니다.
      매개변수는 보통 지역변수와 같이 사용을 많이 합니다.
      (defun uni (txt)  여기에서 txt 변수가 매개 변수 입니다.
      uni 라는 함수를 호출할때 txt변수에 어떤 값을 전달 합니다.
      함수를 호출하고 끝나면 nil이 됩니다.
      3. 지역변수는 그 함수 에서만 값을 기억하고 프로그램이 끝나면 nil이 됩니다.
      (defun c:test(/ a b)  ;” / ” 앞에는 매개변수, 뒤에 오는 a b 변수는 지역변수 입니다.
      (setq a 5)
      (setq b 3)
      (setq d (test_call a b ))  ;d는 광역변수. a b는 매개변수.
      )
      (defun test_call ( a d / c ) ; a d는 매개변수 c는 지역변수
      (setq c(* a d))
      )
      • 0
    7. Lv.1

      윽…어떤 방식으로 수정하면 좋을지 봐주 실 수 있으신가요??

      (defun c:wgt (/ text len r ent txt)

       (setvar “cmdecho” 0)

        (setq text (ssget “w” ‘(3788 3075) ‘(3860 2246) ‘((-4 . “<or”)(0 . “TEXT”)(0 . “MTEXT”)(-4 . “or>”))))
        (setq len (sslength text) r 1)

       (repeat len
        (setq ent (entget (ssname text (1- r))))
        (setq txt (cdr (assoc 1 ent)))
       (if (> (atof txt) 1)
        (uni unit))
        (tot total)
        (setq r (1+ r))
       )

       (setvar “cmdecho” 1)
      (princ)
      )

      (defun uni (txt)

        (entmake (list (cons 0 “TEXT”)
         (cons 1 “-“)
         (cons 6 (cdr (assoc 6 ent)))
         (cons 7 (getvar “textstyle”))
         (cons 10 (list (+ (nth 1 (assoc 10 ent)) 344) (nth 2 (assoc 10 ent))))
         (cons 11 (list (+ (nth 1 (assoc 11 ent)) 355) (nth 2 (assoc 11 ent))))
         (cons 40 (cdr (assoc 40 ent)))
         (cons 41 (cdr (assoc 41 ent)))
         (cons 62 (cdr (assoc 62 ent)))
         (cons 72 2)
         (cons 73 2)))
      )

      (defun tot (txt)

        (entmake (list (cons 0 “TEXT”)
         (cons 1 “-“)
         (cons 6 (cdr (assoc 6 ent)))
         (cons 7 (getvar “textstyle”))
         (cons 10 (list (+ (nth 1 (assoc 10 ent)) 344) (nth 2 (assoc 10 ent))))
         (cons 11 (list (+ (nth 1 (assoc 11 ent)) 500) (nth 2 (assoc 11 ent))))
         (cons 40 (cdr (assoc 40 ent)))
         (cons 41 (cdr (assoc 41 ent)))
         (cons 62 (cdr (assoc 62 ent)))
         (cons 72 2)
         (cons 73 2)))
      )

      단순히 좌표만따서 좌표내의 텍스트가 1일 경우와 2이상 경우만 나눠서
      “-“라는 텍스트만 생성하는 리습입니다..

      • 0
    8. Lv.21
      아무거나 써도 실행 되는 이유가 txt 변수를 리습안에서 사용하지 않기 때문입니다  그냥 uni 라는 리습을 실행할때 사용하지는 않겟지만 리습 호출용 키로 아무거나 끼워 넣게 다는 의미가 되는 거죠 
      그러나 

      캐드를 완전히 껐다가 이 리습만 로드 하고 실행해도 실행 된다면 님이 모르는 다른 리습이 로드 돼있는겁니다 실행이 되지 않아야 정상입니다 

      • 0