超经典CADlisp程序集锦
如果您使用AutoCAD下面的内容对您一定有帮助。在某些方面能大大提高您的工作效率。下面的程序均以源程序方式给出，您可以使用、参考、修改它。
bglsp表格自动生成asclsp将文本文件内容写入图中，字符是单个的wflsp将图中字符写入磁盘exstrlsp将字符串分解成单字pgtxtlsp将字符合成字符串pblsp通过给出长度将字符串分成两个串chtlsp直接修改文字内容或块属性ctlsp对数字串进行加减chhlsp直接修改文字高度chhwlsp直接修改文字高宽比针对PKPM软件将字符定位点改为左下角chstlsp直接修改文字字体
txtshx修改后的标准txtshx文件。kuozha
sld为增强的内容幻灯片
tiaolsp配合修改过的标准字体文件，将中文字符调大tiao1lsp配合修改过的标准字体文件，将英文字符调小u
tiaolsp上两个程序的复原
shtlsp在图中查找字符串zhua
glsp桩点及钎探号绘制（勘测图）
dimlsp配合JTDWG将尺寸标注调成适合建筑结构设计11dimmlsp配合JTDWG将尺寸标注调成适合建筑结构设计1100
fdi1lsp～di8lsp直接连续标注尺寸用于11的图di100lsp～di800lsp直接连续标注尺寸用于1100的图
详细内容及附件下载请浏览北纬服务论坛
httpwwwbim123comthread272411html
该程序实现的功能如图中所示，只要选择矩形，便可将穿过矩形的直线剪切（以前是一条一条的选择），由于水平有限，程序的语句可能太繁琐，但功能对我面言很实用（以前我下载了一个，但效果不好，连矩形外也剪掉了），
请各位高手优化！源程序如下：代码
defu
cmytrimrecte0e1ptxptxptyl1ip1p2p1xp1ypoi
tcou
t
setvar