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

588

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

fafadashi

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

xxxhhhqqq

怎么不让下载？岂有此理！
/ k+ X/ H0 L/ h% ?& l3 O6 {说明一下，是不是原码程序呀？
) k4 v2 q( y- r0 X! P. x
[ 本帖最后由 xxxhhhqqq 于 2009-11-14 17:23 编辑 ]

gongwen0519

原帖由 xxxhhhqqq 于 2009-11-14 17:22 发表 http://www.3dportal.cn/discuz/images/common/back.gif
怎么不让下载？岂有此理！
说明一下，是不是原码程序呀？

" \# J" f4 T5 z- ~
9 [( T6 J- u: Z: U+ \是VB编译后的执行文件。  :lol:
0 ~( C! T3 H  G" C- T
3 E* [' b: D4 y" a: g- z& c既然程序这么简单，最好是带上标注就好了。

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

zgssd

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

588

各位的要求还很高啊

weicu13579

下载不了  急人

hejunde

还真难找！！

一枕清风vs

7 M7 P/ l+ T: V2 A$ o
试用lisp编一个，没用dcl
* v' E3 P/ Y' U$ {(defun c:yzfy()
* o- H( l: h* S& w) ]; v7 I  (setvar "cmdecho" 0)
) |: i& P0 s& F; A0 U) o  (setq ss (getreal "\n请输入圆锥小口直径："))
8 ^' d# x" D; Y' [, U9 n' v$ m4 y; C2 H  (setq ww (getreal "\n请输入圆锥大口直径："))
* V' r# B/ j) P! ~+ K- z  (setq hh (getreal "\n请输入圆锥高度："))
  (setq b (getreal "\n请输入板厚："))
3 [# @9 z  O$ p; R# |% `8 i9 }% p  (setq past (getpoint "\n请输入定点："))
/ z' ?; e' l3 f8 g  (setq ss1 (- ss b))
% Q9 b4 W+ ]) ]+ D  (setq ww1 (- ww b))
  (setq ang1 (atan (/ hh (/ (- ww1 ss1) 2))))
  (setq rr1 (/ (/ ss1 2) (cos ang1)))
2 y' r  ~' c9 z, T0 m5 Q0 r# E% s  (setq rr2 (/ (/ ww1 2) (cos ang1)))
4 a- }1 ~1 M- E$ N2 s* Y3 ]  b+ [  (setq ang2 (* (/ (* ww1 pi) (* rr2 2 pi)) 360))
- ?. _2 E* P! r+ n) y, I  (setq ang3 (* ang2 (/ pi 180)))
  (setq pa (polar past 0 rr1))
+ |8 o/ b4 _) W" R  (setq pb (polar past 0 rr2))
1 |5 i9 x2 a" w8 d$ H3 ~  (setq pc (polar past ang3 rr1))
0 X& V5 X, Y/ V- ^  ?; o; R2 X  (setq pd (polar past ang3 rr2))
  (command "arc" "c" past pa pc "")
  (command "arc" "c" past pb pd "")
( Q9 f+ }/ r- U3 L  (command "pline" pd past pb "")
( U: q+ @3 r! S8 q  (prin1)
/ j' }+ c+ S% t  M2 |  )
0 ^4 \* H9 Y4 K9 i(prompt "\n《yzfy》圆锥管放样程序，编写：zmj1972。")
6 @4 f# c/ E/ m- T(prin1)

sos995

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