[求助]：如何在autocad 2002下画出三维螺旋线？

guangye

请教各位老师，如何在autocad 2002下快速画出三维螺旋线，谢谢帮助:i :i

amplly

这是我作的lisp文件，我自己使用觉得还可以，看看还有没有问题，大家指导一下！


(defun C:spring (/ SD ED THS TAS NVS STEP X Y Z R A H)
(setq b1(getpoint"基点"))
(setq SD (/ (getreal "弹簧起始直径: ") 2))
(setq ED (/ (getreal "弹簧終點直径: ") 2))
(setq THS    (getreal "弹簧总高(每圈高度 X 圈数): "))
(setq TAS    (getreal "总角度数(360 X 圈数): "))
(setq NVS    (getint  "节点数([总角度数/间隔角度]+1): "))
(setq STEP (- NVS 1))
(setq X (/ (- ED SD) STEP))
(setq Y (/ THS STEP))
(setq Z (/ TAS STEP))
(setq bb(caddr b1))
(setq R SD)
(setq A 0)
(setq H 0)
(setvar "CMDECHO"  0)
(setvar "BLIPMODE" 0)
(command "UCS""O"B1)
(command "3DPOLY" (strcat (rtos R) "<" (rtos A) "," (rtos H)))
(repeat STEP
   (setq A (+ A Z))
   (setq H (+ H Y))
   (setq R (+ R X))
   (command (strcat (rtos R) "<" (rtos A) "," (rtos H)))
)
(command "")
(setvar "CMDECHO"  1)
(setvar "BLIPMODE" 1)
(princ)
)

yxc

Acad2002本身不能绘制三维螺旋线，可以自编程序解决，论坛有的，你找找……

guangye

:4 感谢各位老师和斑竹的的帮助，非常有用，以后我将多来这里学习

逝水

诶不懂.还是基础没学好啊!

Lanfeng

决定开始学习lisp语言

yin

最初由 yxc 发布
[B]Acad2002本身不能绘制三维螺旋线，可以自编程序解决，论坛有的，你找找…… [/B]

请问了解、学习二次开发须要懂哪些知识、程序语言。

求知者问：  还望赐教!

ahlzl

用VBA和LISP都能画三维螺旋线，我正在学。这有一段VBA的代码。http://www.xdcad.net/forum/showthread.php?threadid=67604

1. 
   
2. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="700" id="AutoNumber1" height="498">
   
3.   <tr>
   
4.     <td width="100%" height="489">
   
5.       <iframe name="I1" width="100%" height="100%" src="http://www.xdcad.net/forum/showthread.php?threadid=67604">
   
6. 浏览器不支持嵌入式框架或配置为不显示嵌入式框架
   
7.       </iframe>
   
8.     </td>
   
9.   </tr>
   
10. </table>
    

复制代码

simger8

用EXCAL辅助，怎么做？？

阿袁

螺旋画法好象能在2002用吧有一个工式什么的、我还没学到呢你找找

wuke

cad还是画二维的好

laogao988

看不懂哦！弄个教学片好不好？

diefly

感觉不错啊~继续努力啊兄弟

mikey

这个在没有程式帮助下十分钟做的
注:本人没看别人的教材,
先画一个正方形
取一半用多线段绘制一个半圆
删除不要的线
倾斜角度自己定
镜像
.........好难说,等我有时间再发个教程上来

zwhy

根本看不懂啊，以后大家多多帮助~~