홈/ 질문/Q 112569
다음
진행 중
Lv.0
등록일: 2020-09-17T10:35:49+09:00 카테고리:

P-Line에 붙어있는 문자 추출하여 합치기

고수님들…..
도면 작성중에 아래와 같은 리습 작성이 가능할까하고 요청합니다.
업무시간이 엄청 당겨질 것 같아 요청드리니 리습 부탁드립니다.

요청사항
P-Line에 붙어 있는 문자 전체 추출하여 합치기 (좌에서 우, 우에서 좌, 상에서 하, 하에서 상 선택 가능하도록)

자세한 설명은 파일 첨부로 되어 있습니다.

부탁드립니다.

공유

    관련 있는 질문들

    4 답변

    1. aalan
    2. Lv.0

      개발은 가능할 것 같네요.

      예시로 올려준 이미지는 좌로에서 우로 했을 때 결과값만 나왔는데요.

      우에서 좌로 했을 때 결과는 : TBA0005, TBA0004, TBA0003, TBA0002, TBA0001 이 되는 것은 알겠는데,

      상에서 하로 했을 때와 하에서 상으로 했을 때 결과값은 어떻게 나와야하나요?

      좀 애매한 것 같아서 질문합니다.

      상, 하, 좌, 우를 기준으로 하는 것이 아니라, 

      폴리선의 시작점, 끝점을 기준으로 어느 곳에서부터 추출할지가 기준이 되어야하지 않나요?

      • 0

    3. 네 맞습니다. 제가 표현을 잘못해서….
      폴리선 시작점부터 끝점까지 글자를 순서대로 추출하면 완벽합니다.
      가능할까요?
      부탁드립니다. 계속 수작업으로 하고 있어서….^^

      • 0
    4. (defun GetPolyVtx(EntList)  
      (setq VtxList ‘())  
      (foreach x EntList  
      (if (= (car x) 10)  
      (setq VtxList (append VtxList (list (cdr x))))  
      )  
      )  
      VtxList  
      )
      (defun LM:lst->str ( lst del / str )
          (setq str (car lst))
          (foreach itm (cdr lst) (setq str (strcat str del itm)))
          str
      )
      (defun c:test () 
      (setq OldVarList (list “osmode” “cmdecho” “cmddia” “filedia”))
      (setq OldVarValue (mapcar ‘getvar OldVarList))
      (mapcar ‘setvar OldVarList'(0 0 0 0))
      (setq sel (ssget “:S” (list (cons 0 “*line”))))
      (setq odr (getstring “n : Order is (S)tart or (E)nd? (S)  : “))
      (setq t_pt (getpoint “n : new text point  : “))
      (if sel
      (progn
      (setq ss (ssname sel 0))
      (setq en (entget ss))
      (setq pt_list (GetPolyVtx en))
      (setq t_sel (ssget “f” pt_list (list (cons 0 “*text”))))
      (setq k 0 t_list ‘())
      (repeat (sslength t_sel)
      (setq t_ss (ssname t_sel k))
      (setq t_str (cdr (assoc 1 (entget t_ss))))
      (setq t_list (append t_list (list t_str)))
      (setq k (1+ k))
      )
      (if (or (= odr “e”)(= odr “E”)(= odr “end”))
      (setq t_list (reverse  t_list))
      )
      (setq str (LM:lst->str t_list “,”))
      (vl-cmdf “text” “j” “mc” t_pt 5 0 str)
      )
      )
      (mapcar ‘setvar OldVarList OldVarValue)
      (princ)
      )
      시작점or끝점 으로 선택하게끔 만들어봤습니다.
      이 이상 복잡한건 저한테 무리입니다..^^*
      • 0

    5. 감사합니다.
      완벽하네요….^^ 정말 많은 도움이 될 것 같네요…^^

      • 0