CAD VBA에서 Arraypolar를 쓸때, 객체 자체는 회전이 안되는 방법이 있나요?
컨텐츠 정보
- 325 조회
- 0 추천
- 0 비추천
-
목록
본문
CAD VBA를 이용해서 도면을 작도하고자 합니다.
Arraypolar를 쓰고싶은데, 객체 자체가 같이 돌아가더라구요ㅠㅠ
객체는 안돌아가게 하는 코드가 있을까요??
현재 사용코드
Dim PilenoOfObjects As Integer
Dim D1radius As Double
Dim centerPoint3(0 To 2) As Double
Dim PileplanblockRefObj As AcadBlockReference
Dim pileretObj1 As Variant
Dim PilenoD1 As Integer
Dim PileangleD1 As Double
D1radius = Cells(5, 210).Value / 2
centerPoint3(0) = Cells(5, 12).Value + Cos((90 – Cells(5, 212)) * 3.141592 / 180) * D1radius
centerPoint3(1) = Cells(5, 13).Value + Sin((90 – Cells(5, 212)) * 3.141592 / 180) * D1radius
centerPoint3(2) = 0
PilenoD1 = Cells(5, 211).Value + 1
If Cells(5, 206).Value = "O" Then
If Cells(5, 209).Value = "Square" Then
Set PileplanblockRefObj = ThisDrawing.ModelSpace.InsertBlock(centerPoint3, "Pile_Square", Cells(5, 207).Value / 100, Cells(5, 207).Value / 100, 1, 0)
pileretObj1 = PileplanblockRefObj.ArrayPolar(PilenoD1, angleToFill, centerPoint)
pileretObj1(Cells(5, 211).Value – 1).Delete
PileplanblockRefObj.Layer = "Pile"