1.打开cad，进入cad操作界面；2.在界面中找到直线命令，或者输入l运行直线；
3.选择lin
方法/步骤
1.创建新的cad文件。
2.单击“线”工具在绘图区域中绘制一条直线。
3.再次单击直线命令。
4.首先单击绘图区域以确定垂直线的一个点。
5.单击垂直命令。
6.点击前面的一条直线，上面会出现一个垂直的符号。
7.在出现垂直符号的地方单击鼠标左键。垂直线绘制完成。
在实际画线上方的任何地方画一条垂直线。用鼠标左键选择垂直线，单击右键并选择"移动"命令，选择踏步点并将其移动到要修改的线的一端。
再次左键单击选择垂直线，输入命令"偏移和并输入offs
以下方法直接使用cad自带的autolisp，不使用第三方软件。将下面的代码保存为后缀为lsp的文件，如。然后将文件导入autocad。如何导入lsp文件，参考如何在cad中创建lisp程序。还有大神们说的lisp解决重复劳动的问题？-桐雨■回答。在autocad命令行中运行quickvertical命令(不区分大小写)会提示您先选择多条线，然后选择直线，最后按enter或space键。命令行中输出垂直坐标和垂直长度。因为有很多行，所以可以按f2打开命令行文本窗口。(defunc:quickvertical()；加载visuallisp函数。(vl-load-com)；关闭采集。(setqos(getvarosmode))(setvarosmode0)；提示选择对象。(setqmolyline(car(entsel选择折线:))；将对象转换为visuallisp对象。(setqplineobj(vlax-ename-vla-objectmpolyline))(setqlineobj(vlax-ename-vla-objectmline))；获得折线的每个顶点的坐标，并将其转换成列表。；这个列表的元素是每个点的x和y坐标，形状为(x1yx2y2x3y3xy4)。(setqplinecoordinates(vlax-get-propertyplineobjcoordinates))(setqplinelist(vlax-safearray-list(variant-valueplinecoordinates))(setqn0)；初始化输出字符串。(设置输出距离
垂直距离为:)；经历一个重复的循环，每次2步，读取每个点的坐标，画一条直线，计算距离。(重复(/(长度plinelist)2)；读取x坐标。(setqxval(第n个nplinelist))(setqn(1n))；读取x坐标。(setqyval(nthnplinelist))(setqn(1n))；将坐标组合成一个点列表，它是折线顶点的二维坐标。(setqmpoint1(listxvalyval))；mpopoint2是直线上距离mpopoint1最近的点，从几何关系可以知道mpopoint2是垂足。(setqmpoint2(vlax-curve-getclosestpointtolineobjmpoint1))；画一条垂直线。(命令。_linempoint1mpoint2)；计算两点之间的距离，并将其合并到输出字符串中。(setq输出距离(strcat输出距离
垂直坐标((rtosxval)，(rtosyval)
)垂直长度
(rtos(距离mpoint1mpoint2)))))；结束重复。；按照从左到右的顺序输出垂直线的距离。(princ输出距离)；setvarosmodeosn1))(提示将多段线中的多条竖线变为一条直线，并导出竖脚坐标和竖长。
)(打印1)
.jpg)
