홈/ 질문/Q 111027
다음
진행 중
Lv.0
등록일: 2019-03-07T00:19:09+09:00 카테고리:

VBA에서 선택한 원의 x,y 좌표 수정하는 법 문의입니다.

    Dim CircleDate As New Collection
    Dim elm As AcadCircle
    Dim CircleElm(0 To 2) As Variant
    Dim minCir(0 To 1) As Variant
    Dim CircleElmTxt As Variant
    Dim AddedTab As Boolean
    Dim StrcompResult As Integer
    
    For i = 0 To ssobj1.Count – 1
    ‘MsgBox i
        AddedTab = False
        Set elm = ssobj1.Item(i)
        ‘CircleElm에 지름,x , y를 넣는다.
        CircleElm(0) = Format(elm.Diameter, TextDiaZin)
        CircleElm(1) = Format(elm.center(0), TextXYZin)
        CircleElm(2) = Format(elm.center(1), TextXYZin)
   
        CircleDate.Add CircleElm
        
    Next i
    For i = 1 To CircleDate.Count
CircleDate(i)(2) = 54 ‘y좌표에 54입력
        
    Next i
위과 같이 선택한 원의 y좌표에 54라는 값을 입력했는데 
MsgBox로 확인하면 수정된 값이 아니라 원래 y좌표값이 나오는데 
y좌표값을 어떻게 수정해야 하나요??ㅜ
공유

    관련 있는 질문들

    1 답변

    1. aalan
    2. Lv.0

      MOVE 를 이용하셔야 합니다.

      DIM 기존점 AS VARIANT
      DIM 이동할점 AS VARIANT

      기존점=이동할객체.CENTER
      이동할점=기존점
      이동할점(1)=이동할점(1)+이동할값
      이동할객체.MOVE  기존점,이동할점

      대충 이런식으로 하시면 되고, 더 자세한 것은 VBA 도움말 예제에서 검색하시면 됩니다.

      • 0