只需一步,快速开始
您需要 登录 才可以下载或查看,没有帐号?注册
举报
CAD画螺纹插件.rar
2007-10-1 08:55 上传
点击文件名下载附件
10.59 KB, 下载次数: 84
画螺纹线的小工具
;========================================================<BR>;<BR>; 本程序适用于锥形,倒锥形,柱形,螺旋线的生成<BR>; 2000.6.1 LJC<BR>; 2000.5.30 2000.6.1 2004.2<BR>;<BR>;========================================================<BR>(defun C:xlt(/)<BR> (setq b1(getpoint "\n下端圆心: "))<BR> (setq ang0(getreal "总转角:"))<BR> (setq a(getreal "下端圆半径R=:"))<BR> (setq b(getreal "上端圆半径r=:"))<BR> (setq h(getreal"上、下端高差H=:"))<BR> (setq n(fix h))<BR> (setq delt (/ (*(/ ang0 180) pi) n ))<BR> (setq j( / h n))<BR> (setq ang 0)<BR> (setq jj 0)<BR> (command "ucsicon" "or" )<BR> (command "ucs" "o" b1)<BR> (command "3dpoly" (list a 0 0))<BR> (repeat n<BR> (setq jj(+ jj 1))<BR> (setq j1(+ 0 (* j jj)))<BR> (setq ang (+ delt ang))<BR> (setq r(- a (/ (* j1 (- a b))h)))<BR> (setq pt2(list (* r (cos ang))(* r (sin ang))(+ 0 (* j jj))))<BR> (command pt2)<BR> <BR> )<BR> (command "")<BR> <BR>)
查看全部评分
本版积分规则 发表回复 回帖并转播 回帖后跳转到最后一页
Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号
小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )
Powered by 3dportal X3.4 Licensed Copyright © 2001-2013 Comsenz Inc.
GMT+8, 2025-7-22 02:10 , Processed in 0.313510 second(s), 30 queries, Gzip On.