xin lisp vẽ thép hình

[cunconlangthang1088 1]

em vẽ thép hình chữ I,vẽ mãi mà chả đẹp tí nào,bác nào có lisp vẽ thép hình hok???cho em xin,thanks bác nhiều

[haanh 1590]

em vẽ thép hình chữ I,vẽ mãi mà chả đẹp tí nào,bác nào có lisp vẽ thép hình hok???cho em xin,thanks bác nhiều

 

có lip thống kê thép hình trên acad 2006http://www.cadviet.com/forum/index.php?showtopic=9197&hl=thép+hinh

LISP Thống kế thép?, trợ giúp

http://www.cadviet.com/forum/index.php?sho...mp;hl=thép+hinh

Tra các loại thép, thép hình+ thép cây (khá chi tiết)

http://www.cadviet.com/forum/index.php?sho...mp;hl=thép+hinh

Một file LISP tra thép hình, Tra đơn trọng độ dày theo tiêu chuẩn

http://www.cadviet.com/forum/index.php?sho...mp;hl=thép+hinh

[cunconlangthang1088 1]

có lip thống kê thép hình trên acad 2006http://www.cadviet.com/forum/index.php?showtopic=9197&hl=thép+hinh

LISP Thống kế thép?, trợ giúp

http://www.cadviet.com/forum/index.php?sho...mp;hl=thép+hinh

Tra các loại thép, thép hình+ thép cây (khá chi tiết)

http://www.cadviet.com/forum/index.php?sho...mp;hl=thép+hinh

Một file LISP tra thép hình, Tra đơn trọng độ dày theo tiêu chuẩn

http://www.cadviet.com/forum/index.php?sho...mp;hl=thép+hinh

 

trời ơi,vẽ thép hình chứ hok phải thống kê,thống kê thì có nhiều lắm rồi T___T

[doisevedau53 0]

ban ve chep doan líp nay vao suport roi load len la ok! ban nho cho no vao 1 file llisp nhé:

lenh ve la : hse

 

(defun C:HSE(/ PT1 PT2 PT3 PT4 PT5 PT6 PT7 PT8 PT9 PT10 PT11 PT12 PT13 pt14 pt15 PT16 PT17 PT18 PT19 PT20 PT21 PT22 PT23 PT24 PT25 PT26 PT27 PT28 D FW FT WT R)

(GRAPHSCR)

 

(SETQ PT1 (GETPOINT "WORKING POINT: "))(TERPRI)

(SETQ D (GETDIST "DEPTH:"))(TERPRI)

(SETQ FW (GETDIST "FLANGE WIDTH:"))(TERPRI)

(SETQ WT (GETDIST "WEB THK:"))(TERPRI)

(SETQ FT (GETDIST "FLG THK:"))(TERPRI)

(SETQ R (GETDIST "ROUND:"))(TERPRI)

 

(SETVAR "OSMODE" 0)

(SETQ PT2 (POLAR PT1 (/ PI 2)5))

(SETQ PT3 (POLAR PT1 (-(/ PI 2))D))

(SETQ PT4 (POLAR PT3 (-(/ PI 2))5))

 

(SETQ PT5 (POLAR PT1 PI (/ FW 2)))

(SETQ PT6 (POLAR PT5 (-(/ PI 2))FT))

(SETQ PT7 (POLAR PT6 0 (- (/ FW 2) (/ WT 2))))

(SETQ PT8 (POLAR PT7 PI R))

(SETQ PT9 (POLAR PT7 (-(/ PI 2)) R))

 

(SETQ PT10 (POLAR PT1 0 (/ FW 2)))

(SETQ PT11 (POLAR PT10 (-(/ PI 2))FT))

(SETQ PT12 (POLAR PT11 PI (-(/ FW 2) (/ WT 2))))

(SETQ PT13 (POLAR PT12 0 R))

(SETQ PT14 (POLAR PT12 (-(/ PI 2)) R))

 

(SETQ PT15 (POLAR PT3 PI (/ FW 2)))

(SETQ PT16 (POLAR PT15 (/ PI 2) FT))

(SETQ PT17 (POLAR PT16 0 (-(/ FW 2) (/ WT 2))))

(SETQ PT18 (POLAR PT17 PI R))

(SETQ PT19 (POLAR PT17 (/ PI 2) R))

 

(SETQ PT20 (POLAR PT3 0 (/ FW 2)))

(SETQ PT21 (POLAR PT20 (/ PI 2) FT))

(SETQ PT22 (POLAR PT21 PI (-(/ FW 2) (/ WT 2))))

(SETQ PT23 (POLAR PT22 0 R))

(SETQ PT24 (POLAR PT22 (/ PI 2) R))

 

(SETQ PT25 (POLAR PT9 PI R))

(SETQ PT26 (POLAR PT14 0 R))

(SETQ PT27 (POLAR PT19 PI R))

(SETQ PT28 (POLAR PT24 0 R))

 

(COMMAND "LINE" PT8 PT6 PT5 PT10 PT11 PT13"")

(COMMAND "LINE" PT9 PT19"")

(COMMAND "LINE" PT14 PT24"")

(COMMAND "LINE" PT18 PT16 PT15 PT20 PT21 PT23"")

(COMMAND "LINE" PT2 PT4"")

 

(COMMAND "ARC" PT9 "c" pt25 "a" 90"")

(COMMAND "ARC" PT13 "C" PT26 "A" 90"")

(COMMAND "ARC" PT18 "C" PT27 "A" 90"")

(COMMAND "ARC" PT24 "C" PT28 "A" 90"")

(COMMAND "OSMODE" 32)

 

(SETQ PO (GETPOINT "\n INSERT POINT :"))

(COMMAND "INSERT" "SC" PO "" "" "")

)

