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

588

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

fafadashi

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

xxxhhhqqq

怎么不让下载？岂有此理！
说明一下，是不是原码程序呀？
% V# r' m0 o' E$ ]
[ 本帖最后由 xxxhhhqqq 于 2009-11-14 17:23 编辑 ]

gongwen0519

原帖由 xxxhhhqqq 于 2009-11-14 17:22 发表 http://www.3dportal.cn/discuz/images/common/back.gif
# Z3 p- ]1 E. o5 C6 \  [怎么不让下载？岂有此理！
6 v* V7 o4 q4 P6 r说明一下，是不是原码程序呀？

1 P: f( t% z, D1 z% k% T5 z0 G& k
% K# X9 T- ~4 h/ a是VB编译后的执行文件。  :lol:
8 D2 T3 L  O" a* O2 E; C1 ]& B) N
既然程序这么简单，最好是带上标注就好了。
: `) W$ ^' z, ]) N( \6 v0 K
  Q" |! V, |) `! t7 ?. D[ 本帖最后由 gongwen0519 于 2009-11-26 20:38 编辑 ]

zgssd

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

588

各位的要求还很高啊

weicu13579

下载不了  急人

hejunde

还真难找！！

一枕清风vs

2 [- u5 i8 S- v  j8 L4 }
2 {& s1 W( E6 X: F' A试用lisp编一个，没用dcl
(defun c:yzfy()
  (setvar "cmdecho" 0)
5 v+ z: F' p) Z7 Z* O6 W  (setq ss (getreal "\n请输入圆锥小口直径："))
* P: f, R" k! E  (setq ww (getreal "\n请输入圆锥大口直径："))
, @. J1 v) S1 X  (setq hh (getreal "\n请输入圆锥高度："))
  (setq b (getreal "\n请输入板厚："))
  (setq past (getpoint "\n请输入定点："))
: u1 m. [6 B; u  (setq ss1 (- ss b))
  (setq ww1 (- ww b))
0 l! h" ~* U# T% i  (setq ang1 (atan (/ hh (/ (- ww1 ss1) 2))))
9 g" h* k& g4 S1 ?; N  (setq rr1 (/ (/ ss1 2) (cos ang1)))
  (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))
( U/ ]5 [: u4 H# i  (setq pb (polar past 0 rr2))
  (setq pc (polar past ang3 rr1))
  (setq pd (polar past ang3 rr2))
) u& e: e4 ]; l, j  (command "arc" "c" past pa pc "")
+ M" H- D; Y& r  (command "arc" "c" past pb pd "")
0 [7 i3 a9 g, g' |4 b7 ?  (command "pline" pd past pb "")
* {- n+ p9 C# M0 L) J+ f/ F: D1 j  (prin1)
  )
(prompt "\n《yzfy》圆锥管放样程序，编写：zmj1972。")
(prin1)

sos995

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