홈/ 질문/Q 62445
다음
진행 중
Lv.0
등록일: 2006-09-29T11:39:38+09:00 카테고리:

같은 문자에 블럭(심볼)을 넣고 싶을때..

안녕하세요.. 맨날 정보만 바라는 사람입니다..
블럭을 도면에 넣을때가 많은데..
예를 들어 .. c1 이라는 글자에 구조 심볼인 오각형을 글자 중심에
넣고 싶어요.. 지금은 멀티 카피에서 일일이 하고 잇는데..
왠지 방법이 있을거 같아서.. 혹시 없나요..

구조도면이 많으니 정말 이것도 일이네요.. 거의 단순노동을…
방법좀 알려주세요.. 다른분들은 어찌하시늕..

공유

    관련 있는 질문들

    4 답변

    1. aalan

    2. 되네요. 정말 감사합니다. 너무 좋은 리습이예요.. 저의 단순노동을 해소시켜주셨네요.. 너무감사해요… 이은혜를…

      • 0

    3. 찾을문자에서 c* 으로하면 c로 시작되는 텍스트 모두 선택되고요 와일드카드문자 안쓰면 입력한 문자와 같은것만 선택됩니다. 텍스트만 선택하려면 *를 입력하고요…. 대소문자도 구분해서 써야합니다.

      • 0

    4. 一初 죄송한데요.. 이거 리습이죠.. 리습으로 저장해서 단축키 tbin 으로 쳤는데.. 명령이 안먹네요.. 리습로드하긴했거든요..

      • 0

    5. (defun c:tbin (/ ss bname os index ent old10 old50 textoutline tbp1 tbp2 mcpoint)
      (command “undo” “g”)
      (setq str (getstring “n 찾을문자 : “));;;와일드 카드 문자 사용가능
      (if (/= bname “”)
      (progn
      (setq ss (ssget (list (cons 0 “text”) (cons 1 str))))
      (if ss
      (progn
      (setq bname (getstring “n 블럭이름 : “))
      (if (/= bname “”)
      (progn
      (setq os (getvar “osmode”))
      (setvar “osmode” 0)
      (setq index 0)
      (repeat (sslength ss)
      (setq ent (entget (ssname ss index)))
      (setq old10 (cdr (assoc 10 ent)))
      (setq old50 (cdr (assoc 50 ent)))
      (setq textoutline (textbox ent))
      (setq tbp1 (mapcar ‘+ (car textoutline) old10))
      (setq tbp2 (mapcar ‘+ (cadr textoutline) old10))
      (setq mcpoint (polar tbp1 (angle tbp1 tbp2) (/ (distance tbp1 tbp2) 2.0)))
      (command “insert” bname mcpoint “” “” old50);;;블럭크기는 수정하세요
      (setq index (1+ index))
      )
      (setvar “osmode” os)
      )
      )
      )
      )
      )
      )
      (command “undo” “e”)
      (princ)
      )

      • 0