홈/ 질문/Q 107427
다음
진행 중
Lv.0
등록일: 2016-10-25T15:23:02+09:00 카테고리:

블럭 안 글짜 수정

고명하신 분 계시면 부탁 합니다.
저는 VBA 로 회사 프로그램을 하고 있습니다.
블럭을 인써트 하면 블럭안에 “방진”이라고 TEXT 가  있습니다.
 
블럭을 EXPLODE을 하지 않고 “방진” -> “스프링”으로 수정 할수 있을까요
VBA로는 않될까요

리습을 제가 할줄 모르고  높은 넘들은 못살게 굴고…

BEDIT로는 수정이 가능하나 VBA로 구현 하고 싶습니다.


공유

    관련 있는 질문들

    1 답변

    1. aalan

    2. AutoAcad의 도면중 블럭이 숫자를 찾고 블럭안의 글짜를 수정 합니다.
      AutoAcad의 vba에서는 잘 되는데 vb.net 에서는 아래 부분에서 안됩니다.
      왜 일까요?

      Sub Countblocks()
      Dim oBkRef As AcadBlockReference
      Dim ent As AcadEntity
      Dim Blocks As AcadBlocks
      Dim Block As AcadBlock
      Dim ob As Object
       
       For Each ent In ThisDrawing.ModelSpace  ‘도면내의 블럭 갯수
         If ent.ObjectName = “AcDbBlockReference” Then
           Set oBkRef = ent
              Set Blocks = ThisDrawing.Blocks   ‘이부분을 vb.net 로 변환하면이 안됩니다.
               Set Block = Blocks(oBkRef.EffectiveName)    ‘블럭명

              For Each ob In Block
                 If InStr(ob.ObjectName, “Text”) Then
                    If ob.TextString = “방진” Then ob.TextString = “이영춘”   ‘블럭내의 문자수정
                 End If
               Next
             End If
        Next ent
      End Sub

      • 0