cad画正弦曲线lisp_如何在AutoCAD中画正弦曲线

满意答案

打开CAD，依次点击菜单“工62616964757a686964616fe59b9ee7ad9431333335316463具→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 "line" LeftPoint (list (+ LeftPointX (* 2 N pi)) LeftPointY) "") ;画x轴 (command "line" (list LeftPointX (+ LeftPointY 2)) (list LeftPointX (- LeftPointY 2)) "") ;画y轴)

保存为 drawsine.lsp 文件，按 Ctrl+Alt+E，Visual LISP 控制台将显示类似于：“; 1 表格从 # 加载”的文字，并且焦点自动切换到 Visual LISP 控制台。输入(C:drawsin)回车或者在CAD输入drawsin命令即可运行这个函数。如果函数定义中没有“C:”则只能在Visual LISP 控制台调用。函数运行后，用鼠标在CAD的活动窗口指定坐标原点，然后在控制台输入要画的正弦曲线的周期数，即可画出这条曲线。

我把某教程中有bug的一段程序改好后就是这个了，中文的注释和操作步骤都是我自己写的。感觉这段程序比较典型、有用，因为把 sin(x) 换成其他函数就可以画出它们的图像了。

21分享举报

cad画正弦曲线lisp_如何在AutoCAD中画正弦曲线相关推荐

markdown 流程图js_如何在Markdown中画流程图
如何在Markdown中画流程图呢?当然是用mermaid了,mermaid支持三种图形的绘制, 分别是流程图, 时序图和甘特图, 本篇文章只介绍了mermaid中流程图在markdown的使用(现在 ...
word里双横线怎么打_如何在word中画线怎么在word中输入横线[图文]
小编在这段时间遇到好多广大网友的咨询,今天免费分享一下关于电脑系统和电脑操作教程的知识大全,这篇文字是关于如何在word中画线怎么在word中输入横线[图文]的文字,欢迎大金仔细阅读,如果不懂请多多 ...
如何在EXCEL中画横线并输入汉字
如何在EXCEL中画横线并输入汉字目录如何在EXCEL中画横线并输入汉字 1.第一种:利用下划线输入,点U即可 2.第二种:利用表格下框线,点击下框线即可 3.第三种:利用直线画,在"插 ...
word流程图怎么做虚线框_如何在visio中画虚线框以及将visio图形复制到word文档
这两个问题都不是什么复杂的事情,但是如果对visio用的不多或者只是临时用起来碰到了这种问题还真是麻烦事儿. ============================================= ...
如何在PS中画任意形状虚线
很久以前困惑我很久的一件事---"那就是如何在ps中画圆角虚线",今天终于被我解决了.在这里跟大家分享一下,这只是我个人的愚见而已,如果你已经知道了,或者还有更好的方法的话,请多多 ...
如何在PPT中画波浪线？
如何在PPT中画波浪线? 如何在PPT中画出如下的正弦波呢?插入图片形式当然是可以,但是非矢量图放大后不可避免的失真,强迫症表示无法忍受. 插入矩形形状.然后不断复制,排列整齐.填充透明,边框最细. ...
如何在visio中画虚线框以及将visio图像复制到word文档中虚线变成实现的问题
原文地址:http://blog.csdn.net/learngis/article/details/4634776 这两个问题都不是什么复杂的事情,但是如果对visio用的不多或者只是临时用起来碰到 ...
viso 画背景框_如何在visio中画虚线框以及将visio图形复制到word文档
这两个问题都不是什么复杂的事情,但是如果对visio用的不多或者只是临时用起来碰到了这种问题还真是麻烦事儿. ============================================= ...
如何在visio中画虚线框以及将visio图形复制到word文档中虚线变为实线的问题
这两个问题都不是什么复杂的事情,但是如果对visio用的不多或者只是临时用起来碰到了这种问题还真是麻烦事儿. ============================================= ...
VC++ 利用MFC的CWindowDC类实现画线功能在桌面窗口中画线绘制彩色线条 CPen nPenStyle nWidth crColor
目录利用MFC的CWindowDC类实现画线功能在桌面窗口中画线绘制彩色线条 CPen nPenStyle nWidth crColor 接上:VC++ 绘制线条 OnLButtonDown函数 ...

cad画正弦曲线lisp_如何在AutoCAD中画正弦曲线

cad画正弦曲线lisp_如何在AutoCAD中画正弦曲线相关推荐

最新文章

热门文章