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

水叮呤

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

dianbotang

绘制函数曲线的vb程序

有问题请随时提出。

zxdcad

有两种办法:


1:编个LISP/VBA程序


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

zxdcad

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


下面这个是用EXCEL+ACAD做的


       

水叮呤

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

guideming

excel＋CAD我会……

list怎样做到呢？

能不能给个例子呀

先多谢了

dianbotang

以sinx为例，lisp程序如下：

(defun C:Psin() ;其中d是函数的步长
  (setq os(getvar "osmode"))
  (setvar "osmode" 0)
  (arxload "geomcal.arx")
  (setq s (getreal "\n输入初值："))
  (setq e (getreal "\n输入终值："))
  (setq d (getreal "\n输入步长："))
  (setq i s)
  (while (<= i e)
    (setq x i)
    (setq y (cal "sin(x*180/pi)"))
    (if (= i s) (setq p1 (list x y))
        (progn (setq p2 (list x y))
                (command "_line" p1 p2 "")
                (setq p1 p2))
    )
    (setq i (+ i d))
  )
  (setvar "osmode" os)
)

susan_1988

厉害哦

susan_1988

好，不错。