캐드에 좌표 별로 Text를 넣고 싶을 때 이용하는 방법을 소개드리겠습니다. 엑셀을 이용하면 됩니다. 맨 아래 엑셀을 다운로드 하시면 다음과 같이 볼 수 있습니다. 문자 크기를 정하고, 각 좌표와 넣을 문자를 써줍니다. 드래그 후 복사(Ctrl+C)를 눌러주고 캐드 command창에 마우스 커서를 찍고 붙여넣기(Ctrl+V)하면 엑셀에 있는 문자가 저렇게 나타납니다.
캐드 Pline은 좌표로 이루어져 있는데요. 엑셀로 옮기는 방법을 소개드리겠습니다. 별도 프로그램은 필요없이 캐드 창에서 직접 읽어서 엑셀로 옮길 수 있습니다. 아래와 같은 폴리라인(Polyline)이 있습니다. command 에서 li(list)를 입력하고 폴리라인을 선택하면 좌표정보가 나타납니다. 좌표정보를 마우스로 드래그하고 복사(Ctrl+C)해줍니다. 맨 아래 첨부된 엑셀을 열고 A2 셀에서 붙여넣기(Ctrl+V)를 눌러주면 폴리라인 좌표가 나타나게 됩니다. 엑셀함수는 SUBSTITUTE, MID, FIND를 이용했습니다. 이상 캐드 폴리라인 정보를 엑셀로 옮기는 방법 소개였습니다. https://kkaesaem.tistory.com/356 엑셀 XY 좌표를 캐드(Cad) 원(Circle)으로 그..
엑셀로 표현되어 있는 XY좌표를 캐드 원으로 그릴 수 있는 방법을 소개드리겠습니다. 아래와 같은 XY좌표 테이블 엑셀 정보가 있습니다. 원반경을 정해줍니다. ※ 참고로 엑셀 수식은 아래처럼 되어 있습니다. circle 명령어에 좌표와 원 반경을 물려오는 식입니다. 범위를 드래그해서 복사(Ctrl + C)를 눌러줍니다. 캐드 command line에 마우스 커서를 한번 찍어주고, 붙여넣기(Ctrl + V)를 하면 엑셀 좌표가 캐드에 원으로 쫙하고 뿌려집니다.
해당 객체만 선택할 수 있는 리습(lisp)입니다. 치수(dimension) ; dse (defun c:dse() (ssget (list (cons 0 "dimension"))) (princ) ) 블럭(block) ; bse (defun c:bse() (ssget (list (cons 0 "INSERT"))) (princ) ) 해치(hatch) ; hse (defun c:hse() (ssget (list (cons 0 "hatch"))) (princ) ) 원(circle); cse (defun c:cse() (ssget (list (cons 0 "circle"))) (princ) ) 폴리라인(polyline) ; pse (defun c:pse() (ssget (list (cons 0 "LWPOLYLINE..
도면 작성시 수직선, 수평선을 자주 그리게 되는데요, 여러분들은 "l"(line) 으로 그리시나요? 저는 "xv" , "xh" 라는 리습 명령어로 간편하게 그립니다. 바로 보시겠습니다. 명령어 "xv" 를 누르면 무한 수직선을 그리는데 연속으로 여러번 찍어서 그릴 수 있습니다. "xh"는 무한 수평선입니다. xv와 마찬가지입니다. 리습입니다. 123456789(defun c:xv() ;; xline ver (command "xline" "ver") (princ)) (defun c:xh() ;; xline hor (command "xline" "hor") (princ))Colored by Color Scriptercs 너무 간단한가요? ^^ 긁어서 메모장에 붙인 후 파일명을 xvh.lsp 로 만들고 app..
오토캐드에서 Region 객체는 "massprop" 명령어로 단면적(Area), 외곽선 길이(Perimeter), 도심(Centroid), 단면2차모멘트(Moments of inertia) 등을 확인할 수 있습니다. 위 그림은 정삼각형을 Region으로 만들어 massprop로 확인한 예입니다. 각 단면성질은 수치로 나타내어 지는데요, 그 중 도심(Centroid)을 보면 X, Y 좌표로 값이 나옵니다. 캐드 그림상으로 도심을 표시하고 싶다면 point 나 circle 명령에서 이 좌표를 입력하면 가능합니다. 하지만 텍스트를 일일이 쳐야하는 번거로움이 있죠. 아래 리습을 이용하면 Region 객체 도심을 Point로 바로 찍을 수 있습니다. 12345678910111213(defun c:rcen(/ en..
강연선(Tendon)배치시, 변곡선 구간은 2개의 원으로 만나는 점이 꺽이지 않아야 합니다. 두 원의 접선이 일치해야 합니다. 두 원이 만나는 점(접선이 일치하는)은 아래점과 윗점의 중앙에 생기며 식은 다음과 같습니다. a가 원의 반지름입니다. VBA 코드입니다. Sub te2() Dim Pnt1, Pnt2 As Variant '2points Pnt1 = ThisDrawing.Utility.GetPoint(, "1st Point") Pnt2 = ThisDrawing.Utility.GetPoint(, "2nd Point") Dim l, h As Double l = Pnt2(0) - Pnt1(0) h = Pnt2(1) - Pnt1(1) Dim a As Double 'circle R a = (h * h + l..
강연선(Tendon) 배치시, 정착부 시작의 일부구간은 직선형상이어야 합니다. 강연선의 긴장력 확보와 곡률마찰의 각도차를 줄일 수 있기 때문입니다. 강연선 제조업체에서 최소직선길이를 제시하기도 합니다. 이번 포스팅은 캐드(Autocad) VBA로 직선이 있는 강연선을 그려보겠습니다. 강연선 배치에 필요한 점은 3개입니다. 정착점 ①, 직선구간 점(원곡선 시점) ②, 원곡선 종점 ③. 여기서 ②의 y좌표는 계산을 해서 정해집니다. 미지수는 x1을 가정한 후 ②에서 (x1,0)의 거리와 (x1,0)에서 ③까지 거리가 동일하도록 몇번의 계산을 거쳐 구합니다. 미지수 x1이 구해지면 ①②를 이루는 직선방정식을 알수 있고, x에 b를 대입하면 y좌표가 구해집니다. 이 직선과 직교하는 직선의 한 점이 원의 중심이 ..