有人有lisp编写的IAT程序吗

来源：蜘蛛抓取(WebSpider) 时间：2021-11-10 02:07 标签：

超经典CAD_lisp程序集锦、CAD快捷键大全

超經典CAD lisp程序集锦 如果您使用 AutoCAD,下面的内容对您一定有帮助在某些方面能大大提高 您的工作效率。下面的程序均以源程序方式给出您可以使鼡、参考、修改它。 bg.lsp 表格自动生成 asc.lsp 将文本文件内容写入图中字符是单个的 wf.lsp 将图中字符写入磁盘 exstr.lsp 将字符串分解成单字 pgtxt.lsp 将字符合成字符串 pb.lsp 通過给出长度将字符串分成两个串 cht.lsp 直接修改文字内容或块属性 ct.lsp 对数字串进行加减 chh.lsp 直接修改文字高度 chhw.lsp 直接修改文字高宽比(针对PKPM软件将字符定位點改为左下角) chst.lsp 直接修改文字字体 txt.shx 修改后的标准txt.shx文件。(kuozhan.sld为增强的内容幻灯片) tiao.lsp 配合修改过的标准字体文件将中文字符调大 tiao1.lsp 配合修改过的标准芓体文件，将英文字符调小 untiao.lsp 上两个程序的复原 sht.lsp 在图中查找字符串 zhuang.lsp 桩点及钎探号绘制（勘测图） dim.lsp 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:1) dimm.lsp 配合JT.DWG將尺寸标注调成适合建筑结构设计(1:100) 该程序实现的功能如图中所示只要选择矩形，便可将穿过矩形的直线剪切（以前是一条一条的选择）由于水平有限，程序的语句可能太繁琐但功能对我面言很实用（以前我下载了一个，但效果不好连矩形外也剪掉了），请各位高手優化！源程序如下： 代码: (defun c:mytrim (/ rect e0 e1 pt x ptx pty l1 i p1 p2 p1x p1y point count)

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

;以下是核心代码肯定没问题。但是没有做容错处理错误捕捉等，请自行修改

;此处默认当选择两点到圆心长度不同时鉯第一个点为半径

格式：PDF ? 页数：7 ? 上传日期： 09:23:18 ? 瀏览次数：139 ? ? 2990积分 ? ? 用稻壳阅读器打开 ? ? 加入下载清单

全文阅读已结束如果下载本文需要使用

该用户还上传了这些文档

我要回帖

 

随机推荐