AutoCAD怎么画正弦线?

来源:百度知道 编辑:UC知道 时间:2024/06/30 06:29:37

1、先确定正弦线的正负峰值点、过零点;
2、用样条曲线按上述点画出,得到正弦曲线。
不知道是否还有更好的做法,本人是这么画的。

知道正弦线的参数,大致用样条曲线画了就可以,

用Auto Lisp 可以生成吧。
我觉得。

打开CAD,依次点击菜单“工具→AutoLISP→Visual LISP编辑器”,新建文件,输入以下代码:
(defun C:drawsin (/ LeftPoint LeftPointX LeftPointY N x step)
(initget 1) ;1化为8位二进制是00000001,位0置1表示禁止用户仅按 ENTER 键来响应输入请求
(setq LeftPoint (getpoint "\nLeft point:")
LeftPointX (car LeftPoint)
LeftPointY (cadr LeftPoint))

(initget 7) ;7化为8位二进制是00000111,位1置1表示禁止用户输入零值来响应输入请求,位2置1表示禁止用户输入负值来响应输入请求
(setq N (getint "\nNumber of cyles:"))

(setq x 0 step 0.1)
(command "pline" )
(While (< x (* 2 N pi))
(command (list (+ LeftPointX x) (+ LeftPointY (sin x))));以LeftPoint为原点,逐点画出正弦曲线
(setq x (+ x step)) ;x=x+step,横坐标增加步长值
)
(command (list (+ LeftPointX x) (+ LeftPointY (sin x))) (list (+ LeftPointX (* 2 N pi)) LeftPointY) "")
(command &q