在路上的博客

自动绘制公路工程纵断面的AutoLisp程序通过读取路面桩号的Excel表自动绘制纵剖面图程序(含相应AotuCad图及Excel数据）这个程序是用于一个乡村道路绘制竣工图时使用的，主要作用是用来画该公路工程道路的纵剖面图。由于道路剖面图在竣工图绘制中由于是绘制测绘值，数据量极大，公路工程纵剖面图节点非常多，如果照着数据一个一个手工输入绘制，速度慢而且极易出错，可能要用三天时间，如果遇...

AutoLisp实现通过在图中选择文字对图形字体进行更改问题的提出每次接到一个AutoCad文件，总会遇到文件字体与自己系统里的文字字体不匹配的情况，导致每次都会通过字体设置对话框对不匹配的字体文件一通设置，费时费力。解决办法这里采用人机交互操作模式，用户指定图中不能正常显示的文字，通过VisualLisp程序对用户所选文字对应的字体类型的字体文件进行重新设定，从而达到...

自动绘制公路工程纵断面的AutoLisp程序(defun C:fhgc () (setq sheet (strcat "Sheet" (itoa (getint "请输入工作表编号："))) num-start (getint "请输入起始行：") num-end (getint "请输入结束行：") file-name "e:\\gc.xlsx"...

给一段自动修改线为指定宽度的AutoLisp程序问题的提出实现目标实现代码使用方式后记问题的提出在用AutoCAD绘图时遇到需要修改别人画好的图的各种线为指定宽度的问题。我们都知道应该用PEdit命令。但是，你会发现，修改少量的线还可以，当需要修改的线数量巨大的时候，重复的工作量就会大的惊人了。这时候AutoLisp自动执行的优势就派上用场了。实现目标我希望将所要修改的线用尽可能少的的输入...