用autolisp写一个画圆程序
时间: 2023-03-19 12:23:36 浏览: 168
好的,以下是一个用AutoLISP编写的画圆程序的示例:
```
(defun c:mycircle ()
(setq center (getpoint "\n输入圆心点: "))
(setq radius (getdist "\n输入半径: "))
(command "circle" center radius)
(princ)
)
```
该程序首先定义了一个名为 `c:mycircle` 的 AutoLISP 命令。当用户在 AutoCAD 中输入该命令时,程序会提示用户输入圆心点和半径,然后使用 `command` 函数绘制圆形,并使用 `princ` 函数结束程序。
相关问题
用autolisp写一个画轴承的程序
以下是一个简单的AutoLISP程序,可以画一个基本的轴承模型:
```
(defun C:DRAW-BEARING ()
(setq dia (getreal "\nEnter the diameter of the bearing: "))
(initget (+ 2 4 16))
(setq shape (getkword "\nEnter the shape of the bearing - Round, Square, or Hex: "))
(setq height (getreal "\nEnter the height of the bearing: "))
(command "_.circle" "_non" (list 0 0) (/ dia 2))
(if (= shape "Round")
(progn
(command "_.circle" "_non" (list 0 0) (/ dia 4))
(command "_.circle" "_non" (list 0 0) (/ (* dia 3) 8))
(command "_.circle" "_non" (list 0 0) (/ dia 8)))
(if (= shape "Square")
(progn
(command "_.rectangle" "_non" (list (- (/ dia 4)) (- (/ dia 4))) (list (/ dia 4) (/ dia 4)))
(command "_.rectangle" "_non" (list (- (/ (* dia 3) 8)) (- (/ (* dia 3) 8))) (list (/ (* dia 3) 8) (/ (* dia 3) 8)))
(command "_.rectangle" "_non" (list (- (/ dia 8)) (- (/ dia 8))) (list (/ dia 8) (/ dia 8))))
(if (= shape "Hex")
(progn
(setq h (/ (* dia (sqrt 3)) 6))
(command "_.pline" "_non" (list (- (/ dia 4)) h) (list (- (/ dia 4)) (- h)) (list 0 (- (/ dia 2))) (list (/ dia 4) (- h)) (list (/ dia 4) h) (list 0 (/ dia 2)) (list (- (/ dia 4)) h))
(setq h (/ (* dia (sqrt 3)) 24))
(command "_.pline" "_non" (list (- (/ (* dia 3) 8)) h) (list (- (/ (* dia 3) 8)) (- h)) (list 0 (- (/ dia 4))) (list (/ (* dia 3) 8) (- h)) (list (/ (* dia 3) 8) h) (list 0 (/ dia 4)) (list (- (/ (* dia 3) 8)) h))
(setq h (/ (* dia (sqrt 3)) 48))
(command "_.pline" "_non" (list (- (/ dia 8)) h) (list (- (/ dia 8)) (- h)) (list 0 (- (/ dia 16))) (list (/ dia 8) (- h)) (list (/ dia 8) h) (list 0 (/ dia 16)) (list (- (/ dia 8)) h)))))))
```
运行这个程序后,程序会提示用户输入轴承的直径、形状和高度。根据用户输入的参数,程序将绘制一个基本的轴承模型。
请注意,这只是一个简单的程序,可能需要根据具体需求进行修改和调整。
用autolisp 画一个六角星形图
AutoLISP 是一种专门用于 AutoCAD 程序设计环境的编程语言。要用 AutoLISP 画一个六角星形图,首先需要编写一段 AutoLISP 脚本来实现这个功能。
首先,我们需要定义一个绘制六角星形图的函数。这个函数需要接受两个参数,一个是中心点的坐标,另一个是六角星的大小。然后,在函数内部,我们需要计算六个顶点的坐标,并将这些坐标传递给 AutoCAD 来绘制六角星形图。
在计算顶点坐标时,我们可以利用六角星的对称性来简化计算。首先,我们可以计算出六个顶点与中心点的连线与 x 轴的夹角,然后根据这个角度和大小来计算出每个顶点的坐标。
接下来,我们可以使用 AutoLISP 提供的绘图命令来绘制六角星形图。我们可以使用“LINE”命令来连接每两个相邻的顶点,从而绘制出六个边。最后,我们还可以使用“CLOSE”命令来让最后一个顶点与第一个顶点相连,从而完成绘制。
完成以上步骤后,我们就可以在 AutoCAD 中调用这个函数,传入中心点坐标和大小参数,从而实现绘制六角星形图的功能了。
总的来说,要用 AutoLISP 画一个六角星形图,就是编写一个绘制六角星的函数,并在函数内部计算出六个顶点的坐标,然后利用 AutoCAD 的绘图命令来实现绘制的过程。