오토캐드 H형강 리습 부탁드려도 될까요?
유틸리티
작성자
뚱이에요
작성일
2021-08-31 23:00
조회
1434
H형강을 매번 손으로 그리기가 힘듭니다..
죄송하지만 혹시 H형강 리습 가지고 계시는분 계실까요?
부탁드립니다 ㅠㅠ
전체 1
-
삼차원2021-09-21 18:50H-Beam2.dclh_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 e1e2 e3 e4 e5 u1 u2 u3 u4 u5 f9 k9 f6 k6 e6 u6 et et1et2 et3 et4 et5 et6 et7 et8 et9 et10 et11 cp2 cp3 cp4up1 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 ep1bp2 (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 ep1bp2 (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.tblMT H B T1 T2 R1 R2 KgHBMAA 100.0 50.00 5.0 7.0 8.0 0 9.300HBMBA 100.0 100.0 5.0 7.0 10.0 0 14.800HBMBB 100.0 100.0 6.0 8.0 10.0 0 17.200HBMCA 125.0 60.00 6.0 8.0 9.0 0 13.200HBMDA 125.0 125.0 5.0 7.0 10.0 0 18.500HBMDB 125.0 125.0 6.5 9.0 10.0 0 23.800HBMEA 150.0 75.00 5.0 7.0 8.0 0 14.000HBMEB 150.0 100.0 6.0 9.0 9.0 0 21.100HBMFA 150.0 150.0 7.0 10.0 11.0 0 31.500HBMGA 175.0 90.00 5.0 8.0 9.0 0 18.100HBMGB 175.0 90.00 6.0 9.0 9.0 0 20.700HBMHA 175.0 175.0 7.5 11.0 12.0 0 40.200HBMIA 200.0 100.0 5.5 8.0 11.0 0 21.300HBMJA 200.0 200.0 8.0 12.0 13.0 0 49.900HBMKA 250.0 125.0 6.0 9.0 12.0 0 29.600HBMLA 250.0 250.0 9.0 14.0 16.0 0 72.400HBMMA 300.0 150.0 6.5 9.0 13.0 0 36.700HBMNA 300.0 300.0 10.0 15.0 18.0 0 94.000HBMPA 350.0 175.0 7.0 11.0 14.0 0 49.600HBMQA 350.0 350.0 12.0 19.0 20.0 0 137.000HBMRA 400.0 200.0 8.0 13.0 16.0 0 66.000HBMSA 400.0 400.0 13.0 21.0 22.0 0 172.000HBMTA 450.0 200.0 9.0 14.0 18.0 0 76.000HBMUA 500.0 200.0 10.0 16.0 20.0 0 89.600HBMVA 600.0 200.0 12.0 24.0 22.0 0 133.000HBMVB 600.0 200.0 15.0 34.0 22.0 0 174.000HBMWA 700.0 300.0 13.0 24.0 28.0 0 185.000HBMXA 800.0 300.0 14.0 26.0 28.0 0 210.000HBMYA 900.0 300.0 16.0 28.0 28.0 0 243.0001 2 3 4 51234567890123456789012345678901234567890123456789012345위 파일들을 한곳에 넣어 놓고 H-Beam.lsp를 loading한후 h-beam을 불으면 순서대로 올라옵니다.
댓글을 남기려면 로그인하세요.
전체
번호 | 제목 | 작성자 | 작성일 | 조회 |
공지사항 |
[공지] 글꼴은행 - 캐드 글꼴 442종 압축 파일 NOTICE
gocad
|
2022.09.01
|
조회 20781
|
gocad | 2022.09.01 | 20781 |
13716 |
[도달스님 요청자료] HlWin.shx 폰트입니다. (2)
모코코
|
2022.12.27
|
조회 922
|
모코코 | 2022.12.27 | 922 |
13715 |
HlWin.shx 폰트 있으신분 없나요? (1)
도달스
|
2022.12.27
|
조회 804
|
도달스 | 2022.12.27 | 804 |
13714 |
리습
라곰
|
2022.12.25
|
조회 1585
|
라곰 | 2022.12.25 | 1585 |
13713 |
★풀나무님 요청 자료★ 우유곽 도면입니다 🙂
NLIR
|
2022.12.23
|
조회 970
|
NLIR | 2022.12.23 | 970 |
13712 |
Cad 3D 관련 명령어 문의 (1)
young100
|
2022.12.22
|
조회 880
|
young100 | 2022.12.22 | 880 |
13711 |
도엽분할 리습부탁드립니다.
바른캐드
|
2022.12.07
|
조회 920
|
바른캐드 | 2022.12.07 | 920 |
13710 |
DIM STYLE에 대하여 (1)
민준아빠
|
2022.12.06
|
조회 956
|
민준아빠 | 2022.12.06 | 956 |
13709 |
우유각 도면 구합니다 (1)
풀나무
|
2022.12.01
|
조회 894
|
풀나무 | 2022.12.01 | 894 |
13708 |
[CATS] 폴더 내의 모든 도면의 폰트 일괄 수정 기능
CATS_Developer
|
2022.11.29
|
조회 890
|
CATS_Developer | 2022.11.29 | 890 |
13707 |
CATS Pro ver 1.3.10
CATS_Developer
|
2022.11.25
|
조회 1075
|
CATS_Developer | 2022.11.25 | 1075 |
13706 |
이런 리습도 가능할까요??? (3)
손상훈
|
2022.11.25
|
조회 1265
|
손상훈 | 2022.11.25 | 1265 |
13705 |
🎁 gogogo님께 드리는 고서치의 선물 (1)
고서치
|
2022.11.24
|
조회 1057
|
고서치 | 2022.11.24 | 1057 |
13704 |
레이어 관련 리습 고수님들 도와주세요ㅠㅠ
손상훈
|
2022.11.23
|
조회 637
|
손상훈 | 2022.11.23 | 637 |
13703 |
레이어 관련 리습 좀 도와주세요 ㅠㅠ. (1)
손상훈
|
2022.11.23
|
조회 815
|
손상훈 | 2022.11.23 | 815 |
13702 |
선택객체 레이어 이름 출력 리습 부탁드립니다.
임채효
|
2022.11.22
|
조회 610
|
임채효 | 2022.11.22 | 610 |
13701 |
캐드 도면 일괄 종료해주는리습 없을까요?? - 답글 (1)
캐드플러스
|
2022.11.13
|
조회 861
|
캐드플러스 | 2022.11.13 | 861 |
13700 |
홀 xy상대좌표 리습 수정 부탁드립니다 고수님들
버서난사랑
|
2022.11.12
|
조회 575
|
버서난사랑 | 2022.11.12 | 575 |
13699 |
암롤박스 도면 (1)
용선
|
2022.11.11
|
조회 1049
|
용선 | 2022.11.11 | 1049 |
13698 |
홀이나 탭 xy상대좌표 표로 나오는 리습요청합니다 (4)
버서난사랑
|
2022.11.10
|
조회 2009
|
버서난사랑 | 2022.11.10 | 2009 |
13697 |
리습수정 부탁드립니다 고수님들... (2)
실배캐드
|
2022.11.10
|
조회 1311
|
실배캐드 | 2022.11.10 | 1311 |