vba1 [VBA/CAD] Text 위치 이동 Text 검색 Text 위치 이동 Text 속성 조정 Sub text_point이동() 'text 이동하는 프로시져 Dim mSpaceObj As AcadObject Dim item As AcadEntity 'CAD 개체 선언 Dim text As String Dim result As New Collection '한번에 선언 및 생성 - 초기화 Dim pt As Variant '좌표 입력 받을 개체 선언 Dim old_pt(0 To 2) As Double 'x,y,z 좌표 입력할 수 있도록 배열 선언 Dim new_pt(0 To 2) As Double 'x,y,z 좌표 입력할 수 있도록 배열 선언 Dim cadText As AcadText For Each item In ThisDrawing.ModelSp.. 2022. 2. 22. 이전 1 다음