[Nguyễn quốc phan tình 1]

Anh doisevedau53 ơi.  Anh có thể chỉnh giúp em lisp hse của anh thép hình không cần bo các gọc canh đựoc không?  Các góc 90 độ hết ạ.  E cảm ơn nhiều

[Nguyễn quốc phan tình 1]

Vào lúc 27/2/2010 tại 16:49, doisevedau53 đã nói:

ban ve chep doan líp nay vao suport roi load len la ok! ban nho cho no vao 1 file llisp nhé:

lenh ve la : hse

 

(defun C:HSE(/ PT1 PT2 PT3 PT4 PT5 PT6 PT7 PT8 PT9 PT10 PT11 PT12 PT13 pt14 pt15 PT16 PT17 PT18 PT19 PT20 PT21 PT22 PT23 PT24 PT25 PT26 PT27 PT28 D FW FT WT R)

(GRAPHSCR)

 

(SETQ PT1 (GETPOINT "WORKING POINT: "))(TERPRI)

(SETQ D (GETDIST "DEPTH:"))(TERPRI)

(SETQ FW (GETDIST "FLANGE WIDTH:"))(TERPRI)

(SETQ WT (GETDIST "WEB THK:"))(TERPRI)

(SETQ FT (GETDIST "FLG THK:"))(TERPRI)

(SETQ R (GETDIST "ROUND:"))(TERPRI)

 

(SETVAR "OSMODE" 0)

(SETQ PT2 (POLAR PT1 (/ PI 2)5))

(SETQ PT3 (POLAR PT1 (-(/ PI 2))D))

(SETQ PT4 (POLAR PT3 (-(/ PI 2))5))

 

(SETQ PT5 (POLAR PT1 PI (/ FW 2)))

(SETQ PT6 (POLAR PT5 (-(/ PI 2))FT))

(SETQ PT7 (POLAR PT6 0 (- (/ FW 2) (/ WT 2))))

(SETQ PT8 (POLAR PT7 PI R))

(SETQ PT9 (POLAR PT7 (-(/ PI 2)) R))

 

(SETQ PT10 (POLAR PT1 0 (/ FW 2)))

(SETQ PT11 (POLAR PT10 (-(/ PI 2))FT))

(SETQ PT12 (POLAR PT11 PI (-(/ FW 2) (/ WT 2))))

(SETQ PT13 (POLAR PT12 0 R))

(SETQ PT14 (POLAR PT12 (-(/ PI 2)) R))

 

(SETQ PT15 (POLAR PT3 PI (/ FW 2)))

(SETQ PT16 (POLAR PT15 (/ PI 2) FT))

(SETQ PT17 (POLAR PT16 0 (-(/ FW 2) (/ WT 2))))

(SETQ PT18 (POLAR PT17 PI R))

(SETQ PT19 (POLAR PT17 (/ PI 2) R))

 

(SETQ PT20 (POLAR PT3 0 (/ FW 2)))

(SETQ PT21 (POLAR PT20 (/ PI 2) FT))

(SETQ PT22 (POLAR PT21 PI (-(/ FW 2) (/ WT 2))))

(SETQ PT23 (POLAR PT22 0 R))

(SETQ PT24 (POLAR PT22 (/ PI 2) R))

 

(SETQ PT25 (POLAR PT9 PI R))

(SETQ PT26 (POLAR PT14 0 R))

(SETQ PT27 (POLAR PT19 PI R))

(SETQ PT28 (POLAR PT24 0 R))

 

(COMMAND "LINE" PT8 PT6 PT5 PT10 PT11 PT13"")

(COMMAND "LINE" PT9 PT19"")

(COMMAND "LINE" PT14 PT24"")

(COMMAND "LINE" PT18 PT16 PT15 PT20 PT21 PT23"")

(COMMAND "LINE" PT2 PT4"")

 

(COMMAND "ARC" PT9 "c" pt25 "a" 90"")

(COMMAND "ARC" PT13 "C" PT26 "A" 90"")

(COMMAND "ARC" PT18 "C" PT27 "A" 90"")

(COMMAND "ARC" PT24 "C" PT28 "A" 90"")

(COMMAND "OSMODE" 32)

 

(SETQ PO (GETPOINT "\n INSERT POINT :"))

(COMMAND "INSERT" "SC" PO "" "" "")

)

Anh doisevedau53 ơi.  Anh có thể chỉnh giúp em lisp hse của anh thép hình không cần bo các gọc canh đựoc không?  Các góc 90 độ hết ạ.  E cảm ơn nhiều

[lp_hai 226]

muốn vẽ thép hình đẹp thì phải tìm hiểu cá thông số cần biết của thép hình. Còn lisp là công cụ để vẽ thôi, bạn cũng phải nhập các thông số đó vào. Và nếu bạn không biết nó thì chẵn qua là lisp sẽ thay bạn vẽ "thép hình xấu" chứ chả khá hơn....

W, H k....đó là những thông số cơ bản của của thép hình, trong đó k sẽ cho bạn biết bán kính cong chỗ giao giũa cánh và bụng