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

超经典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) di1.lsp～di8.lsp 直接连续标注尺寸(用于1:1的图) di100.lsp～di800.lsp 直接连续标注尺寸(用于1:100的图) 详细内容及附件下载请浏览北纬服务论坛 /thread-2724-1-1.html 该程序实现的功能如图中所示，只要选择矩形，便可将穿过矩形的直线剪切（以前是一条一条的选择），由于水平有限，程序的语句可能太繁琐，但功能对我面言很实用（以前我下载了一个，但效果不好，连矩形外也剪掉了），请各位高手优化！源程序如下： 代码: (defun c:mytrim (/ rect e0 e1 pt x ptx pty l1 i p1 p2 p1x p1y point count) (setvar osmode 0) (setq l1 nil) (setq i 0) (setq rect (car (entsel \n请选择需剪切的矩形:))) (setq e0 (entget rect)) (while (setq x (nth i e0)) (if(= (car x) 10) (progn(setq ptx (nth 1 x))(setq pty (nth 2 x))(setq x (list ptx pty))(setq l1 (cons x l1)) ) ) (setq i (1+ i)) ) (reverse l1) (setq p1 (car l1)) (setq p1x (nth 0 p1)) (setq p1y (nth 1 p1)) (setq count 0) (repeat 3 (setq count (+ count 1)) (setq pt (nth count l1)) (setq ptx (nth 0 pt)) (setq pty (nth 1 pt)) (setq point (mapcar + p1 pt)) (setq point (mapcar / point (2.0 2.0 2.0))) (if (and (/= (nth 0 point) p1x) (/= (nth 0 point) ptx) (/= (nth 1 point) p1y) (/= (nth 1 point) pty) ) (setq p point) ) ) (setq l1 nil) (command offset 5 rect p ) (setq e0 (entlast)) (setq e1 (entget e0)) (princ e1) (setq i 0) (while (setq x (nth i e1)) (if(= (car x) 10) (progn(setq ptx (nth 1 x))(setq pty (nth 2 x))(setq x (list ptx pty))(setq l1 (cons x l1)) ) ) (setq i (1+ i)) ) (reverse l1) (setq p1 (car l1