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

유틸리티
작성자
뚱이에요
작성일
2021-08-31 23:00
조회
13269
인쇄
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 | 조회 256182
gocad 2022.09.01 256182
13679
아키오피스2008버젼 32비트, 64비트 구할수 없을가요 ㅠㅠ
빠숑 | 2022.04.01 | 조회 21494
빠숑 2022.04.01 21494
13678
치과 평면도, 관련소스 얻을수 있을까요?
산타페 | 2022.03.07 | 조회 18948
산타페 2022.03.07 18948
13677
고수님들 철골 공장도면 부탁드립니다
맹굴 | 2022.01.26 | 조회 16707
맹굴 2022.01.26 16707
13676
thangeul.shx 파일 가지고 계시면 공유 부탁 드리겠습니다.
샤닝스톤 | 2022.01.19 | 조회 18382
샤닝스톤 2022.01.19 18382
13675
직선으로 내려오다가 아래쯤부터 휘어지는 미끄럼틀 혹시.. 있을까요?
꾸꾸123 | 2022.01.04 | 조회 13619
꾸꾸123 2022.01.04 13619
13674
헬스기구 소스 부탁드립니다
소누 | 2021.11.03 | 조회 15016
소누 2021.11.03 15016
13673
유명 미술관 도면 있으신분..!
짐니 | 2021.11.02 | 조회 14963
짐니 2021.11.02 14963
13672
소스 공유 부탁드립니다.. (1)
루디브리엄 | 2021.10.23 | 조회 12893
루디브리엄 2021.10.23 12893
13671
font 요청합니다.
미스터한 | 2021.10.18 | 조회 12391
미스터한 2021.10.18 12391
13670
운전면허시험장(기능시험장) 도면 요청드립니다.
뿌꾸러버 | 2021.09.09 | 조회 11924
뿌꾸러버 2021.09.09 11924
13669
오토캐드 H형강 리습 부탁드려도 될까요? (1)
뚱이에요 | 2021.08.31 | 조회 13269
뚱이에요 2021.08.31 13269
13668
덤웨이터 도면을 급히 구합니다. 잘부탁드립니다.
웨이터 | 2021.08.24 | 조회 10512
웨이터 2021.08.24 10512
13667
올림픽공원 캐드 배치도 부탁드립니다.
열정대마왕 | 2021.07.20 | 조회 10177
열정대마왕 2021.07.20 10177
13666
암롤 박스 도면 부탁드립니다.
lee228 | 2021.06.08 | 조회 10328
lee228 2021.06.08 10328
13665
File.BAK--->Filwe.dwg로 변환 방법 요청
notong59 | 2021.04.27 | 조회 9643
notong59 2021.04.27 9643
13664
캐드 폰트좀 부탁드립니다..
호구왓트 | 2021.04.17 | 조회 9656
호구왓트 2021.04.17 9656
13663
지스타캐드-명령창 영문 고정 방법
알려주세요. | 2021.04.08 | 조회 10339
알려주세요. 2021.04.08 10339
13662
Giovannitti House - Richard Meier 평면 입면 도면 구합니다.
망돌 | 2021.03.14 | 조회 9018
망돌 2021.03.14 9018
13661
버스터미널 도면 구합니다. ㅠ 도와주세요
아이해버아키드림 | 2021.01.20 | 조회 9655
아이해버아키드림 2021.01.20 9655
13660
캐드 폰트 부탁 드립니다
희망의빛 | 2021.01.14 | 조회 9762
희망의빛 2021.01.14 9762
Powered by KBoard