利用AutoCAD自带的lisp编辑器，做一个简单三角形，要求要有中心线，以及角度

在AutoCAD中利用LISP编辑器创建一个带中心线和标注角度的简单三角形，可以按照以下步骤操作：

打开LISP编辑器：
打开AutoCAD，点击“工具”（Tools）菜单，然后选择“自定义”（Customize），在弹出的对话框中找到并启用“LISP命令”选项。

编写LISP脚本：

(defun c:draw-triangle-center-line ()
  (setq triangle_length 50) ; 三角形边长，可根据需要调整
  (setq center_dist 25)     ; 中心到顶点的距离


  ; 创建第一个顶点
  (setq v1 (currentpoint))
  ; 移动到第二点，并绘制中心线
  (move v1 [triangle_length, 0]) 
  (line v1 [triangle_length, center_dist])
  ; 创建第三个顶点，并连接前两个
  (setq v2 [triangle_length, -center_dist])
  (line v1 v2)
  ; 标注角度
  (setq angle_1 60)       ; 第一个角的角度，此处假设是60度
  (setq angle_text "60°")
  (dimangle v1 v2 [v1] angle_1 angle_text)
  ; 重复第二个顶点到第三点的过程，标注第二个角
  (move v2 [triangle_length, 0])
  (dimangle v2 [triangle_length, -center_dist] [v2] angle_1 angle_text)
  ; 最后一条边，自动标注角度
  (move v1 v2)
  (dimangle v1 v2 [v2] angle_1 angle_text))
(c:draw-triangle-center-line)

3. **运行脚本**：
   在LISP提示符下输入上述函数名`c:draw-triangle-center-line`回车，即可看到一个带中心线和角度标注的三角形。
登录后复制