明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2910|回复: 38

[源码] 【源码】自动绘制正弦曲线(一个周期)

[复制链接]
发表于 2015-7-21 23:43 | 显示全部楼层 |阅读模式
源码如下:
(defun c:zxqx (/ da bp Ai lpt bp1 bp2)
;;;画正弦曲线:x=a , y=sin a ;
  (setvar "cmdecho" 0)
  (initget 1)
  (setq bp (getpoint "\n起始点:"))
  (if (not (setq add (getreal "\n角度增量:<10.0>")))
    (setq add 10.0)
  )
(setq da (angtof (rtos add)))
  (setq        Ai  0
        Ae  (* pi 2.0)
        bp1 (car bp)
        bp2 (car (cdr bp))
  )
  (while (< Ai Ae)
    (setq lpt (append lpt (list (list (+ bp1 Ai) (+ bp2 (sin Ai))))))
    (setq Ai (+ Ai da))
  )
  (setq lpt (append lpt (list (list (+ bp1 Ae) (+ bp2 (sin Ae))))))

  (command "spline")
  (foreach pt lpt (command pt))
  (command "" "" "")
  (princ "\n正弦曲线已绘制完成。★制作者:吴丁运\n")
  (princ)
)

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
"觉得好,就打赏"
    共1人打赏

相关帖子

发表于 2015-7-22 08:01 | 显示全部楼层
非常感谢楼主的无私奉献!
回复 支持 1 反对 0

使用道具 举报

发表于 2015-7-22 08:41 | 显示全部楼层
欢饮大师出手
发表于 2015-7-22 09:45 | 显示全部楼层
学习一下我来顶
发表于 2015-7-22 10:02 | 显示全部楼层
非常感谢楼主的无私奉献!
发表于 2015-7-22 10:12 | 显示全部楼层
非常感谢楼主的无私奉献!
发表于 2015-7-22 13:41 | 显示全部楼层
dear sir,

nice.....
thanks for sharing
发表于 2015-7-23 08:28 | 显示全部楼层
谢谢楼主分享。
发表于 2015-7-23 08:53 | 显示全部楼层
好东西,学习学习
发表于 2015-7-24 07:55 | 显示全部楼层
向大师学习学习。。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 22:32 , Processed in 0.240043 second(s), 33 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表