水叮呤 发表于 2004-10-26 09:08:00

[求助]怎样画正余弦曲线？

我想用AutoCAD画出一段正余弦曲线，已知幅值是0.8mm,波长是4500mm。请问该怎么画呢？

dianbotang 发表于 2009-6-8 01:51:00

本帖最后由 作者 于 2009-6-8 14:21:01 编辑 <br /><br /> <p>绘制函数曲线的vb程序</p><p></p><p></p><p>有问题请随时提出。</p>

zxdcad 发表于 2004-10-26 09:49:00

有两种办法:


1:编个LISP/VBA程序


2:用EXCEL生成点坐标,在ACAD中画线

zxdcad 发表于 2004-10-26 10:05:00

你的幅值太小了,看起来可能向直线.


下面这个是用EXCEL+ACAD做的


       


水叮呤 发表于 2004-10-27 09:03:00

谢谢指点！

我是初学AutoCAD,你教的方法我还不会，好学吗？

guideming 发表于 2009-6-2 21:06:00

<p>excel＋CAD我会……</p><p>list怎样做到呢？</p><p>能不能给个例子呀</p><p>先多谢了</p><p></p>

dianbotang 发表于 2009-6-8 01:43:00

<p>以sinx为例，lisp程序如下：</p><p>(defun C:Psin() ;其中d是函数的步长<br/>&nbsp; (setq os(getvar "osmode"))<br/>&nbsp; (setvar "osmode" 0)<br/>&nbsp; (arxload "geomcal.arx")<br/>&nbsp; (setq s (getreal "\n输入初值："))<br/>&nbsp; (setq e (getreal "\n输入终值："))<br/>&nbsp; (setq d (getreal "\n输入步长："))<br/>&nbsp; (setq i s)<br/>&nbsp; (while (&lt;= i e)<br/>&nbsp;&nbsp;&nbsp; (setq x i)<br/>&nbsp;&nbsp;&nbsp; (setq y (cal "sin(x*180/pi)"))<br/>&nbsp;&nbsp;&nbsp; (if (= i s) (setq p1 (list x y))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn (setq p2 (list x y))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "_line" p1 p2 "")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq p1 p2))<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; (setq i (+ i d))<br/>&nbsp; )<br/>&nbsp; (setvar "osmode" os)<br/>)</p>

susan_1988 发表于 2009-6-8 06:47:00

<p>厉害哦</p>

susan_1988 发表于 2009-6-8 06:47:00

<p>好，不错。</p><p></p>
页: [1]
查看完整版本: [求助]怎样画正余弦曲线？