AutoCAD LISP 绘制阿基米德螺线曲线

梦落天涯

已于 2022-03-10 09:23:49 修改

阅读量1.3k

点赞数

文章标签： lisp 开发语言

于 2022-03-10 09:11:35 首次发布

本文链接：https://blog.csdn.net/qq_40144572/article/details/123392418

版权

本文介绍了如何使用LISP编程语言在AutoCAD中绘制阿基米德螺线，包括螺线的数学方程、LISP代码实现、使用步骤以及自动加载LSP程序的方法。

摘要由CSDN通过智能技术生成

螺线方程

r = a + b*theta

代码

(defun c:luoxuan
(/)
	(setq a (getint "请输入a值: "))
	(setq d (getint "请输入螺距值: "))
	(setq c (getint "请输入圈数: "))
  
	(setq b (/ d (* 2 pi)));螺距=2pib
	(setq r (* 0.005 pi))
	(setq count (/ (* c 2 pi) r))
	(type count)
	(setq cnt (fix count ))
	(type cnt)
  
  	(setq n 0)
  	(setq orgPt (list a 0) )
 	(setq theta (* n r) )
    (setq dist  (+ a (* b theta) ) )  	
	(command "pline")          
	(repeat cnt	
		(setq pt (polar orgPt theta dist))
		; (prin1  pt)
		(command pt)
	  
	  	(setq n (+ 1 n) )
	  	; (prin1  n)
	  	(setq theta (* n r) )
	 	; (prin1  theta)
        (setq dist  (+ a (* b theta) ) )
	  	; (prin1  dist)
	  
	)
	(command) 
)

复制上面的代码，保存为luoxuan.lsp文本文件