캐드 분류
블럭 안 글짜 수정
컨텐츠 정보
- 214 조회
- 2 댓글
- 0 추천
- 0 비추천
- 목록
본문
고명하신 분 계시면 부탁 합니다.
저는 VBA 로 회사 프로그램을 하고 있습니다.
블럭을 인써트 하면 블럭안에 "방진"이라고 TEXT 가 있습니다.
블럭을 EXPLODE을 하지 않고 "방진" -> "스프링"으로 수정 할수 있을까요
VBA로는 않될까요
리습을 제가 할줄 모르고 높은 넘들은 못살게 굴고…
BEDIT로는 수정이 가능하나 VBA로 구현 하고 싶습니다.
관련자료
댓글 2
/ 1 페이지
.gif)
fan님의 댓글
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
