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

588 · 发表于 2009-11-6 15:32:49

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

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

fafadashi · 发表于 2009-11-13 08:44:08

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

xxxhhhqqq · 发表于 2009-11-14 17:22:24

怎么不让下载？岂有此理！

说明一下，是不是原码程序呀？

[ 本帖最后由 xxxhhhqqq 于 2009-11-14 17:23 编辑 ]

gongwen0519 · 发表于 2009-11-26 20:34:29

原帖由 xxxhhhqqq 于 2009-11-14 17:22 发表 http://www.3dportal.cn/discuz/images/common/back.gif
7 T$ b7 p2 M$ g. _( F# }* b怎么不让下载？岂有此理！% Y7 {9 B& b4 _8 ~5 d' O# T: c. b
说明一下，是不是原码程序呀？

是VB编译后的执行文件。

:lol:

既然程序这么简单，最好是带上标注就好了。

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

zgssd · 发表于 2009-11-28 11:19:49

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

588 · 发表于 2009-12-1 20:13:01

各位的要求还很高啊

weicu13579 · 发表于 2011-2-12 13:53:56

下载不了急人

hejunde · 发表于 2011-4-12 11:13:19

还真难找！！

一枕清风vs · 发表于 2012-10-23 18:30:18

本帖最后由 zmj1972 于 2012-10-23 18:35 编辑

试用lisp编一个，没用dcl
(defun c:yzfy()
  (setvar "cmdecho" 0)
  (setq ss (getreal "\n请输入圆锥小口直径："))
  (setq ww (getreal "\n请输入圆锥大口直径："))
  (setq hh (getreal "\n请输入圆锥高度："))
  (setq b (getreal "\n请输入板厚："))
  (setq past (getpoint "\n请输入定点："))
  (setq ss1 (- ss b))
  (setq ww1 (- ww b))
  (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))
  (setq ang3 (* ang2 (/ pi 180)))
  (setq pa (polar past 0 rr1))
  (setq pb (polar past 0 rr2))
  (setq pc (polar past ang3 rr1))
  (setq pd (polar past ang3 rr2))
  (command "arc" "c" past pa pc "")
  (command "arc" "c" past pb pd "")
  (command "pline" pd past pb "")
  (prin1)
  )
(prompt "\n《yzfy》圆锥管放样程序，编写：zmj1972。")
(prin1)

sos995 · 发表于 2012-10-24 10:16:17

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

		自动登录	找回密码
密码			注册

通知

[原创] 正心大小头（异径管）展开程序

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分