|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
本帖最后由 chenxuy2006 于 2010-4-17 21:53 编辑 " w8 b8 S6 w2 b! [
. F( e9 E6 @2 o我是搞钢结构设计的，写了个计算不规则钢板重量的autolisp程序，感觉很好用。如果把钢板密度改成别的，或用个变量输入，可以计算其他板材。（补充说明：单位是mm、kg)
7 O' J; `; J/ r) l& V: u7 b) f$ s, I$ j$ l4 a2 L
(defun C:gw(/ ss str bl hd a n mj wt fil sdata st sl fl fl2 sn)
3 U8 A- M+ h% c F (princ "\n计算不规则钢板重量")% u- ~& v! M& d1 E# Y# z) H
(princ "\n请选择用于生成面域的直线或面域")
3 o% l# f: @8 ^1 a (setq ss (ssget))/ `# j1 f+ z5 P! @: y
(setq st (sslength ss))7 n9 v: H3 l7 @4 @
(setq sl (- st 1))3 d7 `" E0 s: E! O
(while (>= sl 0)) w: _" ?8 d$ c! ?
(setq sn (ssname ss sl))1 u g" L6 a/ I! ?; y& `
(setq sdata (entget sn))
2 R# |; \- v1 q" D9 [8 n# P* b$ R' Z (if (= (cdr (assoc 0 sdata)) "REGION")(setq fl T))
6 S% |, J6 k/ @0 d (setq sl (- sl 1))) ~& a$ S- i. _. ^5 k* G
);end while! R9 G) J n' W' v1 w! z
(if (not fl)
2 b5 c1 ^$ p; E (progn+ ]$ Q* y" J2 G8 j0 M U @
(command "region" ss "")
3 u, o, W H$ k7 u (if (not (setq ss (ssget "p"))) ?5 S' F& r/ y* @; D2 Q
(setq ss (entlast) fl2 T)
" ~) }$ k2 \: r7 _, S' b (if (= (sslength ss) st)
, h. m) r( M0 W4 r( S/ T (princ "\n图形错误，不能生成面域！请检查图形！ " )
1 T# e- t6 d( E. K: z/ u- ~ (setq ss (entlast) fl2 T)1 ?6 w* P( b4 \% a: s$ `2 g- p
);end if
: {6 x( r3 C- x% v, ] );end if, s/ i1 R- D- m; N
);end progn
2 k; Q, j Z+ l1 N/ n' a6 Q );end if
" v' t" H; t& a+ H/ G& j, e" W (if fl
. g0 ^: _: ]- g2 R" P (if (> st 1)
/ K. ~( L$ c7 j K N. e4 q4 b" I% | (progn
Y( n2 y! W7 n; ~3 \0 t' f (command)
- F/ U+ M2 w, O" o3 {: c (princ "\n选择面域太多，或有非面域实体！ " )
4 g$ R7 J4 b2 i# r: ]7 I9 U );end progn
, K2 W" ~2 _6 I- C (setq fl2 T)
4 h# Q3 A7 p/ {' T$ t. B2 a );end if; p2 I8 d3 W( r. v4 H
);end if1 m; f% ~2 U6 Y3 ?( Z% M4 ?- t* E
(if fl2 % x, ^' j- u! c& x B
(progn9 h$ Z" m; W( Y2 @6 H6 Z' d' m
(command "_area" "o" ss)2 O) n5 w3 }8 E# T+ j
(setq bl (getstring "\n输入图形比例:"))
V6 p! Y) z. \* m1 b (setq bl (atof bl))
7 s G" M9 e3 w: F. ?0 N1 F# b (setq hd (getstring "\n输入图形厚度:"))6 V L' g6 W) S8 I! i& j! ~. x
(setq hd (atof hd))" O) X- ]" [$ \% M3 R
(setq str "\n图形单位：mm 材料：钢 7850kg/m3")
: g/ D z* @) z (setq mj (getvar "AREA"))) q) G) ?% q( ~
(progn1 \4 K( f3 z( \9 U/ [, O
(setq wt (* mj bl bl hd 0.00000785))0 [; P( n! ~- M9 ^7 H3 l
(setq wt (rtos wt 2 2))4 [: @8 e/ N7 n3 h3 @; J
(setq wt (strcat "\n重量= " wt " kg "))
/ @) F) v2 L3 F; o5 ~( H (princ wt)1 t+ |6 @$ F$ \2 P# T
);;end progn9 q. @+ m7 Y: f8 H5 {/ P1 O
);end progn' X/ ^) o% j* r7 J% `
);end if7 m" V+ H# S3 a) m& _
);end defun |
|
发表于 2010-4-17 18:33:57