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

588

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

fafadashi

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

xxxhhhqqq

怎么不让下载？岂有此理！
说明一下，是不是原码程序呀？
0 G. Y) m2 u) ?: E3 Y$ @, x/ m* N' X
+ _8 L2 C- K3 I8 g' L[ 本帖最后由 xxxhhhqqq 于 2009-11-14 17:23 编辑 ]

gongwen0519

原帖由 xxxhhhqqq 于 2009-11-14 17:22 发表 http://www.3dportal.cn/discuz/images/common/back.gif
$ W8 }/ t+ b5 Q$ B怎么不让下载？岂有此理！
( t1 G/ k# {" S! t9 @! g2 B! C; |4 C说明一下，是不是原码程序呀？

0 L/ P, q6 Y0 B# Q- K+ ~
/ X# k9 R9 Y' h: K是VB编译后的执行文件。  :lol:
3 ~! g$ r! L% |, h
既然程序这么简单，最好是带上标注就好了。

[ 本帖最后由 gongwen0519 于 2009-11-26 20:38 编辑 ]

zgssd

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

588

各位的要求还很高啊

weicu13579

下载不了  急人

hejunde

还真难找！！

一枕清风vs

试用lisp编一个，没用dcl
, `0 `+ Y( Y. y% _1 v: s(defun c:yzfy()
7 f1 {% W, r: z$ H) P8 K  (setvar "cmdecho" 0)
. h# k! h# u  y! N4 E5 }: ]7 g% w  (setq ss (getreal "\n请输入圆锥小口直径："))
  (setq ww (getreal "\n请输入圆锥大口直径："))
  (setq hh (getreal "\n请输入圆锥高度："))
  (setq b (getreal "\n请输入板厚："))
% x* |" A2 d* u( D2 W# o) b. O  (setq past (getpoint "\n请输入定点："))
  (setq ss1 (- ss b))
  (setq ww1 (- ww b))
$ r& c' y$ w$ x4 G  D& ]% O5 E1 m  (setq ang1 (atan (/ hh (/ (- ww1 ss1) 2))))
- b' n0 c; O5 Q3 c3 y) ^  (setq rr1 (/ (/ ss1 2) (cos ang1)))
1 O6 ]9 C% {7 g/ }' z! h' _9 P) |7 y" d  (setq rr2 (/ (/ ww1 2) (cos ang1)))
% j, Q$ \% c! L( }' R  (setq ang2 (* (/ (* ww1 pi) (* rr2 2 pi)) 360))
  (setq ang3 (* ang2 (/ pi 180)))
  (setq pa (polar past 0 rr1))
  (setq pb (polar past 0 rr2))
9 `8 n0 M& k+ d  (setq pc (polar past ang3 rr1))
( Z& L/ J0 ~; }8 Y( v  (setq pd (polar past ang3 rr2))
: `5 }$ K* c9 X3 W! K, y8 W  (command "arc" "c" past pa pc "")
% _5 n8 }3 @# M% E0 S" t3 O  (command "arc" "c" past pb pd "")
& }+ W: W: J& v) c! c& Z- |0 b3 @  (command "pline" pd past pb "")
9 H* d( ^1 V; [5 u  (prin1)
  )
2 |) g5 x( _: B) ~$ [! M! j(prompt "\n《yzfy》圆锥管放样程序，编写：zmj1972。")
+ Z4 j3 R, e9 l# t(prin1)

sos995

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