캐드 분류
VBA에서 선택한 원의 x,y 좌표 수정하는 법 문의입니다.
컨텐츠 정보
- 187 조회
- 1 댓글
- 0 추천
- 0 비추천
- 목록
본문
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