직선이 하나 있습니다. 그 직선의 끝점과 다른 한 점으로 그려진 원호(arc)가 직선에 접하도록 그림을 그려보겠습니다. 1. 직선에 법선(수직이 되는)을 충분히 길게 그려 직선 끝에 놓습니다. 2. 두 점을 연결하는 선을 그립니다. 3. 두 점의 선에 법선을 그려 중심으로 옮겨줍니다. 4. 첫번째 선에 Extend 시키면 원의 중심이 되고 이를 중심으로 원을 그리면 됩니다. Trim으로 원을 잘라 주면 직선과 접하는 두점으로 이루어진 원호가 됩니다. * 원 위의 두점으로 이루어진 직선의 법선은 원의 중심을 지난다는 원리입니다.
Language Toggle 오토캐드에서 VBA로 두 점과 수평력으로 현수선 그리는 법입니다. Method of drawing catenary using 2points & horizontal force in Autocad using VBA 먼저 아래의 코드를 긁으시고 First, drag following code Private Function COSH(p As Double) COSH = (Exp(p) + Exp(-p)) / 2 End Function Private Function SINH(p As Double) SINH = (Exp(p) - Exp(-p)) / 2 End Function Private Function ASINH(p As Double) ASINH = Log(p + Sqr(p * p + 1..
Language Toggle 오토캐드에서 VBA로 세 점 현수선 그리는 법입니다. Method of drawing catenary of 3points in Autocad using VBA 먼저 아래의 코드를 긁으시고 First, drag following code Private Function COSH(p As Double) COSH = (Exp(p) + Exp(-p)) / 2 End Function Private Function SINH(p As Double) SINH = (Exp(p) - Exp(-p)) / 2 End Function Private Function ASINH(p As Double) ASINH = Log(p + Sqr(p * p + 1)) End Function Sub catenary(..
VBA로 만든 코드가 다음과 같이 있습니다. Sub para() ....... ...... ....... End Sub 캐드 명령어(command)에서 아래와 같이 타이핑을 하면됩니다. (defun c:para() (COMMAND "vbastmt" "para") (princ) ) command에서 para 를 치시면 VBA 코드가 실행됩니다. 캐드를 켤 때마다 자동 등록되어 쓸수 있도록 만들수 있습니다.. 노트패드 같은 에디터서 타입핑부분을 para.lsp 로 저장을 하고 appload 하신다음 Startup Suite에 para.lsp를 등록하시면 됩니다.
Language Toggle Excel Download 엑셀의 H형강 제원을 긁어서 캐드에서 그려보겠습니다 Let's make a H-shaped steel section in cad using Excel 다운받은 파일을 열면 아래와 같습니다. 원하시는 사이즈 형강의 셀을 복사(ctrl + c)하시구요 캐드 파일 command에 커서를 두고 붙여넣기 (ctrl + v)하시고 캐드 창 아무 곳이나 한 점을 찍어주면 아래와 같이 그려집니다. First copy a H-shaped steel cell you want (ctrl + c) and paste it on command line in cad (ctrl + v) point anywhere in cad window then H-shaped section ..
Language Toggle 오토캐드에서 VBA로 세 점 포물선 그리는 법입니다. Method of drawing parabola of 3points in Autocad using VBA 먼저 아래의 코드를 긁으시고 First, drag following code Sub para() Dim Pnt1, Pnt2, Pnt3 As Variant '3points for parabola Pnt1 = ThisDrawing.Utility.GetPoint(, "1st Point") Pnt2 = ThisDrawing.Utility.GetPoint(, "2nd Point") Pnt3 = ThisDrawing.Utility.GetPoint(, "3rd Point") Dim a, b, c As Double Dim M11, M..