오토캐드 H형강 리습 부탁드려도 될까요?

유틸리티
작성자
뚱이에요
작성일
2021-08-31 23:00
조회
13375
인쇄
H형강을 매번 손으로 그리기가 힘듭니다..

죄송하지만 혹시 H형강 리습 가지고 계시는분 계실까요? 

부탁드립니다 ㅠㅠ
전체 1
  • 2021-09-21 18:50
    H-Beam2.dcl
    h_beam2 : dialog {
            key = "maker1";
            width = 24;
            
            :column {
              :row {
                : image_button { key="h-beam1";  height=6; allow_accept=true; }
                : image_button { key="h-beam3";  height=6; allow_accept=true; }
              } 
              :row {
                : image_button { key="h-beam2";  height=6; allow_accept=true; }
                : image_button { key="h-beam4";  height=6; allow_accept=true; }
              } 
            } 
            ok_cancel_help_errtile;
          }
    -------------------------------------------------------------
    H-Beam.lsp
    ;--- Programed by YANG JONG SUK <SAM CHA WON KI KEA> 1992-2-28. 95-5-5
    (defun c:h-beam (/ cp1 #0 an0 up cp4 f1 f2 f3 f4 f5 k1 k2 k3 k4 k5 e1
                       e2 e3 e4 e5 u1 u2 u3 u4 u5 f9 k9 f6 k6 e6 u6 et et1
                       et2 et3 et4 et5 et6 et7 et8 et9 et10 et11 cp2 cp3 cp4
                       up1 up2 up3 up4 bp1 bp2 bp3 bp4)
        ;=======================
        (setq maker2 "*** SAM CHA WON KI KEA ***")
        (h-beam2)
        ;=======================
        (setq nth9 h-beam-)
        (setq name2 "**** H-BEAM TABLE ****")
        (read_yoso "d:\Program Files\Mine\lsp\h-beam2.tbl")
        (c:lsp-dcl lstdt hdln) 
        (setq h-beam- line_n) ; lsp-dcl에서 사용했던 line-n를 받아 이lisp의 변수로 저장.
        ;=======================
        (c:layset-a)
        (c:layset-c)
        (c:date-a)
        ;------------------
        (setq el1 (entlast))
        ;--------------------
        (command "osnap" "int,end,mid")
        ;----------------------       Ask condition
        (if (= vi1 "F")
          (progn
            (setq cp0 (getpoint "nStart point?: "))
            (command "osnap" "non")
            ;----------------------      Pick base points
            (setq an1 (+ an0 (* pi 0.5)) an2 (+ an0 pi) an3 (+ an0 (* pi 1.5)))
            (if (= an0 0.0)    ; from h-beam2.lsp
              (setq cp1 (polar cp0 an0 (/ b 2.0)))
              (setq cp1 (polar cp0 (+ an0 pi) (/ b 2.0)))
            );if
            (setq up (polar cp1 an1 h))
            (setq b4 (/ b 4.0) b2 (/ b 2.0) b5 (- b4 (/ t1 2.0)))
            ;--------------------      Pick outline points
            (setq k1 (polar cp1 an0 b4))
            (setq k2 (polar cp1 an0 b2))
            (setq k4 (polar k1 an1 t2))
            (setq k3 (polar k4 an0 b4))
            (setq k5 (polar k4 an2 b5))
            (setq f1 (polar cp1 an2 b4))
            (setq f2 (polar cp1 an2 b2))
            (setq f4 (polar f1 an1 t2))
            (setq f3 (polar f4 an2 b4))
            (setq f5 (polar f4 an0 b5))
            ;---------------------
            (setq u1 (polar up an0 b4))
            (setq u2 (polar up an0 b2))
            (setq u4 (polar u1 an3 t2))
            (setq u3 (polar u4 an0 b4))
            (setq u5 (polar u4 an2 b5))
            (setq e1 (polar up an2 b4))
            (setq e2 (polar up an2 b2))
            (setq e4 (polar e1 an3 t2))
            (setq e3 (polar e4 an2 b4))
            (setq e5 (polar e4 an0 b5))
            (command "line" f2 k2 "")
            (setq et (entlast))
            (command "line" k2 k3 k5 u5 u3 u2 e2 e3 e5 f5 f3 f2 "")
            ;--------------------      Chamfer corner
            (setq et1 (entnext et)      et2 (entnext et1))
            (setq et3 (entnext et2)     et4 (entnext et3))
            (setq et5 (entnext et4)     et6 (entnext et5))
            (setq et7 (entnext et6)     et8 (entnext et7))
            (setq et9 (entnext et8)     et10 (entnext et9))
            (setq et11 (entnext et10))
            (command "fillet" "r" r1)
            (command "fillet" et10 et9 "fillet" et2 et3)
            (command "fillet" et9 et8 "fillet" et3 et4)
            ;--------------------
            (setq en1 (entnext el1) blk2 "" ss1 nil ss1 (ssadd))
            (while en1
              (ssadd en1 ss1)
              (setq en1 (entnext en1))
            );while
            (setq blk2 (strcat mt "-" (rtos h) "x" (rtos b) "x" (rtos t1) "x" (rtos t2) "$" hms))
            ;------------------------- converter "." to "_"
            (setq nbn 1 tx8 "" blk1 "")
            (repeat (strlen blk2)
              (setq tx8 (substr blk2 nbn 1))
              (if (= tx8 ".") 
                (setq blk1 (strcat blk1 "_"))
                (setq blk1 (strcat blk1 tx8))
              );if
              (setq nbn (+ nbn 1))
            );repeat
            (command "block" blk1 cp1 ss1 "")
            (command "insert" blk1 cp1 "" "" "")
          );progn
        );if
        ;================================
        (if (or (= vi1 "S") (= vi1 "U"))
          (progn
            (setq fp1 (getpoint "nFirst point of Length?: "))
            (setq ep1 (getpoint fp1 "nSecond point of Length?: "))
            (command "osnap" "non")
            (setq an0 (angle fp1 ep1) ds1 (distance fp1 ep1))
            ;;================================
            (if (not c:stl_bar) (load "stl_bar"))
            (c:stl_bar)
            ;;================================
            ;;(if (/= (type an7) 'REAL)
            ;;  (setq an7 45.0)
            ;;);if
            ;;(setq an8 (getreal (strcat "끝단을 자르는 각도는 <"(rtos an7)">-<CR> or 아니면 입력하세요 ?")))
            ;;(if (/= an8 nil)
            ;;  (setq an7 an8)
            ;;);if
            ;;(setq an9 (dtr an7))
            ;;------------------------
            (setq an11 (+ an0 an9) an13 (-  (+ pi an0) an9))
            (setq b (/ b (sin an9)) t1 (/ t1 (sin an9)) t2 (/ t2 (sin an9)) h (/ h (sin an9)))
            ;-----
            (if (= vi1 "S")
              (setq cp2 (polar fp1 an11 t2)
                    cp3 (polar fp1 an11 (- h t2))
                    cp4 (polar fp1 an11 h)
                    bp1 ep1
                    bp2 (polar ep1 an13 t2)
                    up3 (polar ep1 an13 (- h t2))
                    up4 (polar ep1 an13 h)
              );setq
              (setq cp2 (polar fp1 an11 (/ (- b t1) 2.0))
                    cp3 (polar fp1 an11 (+ (/ (- b t1) 2.0) t1))
                    cp4 (polar fp1 an11 b)
                    bp1 ep1
                    bp2 (polar ep1 an13 (/ (- b t1) 2.0))
                    up3 (polar ep1 an13 (+ (/ (- b t1) 2.0) t1))
                    Up4 (polar ep1 an13 b)
              );setq
            );if
            ;--------
            (setq el1 (entlast))
            (command "line" fp1 bp1 up4 cp4 "c")
            (command "line" cp2 bp2 "") (setq el11 (entlast))
            (command "line" cp3 up3 "") (setq el12 (entlast))
            (if (= vi1 "U")
              (command "change" el11 el12 "" "p" "lt" "dashed" "")
            );if
            ;----------------
            (setq en1 (entnext el1) blk2 "" ss1 nil ss1 (ssadd))
            (while en1
              (ssadd en1 ss1)
              (setq en1 (entnext en1))
            );while
            (setq hms (itoa (+ (atoi hms) 1)))
            (setq blk2 (strcat mt "-" (rtos h) "x" (rtos b) "x" (rtos t1) "x" (rtos t2) "$" hms))
            ;--------------------- converter "." to "_"
            (setq nbn 1 tx8 "" blk1 "")
            (repeat (strlen blk2)
              (setq tx8 (substr blk2 nbn 1))
              (if (= tx8 ".") 
                (setq blk1 (strcat blk1 "_"))
                (setq blk1 (strcat blk1 tx8))
              );if
              (setq nbn (+ nbn 1))
            );repeat
            ;-----------------------
            (command "block" blk1 fp1 ss1 "")
            (command "insert" blk1 fp1 "" "" "")
            (setq ss1 nil blk1 nil)
          );progn
        );if
    );defun
    ------------------------------------------------------
    H_Beam2.slb
    ;--- Programmed by YANG JONG SUK.   1995-12-22
    (defun h-beam2 ()
      (setq dcl_id (load_dialog "d:\Program Files\Mine\lsp\h_beam2.dcl"))
      (setq dcl_box "h_beam2")
      (if (not (new_dialog dcl_box dcl_id))
        (exit)
      );if
      (set_tile "maker1" maker2)
      (setq dir1 "d:\Program Files\Mine\sld\h-beam2")
      (setq sldlst (list "h-beam1" "h-beam3" "h-beam2" "h-beam4" ))
      (foreach nam1 sldlst
        (start_image nam1)
        (setq x1 (dimx_tile nam1) y1 (dimy_tile nam1) )
        (fill_image 0 0 x1 y1 5)
        (slide_image 0 0 x1 y1 (strcat dir1 "(" nam1 ")") )  ; slidelib
        (end_image)
      );foreach
      
      (action_tile "h-beam1"   "(setq nam1 $key)")
      (action_tile "h-beam3"   "(setq nam1 $key)")
      (action_tile "h-beam2"   "(setq nam1 $key)")
      (action_tile "h-beam4"   "(setq nam1 $key)")
      (start_dialog)
      (unload_dialog dcl_id)
      
      (cond
        ((= nam1 "h-beam1")  (setq vi1 "F" an0 0.0))
        ((= nam1 "h-beam3")  (setq vi1 "S"))
        ((= nam1 "h-beam2")  (setq vi1 "F" an0 (* pi 1.5)))
        ((= nam1 "h-beam4")  (setq vi1 "U"))
      );cond
    );defun
    ------------------------------------------------------
    H-Beam.tbl
     MT     H       B     T1    T2     R1     R2       Kg
    HBMAA  100.0  50.00   5.0    7.0    8.0     0      9.300
    HBMBA  100.0  100.0   5.0    7.0   10.0     0     14.800
    HBMBB  100.0  100.0   6.0    8.0   10.0     0     17.200
    HBMCA  125.0  60.00   6.0    8.0    9.0     0     13.200
    HBMDA  125.0  125.0   5.0    7.0   10.0     0     18.500
    HBMDB  125.0  125.0   6.5    9.0   10.0     0     23.800
    HBMEA  150.0  75.00   5.0    7.0    8.0     0     14.000
    HBMEB  150.0  100.0   6.0    9.0    9.0     0     21.100
    HBMFA  150.0  150.0   7.0   10.0   11.0     0     31.500
    HBMGA  175.0  90.00   5.0    8.0    9.0     0     18.100
    HBMGB  175.0  90.00   6.0    9.0    9.0     0     20.700
    HBMHA  175.0  175.0   7.5   11.0   12.0     0     40.200
    HBMIA  200.0  100.0   5.5    8.0   11.0     0     21.300
    HBMJA  200.0  200.0   8.0   12.0   13.0     0     49.900
    HBMKA  250.0  125.0   6.0    9.0   12.0     0     29.600
    HBMLA  250.0  250.0   9.0   14.0   16.0     0     72.400
    HBMMA  300.0  150.0   6.5    9.0   13.0     0     36.700
    HBMNA  300.0  300.0  10.0   15.0   18.0     0     94.000
    HBMPA  350.0  175.0   7.0   11.0   14.0     0     49.600
    HBMQA  350.0  350.0  12.0   19.0   20.0     0    137.000
    HBMRA  400.0  200.0   8.0   13.0   16.0     0     66.000
    HBMSA  400.0  400.0  13.0   21.0   22.0     0    172.000
    HBMTA  450.0  200.0   9.0   14.0   18.0     0     76.000
    HBMUA  500.0  200.0  10.0   16.0   20.0     0     89.600
    HBMVA  600.0  200.0  12.0   24.0   22.0     0    133.000
    HBMVB  600.0  200.0  15.0   34.0   22.0     0    174.000
    HBMWA  700.0  300.0  13.0   24.0   28.0     0    185.000
    HBMXA  800.0  300.0  14.0   26.0   28.0     0    210.000
    HBMYA  900.0  300.0  16.0   28.0   28.0     0    243.000
             1         2         3         4         5
    1234567890123456789012345678901234567890123456789012345
                                  
    위 파일들을 한곳에 넣어 놓고 H-Beam.lsp를  loading한후 h-beam을 불으면 순서대로 올라옵니다.
« 덤웨이터 도면을 급히 구합니다. 잘부탁드립니다.
운전면허시험장(기능시험장) 도면 요청드립니다. »
목록보기
전체
번호 제목 작성자 작성일 조회
공지사항
[공지] 글꼴은행 - 캐드 글꼴 442종 압축 파일 NOTICE
gocad | 2022.09.01 | 조회 262772
gocad 2022.09.01 262772
13819
CAD 설계 작업할 때 참고하기 좋은 사이트 공유합니다.
token its | 2026.10.12 | 조회 299
token its 2026.10.12 299
13818
주변 설계자분들이 사용하는 설게 커뮤니티, 프로그램
token its | 2026.10.12 | 조회 235
token its 2026.10.12 235
13817
한화 복합기 LAYOUT 도면
원덕재 | 2026.10.04 | 조회 298
원덕재 2026.10.04 298
13816
나이론 슬리브 기어 커플링 도면
표오현 | 2026.09.26 | 조회 344
표오현 2026.09.26 344
13815
방음벽도면 소음기도면 구합니다dwg파일로요
이혜진 | 2026.09.17 | 조회 466
이혜진 2026.09.17 466
13814
CAD 필렛의 가상 교차선 만들기 리습입니다.
무니나라 | 2026.09.13 | 조회 515
무니나라 2026.09.13 515
13813
인천시 지적도 cad 파일 부탁 드립니다...
심상준 | 2026.08.05 | 조회 734
심상준 2026.08.05 734
13812
포크레인 도면구합니다 (1)
배움의터전 | 2026.07.16 | 조회 887
배움의터전 2026.07.16 887
13811
클린룸판넬 디테일 구해요
조병은 | 2026.06.27 | 조회 865
조병은 2026.06.27 865
13810
한개 FILE에 여러개 CAD FILE을 PDF로 변환방법 알수있나요? (2)
조용성 | 2026.06.15 | 조회 1031
조용성 2026.06.15 1031
13809
zcad 블로그입니다. 무료 캐드통합리습 소개합니다.
zcad | 2026.05.10 | 조회 1988
zcad 2026.05.10 1988
13808
요양병원 캐드 자료 있으실까요?
이미진 | 2026.04.15 | 조회 1313
이미진 2026.04.15 1313
13807
superboundray
김상철 | 2026.04.15 | 조회 1130
김상철 2026.04.15 1130
13806
국기계양대 도면좀 부탁드립니다.
무엇을 하든 파이팅! | 2026.03.28 | 조회 1188
무엇을 하든 파이팅! 2026.03.28 1188
13805
프레스가공압력계산
프레스금형설계 | 2026.03.12 | 조회 1298
프레스금형설계 2026.03.12 1298
13804
오브라이트블록-프레스금형설계
프레스금형설계 | 2026.03.12 | 조회 1156
프레스금형설계 2026.03.12 1156
13803
arcbig03.shx 폰트 부탁드립니다
스병 | 2026.03.05 | 조회 1623
스병 2026.03.05 1623
13802
whgtxt.shx 폰트 구합니다
준준준준 | 2026.02.04 | 조회 1637
준준준준 2026.02.04 1637
13801
divd 파일 좀 주시면 감사 하겠습니다
권기문 | 2026.01.12 | 조회 1490
권기문 2026.01.12 1490
13800
낙원악기상가 도면구합니다... (1)
alsrla | 2025.12.29 | 조회 2091
alsrla 2025.12.29 2091
Powered by KBoard