QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
6天前
查看: 4880|回复: 19
收起左侧

[分享] 画螺旋线的好方法

[复制链接]
发表于 2006-6-1 15:31:48 | 显示全部楼层 |阅读模式 来自: 中国北京

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

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

x
将下列程序复制到工具/Autolisp/visual lisp编辑器,然后粘贴保存为lisp源文件类型,要用时只需加载该程序(工具/加载应用程序)用是只需用命令:SPL
. n$ E% Z& j# Z4 @5 y
2 g9 v) @+ ?& _0 d(defun C:SPL (/ SD ED THS TAS NVS STEP X Y Z R A H)' l3 d' p' g+ W, I5 ^2 j. t7 Q
(setq SD (/ (getreal "螺旋起始直径: ") 2))
( {" N, ^" |' K7 x5 Z  v(setq ED (/ (getreal "螺旋终点直径: ") 2))
: ^' d& n( d, `; e2 T( n6 \(setq THS    (getreal "螺旋总高(每圈高度X 圈数): "))2 [% k0 f& O. K
(setq TAS    (getreal "总角度数(360 X 圈数): "))
! r! w. `- ^% |5 V, E(setq NVS    (getint  "节点数([总角度数/间隔角度]+1): "))
/ N1 j) N' s1 g+ x(setq STEP (- NVS 1))
! v- _; X7 M6 V# i(setq X (/ (- ED SD) STEP))' l$ q; v9 l. N/ g' }& w- d6 V1 ~& ^
(setq Y (/ THS STEP))7 j9 ]; B+ d; A
(setq Z (/ TAS STEP))
( P8 r! W/ q+ c, U(setq R SD)* m4 L- x6 x0 g5 h
(setq A 0)2 a3 H7 J* _2 [0 K! Z2 O2 X
(setq H 0)7 r5 i/ j$ d$ B0 N
(setvar "CMDECHO"  0)/ C2 m1 ]2 ^$ U3 p  I7 m
(command "3DPOLY" (strcat (rtos R) "<" (rtos A) "," (rtos H)))0 }- S/ w& I" `: t. e; ?
(repeat STEP; j. r( A% p( J' y! ]+ ?6 ~
(setq A (+ A Z))
! S4 g# h7 Q' _; R( D0 C(setq H (+ H Y))
2 l8 \6 O" _5 b# V(setq R (+ R X))  y: u, B; N" j3 L& x6 A' d% O
(command (strcat (rtos R) "<" (rtos A) "," (rtos H)))
; X# W: ]1 j3 I# u  )8 _4 F8 H# Z  K5 }2 T) ^1 s4 I* O
(command "")6 }( t/ _8 Y4 X% ~2 k) r) o
(setvar "CMDECHO"  1)
* Z2 b% m) x! ^  \4 K4 y; |$ N(princ)4 t# V/ d5 e7 D! b
)
发表于 2007-9-1 09:17:03 | 显示全部楼层 来自: 中国河南新乡
太谢谢了,雪中松炭!
发表于 2007-9-1 10:44:32 | 显示全部楼层 来自: 中国浙江台州
终于给找到画螺纹的好方法了,前几天还在论谈里提问来着,!感谢楼主了!
发表于 2007-9-1 14:00:02 | 显示全部楼层 来自: 中国广东广州
用AUTOCAD 2007就有。
发表于 2007-9-1 15:08:28 | 显示全部楼层 来自: 中国山西太原
比较好用!是楼主自己编的吧!
发表于 2007-9-1 22:49:00 | 显示全部楼层 来自: 中国山东济南
非常好,高手  啊,十分感谢!!!
发表于 2007-9-6 16:31:41 | 显示全部楼层 来自: 中国浙江台州
CAD04里可以吗?
发表于 2007-9-7 10:51:02 | 显示全部楼层 来自: 中国山东济南
很有用的,谢谢分享!
发表于 2007-9-7 11:55:15 | 显示全部楼层 来自: 中国河南南阳
等下载了软件试一下,谢谢楼主了~
发表于 2007-9-7 15:02:46 | 显示全部楼层 来自: 中国辽宁鞍山
建议以后所有程序都提供源代码!!!!
发表于 2007-9-7 16:36:27 | 显示全部楼层 来自: 中国湖北武汉
原帖由 maoyangmy 于 2007-9-7 15:02 发表 http://www.3dportal.cn/discuz/images/common/back.gif
( o2 |$ b; G3 N2 q: }1 h" ?建议以后所有程序都提供源代码!!!!

* w$ w  a$ A% f0 A, E这 个建议不错,可以从中尝到很多的东西
发表于 2007-9-7 18:03:11 | 显示全部楼层 来自: 中国江苏镇江
原帖由 ffzglff 于 2007-9-7 10:51 发表 http://www.3dportal.cn/discuz/images/common/back.gif
; o5 _3 A% S0 h3 e3 d6 e! Z很有用的,谢谢分享!
% t2 G' I+ b5 U6 E* L5 S5 R5 J

/ _/ {9 }5 s0 p( \; `8 ^1 c# m) A你的很多帖子都是灌水的毫无意义的帖子!/ m- @: b% e; K; O3 ?
警告:如果再这样发帖就要禁止发言了!
ffzglff.JPG
发表于 2007-9-7 19:31:04 | 显示全部楼层 来自: 中国安徽合肥

楼主完全没有必要了

现在2007版本的CAD直接就可以画出来螺旋。
发表于 2007-9-7 20:41:45 | 显示全部楼层 来自: 中国浙江台州
2004以下的版本有可能会用到,以上的版本可能就不用了。常用2004,下来试一下。谢谢分享
发表于 2007-9-8 15:17:31 | 显示全部楼层 来自: 中国湖北武汉
谢谢,LZ。好用又可以学习下!
发表于 2007-9-10 00:05:41 | 显示全部楼层 来自: 中国河南郑州
对07版本以下的是雪中送炭啊.楼主辛苦了
发表于 2007-9-15 09:58:06 | 显示全部楼层 来自: 中国山东烟台
开放万岁,共享万岁,三维网万岁!!!!!!
发表于 2008-10-19 20:40:49 | 显示全部楼层 来自: 中国广东湛江
我加载来了,但当我输到 "节点数([总角度数/间隔角度]+1): "))之后就没反应了,也没有图.是为什么呢
发表于 2008-10-19 20:54:48 | 显示全部楼层 来自: 中国

回复 18# 华玉 的帖子

zoom一下看看,只要你输入得没错应该有图的。
发表于 2008-10-19 21:08:57 | 显示全部楼层 来自: 中国广东湛江
"节点数([总角度数/间隔角度]+1): "))是什么意思呢,
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表