홈/ 질문/Q 113154
다음
진행 중
Lv.0
등록일: 2021-06-16T06:23:49+09:00 카테고리:

find 질문입니다.

캐드 사용중 특정문자 등을 찾을때 find를 이용하는데요.


예를들어 보 일람 페이지에서 보 규격을 찾을때 find명령후 G1 찾았다 가정하면
보의 넓이 확인하고 보의 깊이를 보려면 find창을 닫고 화면을 올려야 합니다.
검색하고자 하는게 한두개라면야 큰 불편이 아니겠지만
수십여개가 될때엔 find창을 닫았다가 깊이 확인후 다시 find실행
또다시 창 닫고 깊이 확인후 재검색….
한눈에 보의 넓이와 깊이를 볼수있게 설정이 가능한지요?
공유

    관련 있는 질문들

    2 답변

    1. aalan

    2. 이게 뭐죠?

      • 0
    3. Lv.0

      제가 사용하고 있는 리습입니다.

      전에 고캐드 게시판에서 올라온걸 다운받은건데, 
      지금 검색해보니까 못찾겠네요.
      암튼 이거 좋습니다.

      ;;———————-=={ 문자 찾아서 선으로 연결 }==——————-;;
      (defun C:FTC ( / ly imsi ob count a5 num name enti1 xxlist text2 dxy x xx y yy xy stpp os fsh )
      (SETQ os (GETVAR “OSMODE”))
      (setq ly (tblsearch “layer” “Defpoints”))
      (if (= ly nil) (command “layer” “n” “Defpoints” “” ))
       (setq imsi (getvar “clayer”))
       (setq ob (ssget “x” ‘((0 . “text,mtext”))))
       (setq count (sslength ob))
       (setq a5 (getstring T “n검색할 텍스트를 입력하세요. :  “))
       (setq stpp (getpoint “n선으로 연결할 기준점을 선택하세요.”))
       (setq fsh 0)  
       (setq num 0)
         (repeat count
          (setq name (ssname ob num))
          (setq xxlist (entget name))
           (progn
             (setq enti1  (cdr (assoc -1 xxlist)))
             (setq text2  (cdr (assoc 1 xxlist)))
             (setq dxy (assoc 10 xxlist))
             (setq txth (assoc 40 xxlist))
             (setq txth (cdr txth) )
             (setq txth (* txth 4) )
             (setq x (nth 1 dxy))
             (setq xx (rtos x))
             (setq y (nth 2 dxy))
             (setq yy (rtos y))
             (setq xy (strcat xx “,” yy))
             ;(if (= text2 a5) ;완전일치
             (if (or (wcmatch (strcase text2 ) (strcat (strcase a5) “*”) ) (wcmatch (strcase text2 ) (strcat “*” (strcase a5) ) )  (wcmatch (strcase text2 ) (strcat “*” (strcase a5) “*” ) )   ) ;일부일치
              (progn
               (setvar “osmode” 0)
               (command “line” stpp xy “”)
               (command “change” (entlast) “”  “p” “layer” “Defpoints” “”)
               (command “change” (entlast) “”  “p” “color” “142” “”)
               (command “clayer” “0”)
               (setq fsh 1)
               (setvar “osmode” os)
              );progn
             );if
            );progn
           (setq num (+ num 1))(princ)
          );repeat
        (if (= fsh 1)
         (progn
              (command “text” “j” “r” stpp  txth “0” a5)
              (command “change” (entlast) “”  “p” “layer” “Defpoints” “”)
              (command “change” (entlast) “”  “p” “color” 142 “”)
         ) ;p end
        );if end
      );end of defun
      ;;———————-=={ 문자 찾아서 선으로 연결 }==——————-;;
      • 0