CADian을 위한 기본적인 VBA Subroutine 정리1
- 최초 등록일
- 2020.10.15
- 최종 저작일
- 2020.10
- 17페이지/
MS 워드
- 가격 1,500원
소개글
CADian Program을 조금더 효율적으로 활용하기위해 VBA(Visual Basic for Application)를 공부하면서 기본적으로 필요한 Subroutine들을 사용방법과 함께 정리한 문서를 Uadate 하여 올려봄니다.
목차
1. Point 생성하기
2. Point 복사하기
3. X좌표, Y좌표를 지정하여 Point 복사하기
4. Click하여 Point 생성하기
5. Line 생성하기
6. 한번에 많은 Line 생성하기
7. 한번에 많은 Polyline 생성하기
8. Circle 생성하기
9. 각도 단위 변환하기
10. Arc 생성하기
11. Polyline으로 Rectangle 생성하기
12. 시작점의 위치를 지정하여 Polyline으로 Rectangle 생성하기
13. 여러 개의 Rectangle을 한번에 그리기
14. Text 삽입하기
15. Dimension 삽입하기
16. DimContinue 삽입하기
17. Current VBI파일의 위치 불러오기
18. Current 도면의 위치 불러오기
19. Block 만들기
20. 한 개의 객체를 선택하고 추가적인 확장 데이터(XDATA)를 첨부하기
21. 여러 개체를 선택하고 추가적인 확장 데이터(XDATA)를 첨부하기
22. 선택 객체에 추가적으로 첨부된 확장 데이터(XDATA)를 불러오기
23. 지정 각도 방향으로 Point 이동시키기
24. Ellipse 생성하기
25. Line Type 변경하기
본문내용
1. Point 생성하기
Sub CreatePoint(PointName As IntelliCAD.Point, ParamArray Coordinates() As Variant)
If UBound(Coordinates()) = 1 Then Set PointName = Library.CreatePoint(Coordinates(0), Coordinates(1))
If UBound(Coordinates()) = 2 Then Set PointName = Library.CreatePoint(Coordinates(0), Coordinates(1), Coordinates(2))
End Sub
사용 방법) CreatePoint PtName, 0, 100, 0
→ 좌표(0, 100, 0)에 Point 생성
2. Point 복사하기
Sub CopyPoint(StartPt As Point, X_Y_Z As String, Distance, ByRef NewPoint)
If X_Y_Z = "X" Then Set NewPoint = Library.CreatePoint(StartPt.X + Distance, StartPt.Y, StartPt.Z)
If X_Y_Z = "Y" Then Set NewPoint = Library.CreatePoint(StartPt.X, StartPt.Y + Distance, StartPt.Z)
If X_Y_Z = "Z" Then Set NewPoint = Library.CreatePoint(StartPt.X, StartPt.Y, StartPt.Z + Distance)
End Sub
사용 방법) CopyPoint StartPt, "X", 500, NewPointName
→ StartPt를 "X" 방향으로 500mm 이동하여 NewPointName를 만든다.
참고 자료
없음
