正心大小头（异径管）展开程序

588

钣金展开程序，输入数据后在cad里自动绘制展开图

fafadashi

简单的小程序，好用，顶一个！！！

xxxhhhqqq

怎么不让下载？岂有此理！
2 O" ^$ w: ^: L! ~1 {# W! S说明一下，是不是原码程序呀？
8 J% a& @+ X' E. }7 L
[ 本帖最后由 xxxhhhqqq 于 2009-11-14 17:23 编辑 ]

gongwen0519

原帖由 xxxhhhqqq 于 2009-11-14 17:22 发表 http://www.3dportal.cn/discuz/images/common/back.gif
怎么不让下载？岂有此理！
1 b1 R. M" M, R5 A. V3 l/ P8 P说明一下，是不是原码程序呀？

% b6 o2 i) b0 k1 a; c/ M& [/ g
是VB编译后的执行文件。  :lol:
6 i8 V0 n- r- W& `# }, L/ N
既然程序这么简单，最好是带上标注就好了。
- L; g  \. i" ^+ A7 b& Z1 c
1 I% z- F* s0 ^9 [2 V( K3 h[ 本帖最后由 gongwen0519 于 2009-11-26 20:38 编辑 ]

zgssd

钣金展开，内容再丰富些就好了

588

各位的要求还很高啊

weicu13579

下载不了  急人

hejunde

还真难找！！

一枕清风vs

. R+ g; c% m) H8 h  z试用lisp编一个，没用dcl
(defun c:yzfy()
  (setvar "cmdecho" 0)
  (setq ss (getreal "\n请输入圆锥小口直径："))
6 J, j' K# F$ Y% C9 T, [* x  (setq ww (getreal "\n请输入圆锥大口直径："))
) I7 u) T( C: \( m  (setq hh (getreal "\n请输入圆锥高度："))
0 |- A5 g. l# ]: N2 t  (setq b (getreal "\n请输入板厚："))
* O1 {" r+ A: r/ C! I: y/ ~* ^  (setq past (getpoint "\n请输入定点："))
  (setq ss1 (- ss b))
3 z+ h7 q8 y. D3 C# ^# x& @) ~( t: s  (setq ww1 (- ww b))
$ a8 Q8 V8 T9 s( b( U  i* v  (setq ang1 (atan (/ hh (/ (- ww1 ss1) 2))))
/ p' K( k5 H; Y/ i# o/ t  (setq rr1 (/ (/ ss1 2) (cos ang1)))
3 s* v# ]9 ?/ o! n) u2 F  (setq rr2 (/ (/ ww1 2) (cos ang1)))
  (setq ang2 (* (/ (* ww1 pi) (* rr2 2 pi)) 360))
  (setq ang3 (* ang2 (/ pi 180)))
  (setq pa (polar past 0 rr1))
5 `' [! g( Q3 Z1 l+ M5 K  (setq pb (polar past 0 rr2))
3 P) F4 `1 o- @. u- `2 @; \( I. [  (setq pc (polar past ang3 rr1))
  (setq pd (polar past ang3 rr2))
' M* l$ H! A! Q: Z* H( F  (command "arc" "c" past pa pc "")
# c2 N# [0 F, o( @9 h1 @$ O2 T  (command "arc" "c" past pb pd "")
& ?6 b2 I& L- o$ M  (command "pline" pd past pb "")
+ f4 }# l6 U5 R2 c% B* `; x) @  (prin1)
  )
(prompt "\n《yzfy》圆锥管放样程序，编写：zmj1972。")
(prin1)

sos995

竟是高手。跟经理一样多！