CAD中如何用lisp编写画线段的命令

1、首先，打开CAD2017，如图所示。

2、其次，在CAD绘图界面命令行输入vlide，如图所示。

3、然后，新建文件，并根据需要保存命令，如图所示。

4、接下来，在新建页面编辑以下代码：

(defun c:xd()

  (setq qd (getpoint "请拾取起点"))

  (setq zd (getpoint "请拾取终点"))

  (command "line" qd zd)

  )

如图所示。

5、最后，点击保存并加载即可，如图所示。