autolisp绘制同心圆

最新推荐文章于 2023-09-22 01:29:52 发布

nanguazhuo

最新推荐文章于 2023-09-22 01:29:52 发布

阅读量2k

点赞数 2

分类专栏： autolisp 文章标签： autolisp

本文链接：https://blog.youkuaiyun.com/nanguazhuo/article/details/60479279

版权

autolisp 专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一段AutoCAD Lisp程序代码，该程序允许用户通过指定圆心和圆上的任意一点来绘制一系列同心圆。程序首先获取用户指定的圆心位置，然后循环请求用户输入位于各个同心圆上的点，以此来确定每个圆的半径。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

;|concentric circles|;
(defun c:concentric_circles (/
	      point_0			;圆心|;
	      point_temp		;用户输入点|;
	      point_temp_1		;以point_0为圆心(point_temp_1,point_temp)为直径的圆|;
	     )
  (setq point_0 (getpoint "设置圆心:"))
  (if (/= point_0 nil)
    (progn
      (setq point_temp '(1,1,1))
      (while (/= point_temp nil)
	(progn
	  (setq point_temp (getpoint "圆上一点:"))
	  (if (/= point_temp nil)
	    (progn
	      (setq point_temp_1
		     (list
		       (- (* 2.0 (car point_0))
			  (car point_temp)
		       )
		       (- (* 2.0 (cadr point_0))
			  (cadr point_temp)
		       )
		       (- (* 2.0 (caddr point_0))
			  (caddr point_temp)
		       )
		     )
	      )
	      (command "circle" "2p" point_temp_1 point_temp)
	    )
	  )
	)
      )
    )
  )
  (princ)
)