| CADian에서 VBA 사용하기-17 [PolarPoint] | |
|
 |
|
CADian에서 VBA 사용하기-17 [PolarPoint]
주어진 점으로부터 지정된 각도와 거리에 있는 점을 얻습니다.
RetVal = PolarPoint(Point, Angle, Distance)
Dim polarPt As Point
Dim basePt As Point
Dim angle As Double
Dim distance As Double
Dim lineObj As IntelliCAD.Line
Set basePt = Library.CreatePoint(3, 2, 0)
angle = 0.5 ""angle in radians
distance = 3.5
Set polarPt = ThisDocument.Utility.PolarPoint(basePt, angle, distance)
Set lineObj = ThisDocument.ModelSpace.AddLine(basePt, polarPt) | |
* 이제, 오토캐드 의 그늘에서 벗어나야만 합니다.
- 앞으로 AutoCAD를 CAD라고 부르지 맙시다.
- 오토캐드는 많은 캐드 중 하나의 제품에 불과할 뿐 입니다.
우리 대한민국의 IT 와 조선 등 여타 핵심 산업들과의 융합기술은
외산CAD가 아닌 dwg 기반의 유일한 국산CAD인 캐디안(CADian)이 추진하여야 진정한 우리의 기술이 될 것입니다.
CAD = CADian
CADian = CAD specialist !