오토캐드 H형강 리습 부탁드려도 될까요?
유틸리티
작성자
뚱이에요
작성일
2021-08-31 23:00
조회
1463
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
|
조회 21529
|
gocad | 2022.09.01 | 21529 |
13758 |
버스(대형 관광버스) 입면과 평면도(2D) 도면 찾습니다
이충화
|
2024.04.26
|
조회 49
|
이충화 | 2024.04.26 | 49 |
13757 |
캐드 2008 문의 (키젠)
김현승
|
2024.04.25
|
조회 55
|
김현승 | 2024.04.25 | 55 |
13756 |
나눔고딕체 공유좀 부탁드립니다..
H.H
|
2024.03.20
|
조회 120
|
H.H | 2024.03.20 | 120 |
13755 |
한전 맨홀도
송주현
|
2024.01.15
|
조회 160
|
송주현 | 2024.01.15 | 160 |
13754 |
pump 외형도 부탁드립니다
장동현
|
2024.01.08
|
조회 164
|
장동현 | 2024.01.08 | 164 |
13753 |
XCLIP된 블럭/외부참조 선택하는 리습
유리민
|
2023.11.24
|
조회 229
|
유리민 | 2023.11.24 | 229 |
13752 |
문자 수정시 등호(=) 이후 부터 수정가능한 리습 없을까요?ㅜㅜ
조상흠
|
2023.11.23
|
조회 146
|
조상흠 | 2023.11.23 | 146 |
13751 |
인벤터 알루미늄 프로파일 라이브러리 파일 요청드립니다. (2)
오뚜기진라면
|
2023.11.15
|
조회 281
|
오뚜기진라면 | 2023.11.15 | 281 |
13750 |
[캣츠 가설재] 다운로드 및 소개 자료
CATS_Developer
|
2023.10.25
|
조회 263
|
CATS_Developer | 2023.10.25 | 263 |
13749 |
괄호치수'
케이알
|
2023.10.25
|
조회 142
|
케이알 | 2023.10.25 | 142 |
13748 |
혹시 치수 자동 산출 리습을 만들 수 있을까요? (4)
이기영
|
2023.09.29
|
조회 540
|
이기영 | 2023.09.29 | 540 |
13747 |
두선사이 중심선 리습 수정가능할까요…? 요청리습 (5)
캐드플러스
|
2023.09.19
|
조회 541
|
캐드플러스 | 2023.09.19 | 541 |
13746 |
잔도교 또는 잔도길 관련 단면도면 요청드립니다
보칼리지
|
2023.09.15
|
조회 228
|
보칼리지 | 2023.09.15 | 228 |
13745 |
측량도면 성과심사시 격자에 좌표 넣는 리습 (1)
정원곤
|
2023.09.12
|
조회 318
|
정원곤 | 2023.09.12 | 318 |
13744 |
다중출력(멀티플롯)리습 프로그램 업그레이드 (5)
캐드플러스
|
2023.09.07
|
조회 797
|
캐드플러스 | 2023.09.07 | 797 |
13743 |
zw cad 담장 그려주는 리습 있으신분 계십니까??
한동민
|
2023.08.31
|
조회 361
|
한동민 | 2023.08.31 | 361 |
13742 |
석공사 Shop 일부 구할수 있나요?
작전제1참모
|
2023.07.28
|
조회 365
|
작전제1참모 | 2023.07.28 | 365 |
13741 |
MoeumT 폰트 있으신분 있나요 ㅠ?
미소
|
2023.07.14
|
조회 341
|
미소 | 2023.07.14 | 341 |
13740 |
사각형 여러개를 가로와세로 치수만 나오는 리습 요청드립니다.
이경재
|
2023.07.11
|
조회 399
|
이경재 | 2023.07.11 | 399 |
13739 |
배관관련 캐드소스 부탁드려도될까요.. 기계배관..
porolsy
|
2023.07.11
|
조회 622
|
porolsy | 2023.07.11 | 622 |