乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 64|回复: 4

求救

[复制链接]

1

主题

2

帖子

1

银币

初来乍到

Rank: 1

铜币
6
发表于 2004-5-8 17:34:00 | 显示全部楼层 |阅读模式
已知两皮带节圆直径和皮带的长度,有没有具体公式求两皮轮的中心距。
回复

使用道具 举报

38

主题

123

帖子

6

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
275
发表于 2004-5-8 21:35:00 | 显示全部楼层
很多东西都忘记了,什么是节圆?假若知道两个圆的直径很容易算的!
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2004-5-8 22:31:00 | 显示全部楼层
发个图上来直观一些
回复

使用道具 举报

1

主题

2

帖子

1

银币

初来乍到

Rank: 1

铜币
6
发表于 2004-5-9 08:40:00 | 显示全部楼层
请点击此处下载

请先注册会员后在进行下载

已注册会员,请先登录后下载

文件名称:2t32xmie0ve.dwg 
下载次数:0  文件大小:33.46 KB  售价:2银币 [记录]
下载权限: 不限 以上或 Vip会员   [开通Vip]   [签到领银币]  [免费赚银币]

回复

使用道具 举报

63

主题

1203

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1455
发表于 2004-5-9 09:29:00 | 显示全部楼层
將就用用這個吧, 剛寫的.
(defun c:test (/ d1 d2 d1c d2c d1r d2r a sl l1 l2 l)
         (setq d1 (entsel "\n請選擇 d :"))
         (setq d2 (entsel "\n請選擇 D :"))
         (setq d1c (cdr (assoc 10 (entget (car d1)))))
         (setq d2c (cdr (assoc 10 (entget (car d2)))))
         (setq d1r (cdr (assoc 40 (entget (car d1)))))
         (setq d2r (cdr (assoc 40 (entget (car d2)))))
         (setq a (distance d1c d2c))
         (vl-cmdf "line" "_tan" (polar d1c (/ pi 2.0) d1r) "_tan"(polar d2c (/ pi 2.0) d2r)"")
         (setq sl(entlast))
         (setq l1 (cdr (assoc 10 (entget sl))))
         (setq l2 (cdr (assoc 11 (entget sl))))
         (entdel sl)
         (setq l (distance l1 l2))
         (princ (strcat "\n中心距離"(rtos a)"mm,切線長為"(rtos l)"mm."))
         (princ))
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-8-16 11:26 , Processed in 1.154105 second(s), 68 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表