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

588

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

fafadashi

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

xxxhhhqqq

怎么不让下载？岂有此理！
1 @4 b7 J/ C( t  z) d  B说明一下，是不是原码程序呀？
" _! g. ?2 B, |
[ 本帖最后由 xxxhhhqqq 于 2009-11-14 17:23 编辑 ]

gongwen0519

原帖由 xxxhhhqqq 于 2009-11-14 17:22 发表 http://www.3dportal.cn/discuz/images/common/back.gif
3 |7 E, T4 Q& o9 o- w. A; D怎么不让下载？岂有此理！
说明一下，是不是原码程序呀？

5 u4 K" l" S8 f. s) S7 Z, Z9 n4 _是VB编译后的执行文件。  :lol:
, I) k0 U; _+ x5 {) E9 {- v
1 f2 T1 M0 s% x5 C2 t* b1 s+ v( P5 |) N  ^既然程序这么简单，最好是带上标注就好了。

: Z; J( ]6 G! ^" b: t& z[ 本帖最后由 gongwen0519 于 2009-11-26 20:38 编辑 ]

zgssd

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

588

各位的要求还很高啊

weicu13579

下载不了  急人

hejunde

还真难找！！

一枕清风vs

; j7 N; a/ g( K' Q  u- `; I8 b0 ]
试用lisp编一个，没用dcl
; ?5 H/ R/ V# J- z$ h; T, m- k(defun c:yzfy()
  (setvar "cmdecho" 0)
1 m3 T8 s& Y' v$ _- y; p& }- u4 v  (setq ss (getreal "\n请输入圆锥小口直径："))
  Q/ T; k2 n( x6 j7 I# {8 \  (setq ww (getreal "\n请输入圆锥大口直径："))
" H/ ~: d- w8 l, W$ p4 X2 @  (setq hh (getreal "\n请输入圆锥高度："))
4 _  g* k# B& F( g( A8 L* v  (setq b (getreal "\n请输入板厚："))
  (setq past (getpoint "\n请输入定点："))
  (setq ss1 (- ss b))
7 ~$ ?  ~5 {# L& J! T  (setq ww1 (- ww b))
, f% r/ m( Y2 J/ m/ J! r  (setq ang1 (atan (/ hh (/ (- ww1 ss1) 2))))
  (setq rr1 (/ (/ ss1 2) (cos ang1)))
  (setq rr2 (/ (/ ww1 2) (cos ang1)))
  (setq ang2 (* (/ (* ww1 pi) (* rr2 2 pi)) 360))
3 m/ B! h" s' @  (setq ang3 (* ang2 (/ pi 180)))
' {' Z: e8 Y, [4 d# Q$ g  (setq pa (polar past 0 rr1))
# ?8 I$ n  L4 v6 C, Z  (setq pb (polar past 0 rr2))
  (setq pc (polar past ang3 rr1))
  (setq pd (polar past ang3 rr2))
1 d0 P  d, s) x  (command "arc" "c" past pa pc "")
, T& Q; p% h. u4 O/ o* z  (command "arc" "c" past pb pd "")
  (command "pline" pd past pb "")
  (prin1)
  @9 L  e5 i$ U* Y( X. k# G  )
) S: v; k4 B- H: U' j(prompt "\n《yzfy》圆锥管放样程序，编写：zmj1972。")
( C! l! \# t6 E  ?( r) e(prin1)

sos995

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