[下载]：LISP实例程序（源码）8月22日更新

蔡钰林

这是我在晓东CAD家园及其它网站上收集的一些LISP实用程序，现整理出来，希望能对大家所有帮助。
（另有“CAD技巧及编程学习”，因网站有限制不能跟贴，等有回贴后我就上传。）
===================================
thread-创建三维螺纹.lsp
acad2000-左手键命令.lsp
chtext-文本编辑.lsp
arcdim-标注弧长.lsp
Ca-钢筋表计算.lsp
CC1-画中心线.lsp
chtxht-批量改字高.lsp
CLZCD-测量直线曲线长度.lsp
crtvv-鼠标缩放.lsp
dpfx-绘制角平分线.lsp
Draw2-画围墙线.lsp
eline-多义线摹拟缓和曲线.lsp
fontsalter-字体乱码.lsp
GIP-曲线交点.lsp
JL-连接线段.lsp
mj-面积计算.lsp
MKPAT-图案制作.lsp
RAILWAY-画铁路线.lsp
SPLINE-线型转换.lsp
tc-裁剪小程序.lsp
Z=0-Z坐标归零.lsp
ztmj-总图面积标注.lsp
Lockup-加密dwg.LSP
test-绘缓和曲线元素.lsp
suprgear-绘制齿轮.lsp
ch3-加前后缀.lsp
kill-清除CAD病毒.lsp
......

蔡钰林

CAD技巧及编程学习
===================================
Autolisp编程心得.txt
R14中用LISP如何删除一个文件.txt
复杂实体求交点的纯LSP函数.txt
多义线坐标点函数.txt
网卡地址加密示例.txt
用VLISP获取硬盘系列号.txt
字体隐蔽问题.txt
70个ACAD应用技巧.txt
R14附赠工具说明.txt
常用CAD左手键列表.txt
关于命令失效.txt
关于填充的问题.txt
小议CAD的自定义快捷键.txt
修复DWG文件.txt
ATUOCAD经验44.doc
AutoCAD的二次开发.doc
调整线条宽度的实用工具.doc
给AutoCAD增加计算器功能.doc
优化AutoCAD系统的方法.doc
用LISP语言自定义AutoCAD命令.doc
......
卷1

蔡钰林

<font color="red">CAD技巧文章</font>
===================================
CAD技巧六则.txt
综合CAD常用技巧与问题.doc
CAD技巧收集.doc
用LISP读取TXT数据.txt
如何判断LISP程序是否加载.txt
AutoCAD技巧精华集.txt

<font color="red">LISP实用程序</font>
===================================
BGAO-坐标标注.LSP
bzpyj-坐标标注示例.lsp
CHTEXT-修改文本.LSP
zbpyj-坐标标注.lsp
CRPIAO-圆半径转换.LSP
GXFMG1-绘风玫瑰.LSP
GXFMG2-绘风玫瑰.LSP
peditn-修改线弧圆宽度.lsp
acad-工具汇总.lsp
AAA-汇总.lsp
ft-自动修改字体.LSP
ZZB-坐标标注.LSP
CSBJ-画板钢筋.LSP
CSCL-改图层.LSP
CSDB-绘双线L.LSP
CSJOIN-连接线.LSP
CSLAYER-加载.LSP
CSLF-关闭图层.LSP
CSLM-设当前层.LSP
CSPEDIT-改变线宽.LSP
GSPM1-绘给水纵断面图.LSP
PSPM1-绘排水纵断面图.LSP
dycy-标注序号.lsp
nbg-工具集合.lsp
dmcpz-读TXT文件数据.lsp
testa-亮显指定颜色的实体.LSP
AF-自动提取图中字体.LSP
fillread-读文件到列表.LSP
hu-弧长标注.lsp
tmp-转换坐标系.lsp
ch3-加减前后缀.lsp
ch4-成批减前后缀.lsp
dlmj-面积统计.lsp
bg0-自动标注标高.lsp
hzbrea-文字击碎.lsp
zfhb-文字合并程序.lsp
bb-图纸分幅.lsp
jia1-求和.lsp
jian1-求差.lsp
chen1-乘法计算.lsp
chu1-除法计算.lsp
chhang-批量修改文字角度.lsp
copy1-按比例复制.lsp
chgtext-批量替换字符.lsp
ch5-字体对齐.lsp
chdim-切断尺寸关联.lsp
fx-线形反向.lsp
zdt-坐标展点.lsp
zdxd-坐标展点.lsp
ct-写带圆圈数字.lsp
chhtext-批量改字高.lsp
kszd-快速展点程序.LSP
BALLOON-气泡式标注.LSP
chhang-修改文字角度.lsp
Z-修改地形线高程值.LSP
FW-标注方位角.LSP
zb01-坐标标注.lsp
Tc-修改字高.lsp
UCAD-高程传递高程.LSP
detail1-绘剖切线.lsp
LISP程序组合.lsp
xscale-XY方向不同比例缩放.lsp
绘螺栓螺母源程序
其它LISP程序1.rar
其它LISP程序2.rar
其它LISP程序3.rar
......
<font color="red">以上内容请在17楼下载。</font>


卷2

littlelili

谢谢楼主的体贴，，最怕上传的东西用写字板打不开了，因为几次装word的都没成功

jieao200

楼主能找到Autolisp函数及编程方面的资料吗？

范璇

先谢过了,我问一下一楼楼主为什么我下载的弧长标注用了之后BLIPMODE就变成ON了,
请问这是什么原因!

蔡钰林

最初由 范璇 发布
[B]先谢过了,我问一下一楼楼主为什么我下载的弧长标注用了之后BLIPMODE就变成ON了,
请问这是什么原因! [/B]

因为“arcdim-标注弧长.lsp”文件中有语句“(setvar "blipmode" 1)”，将其删除或修改为“(setvar "blipmode" 0)”可以避免使用程序后BLIPMODE就变成ON。

BLIPMODE 系统变量
类型：整数
保存位置：注册表
初始值：0
控制点标记是否可见。BLIPMODE 既是命令又是系统变量。使用 SETVAR 命令访问此变量。
0  关闭点标记
1  打开点标记

瘦月亮

问：是否支持高版本的CAD？

蔡钰林

<font color="red">CAD技巧文章</font>
===================================
CAD技巧六则.txt
综合CAD常用技巧与问题.doc
CAD技巧收集.doc
用LISP读取TXT数据.txt
如何判断LISP程序是否加载.txt
AutoCAD技巧精华集.txt

<font color="red">LISP实用程序</font>
===================================
BGAO-坐标标注.LSP
bzpyj-坐标标注示例.lsp
CHTEXT-修改文本.LSP
zbpyj-坐标标注.lsp
CRPIAO-圆半径转换.LSP
GXFMG1-绘风玫瑰.LSP
GXFMG2-绘风玫瑰.LSP
peditn-修改线弧圆宽度.lsp
acad-工具汇总.lsp
AAA-汇总.lsp
ft-自动修改字体.LSP
ZZB-坐标标注.LSP
CSBJ-画板钢筋.LSP
CSCL-改图层.LSP
CSDB-绘双线L.LSP
CSJOIN-连接线.LSP
CSLAYER-加载.LSP
CSLF-关闭图层.LSP
CSLM-设当前层.LSP
CSPEDIT-改变线宽.LSP
GSPM1-绘给水纵断面图.LSP
PSPM1-绘排水纵断面图.LSP
dycy-标注序号.lsp
nbg-工具集合.lsp
dmcpz-读TXT文件数据.lsp
testa-亮显指定颜色的实体.LSP
AF-自动提取图中字体.LSP
fillread-读文件到列表.LSP
hu-弧长标注.lsp
tmp-转换坐标系.lsp
ch3-加减前后缀.lsp
ch4-成批减前后缀.lsp
dlmj-面积统计.lsp
bg0-自动标注标高.lsp
hzbrea-文字击碎.lsp
zfhb-文字合并程序.lsp
bb-图纸分幅.lsp
jia1-求和.lsp
jian1-求差.lsp
chen1-乘法计算.lsp
chu1-除法计算.lsp
chhang-批量修改文字角度.lsp
copy1-按比例复制.lsp
chgtext-批量替换字符.lsp
ch5-字体对齐.lsp
chdim-切断尺寸关联.lsp
fx-线形反向.lsp
zdt-坐标展点.lsp
zdxd-坐标展点.lsp
ct-写带圆圈数字.lsp
chhtext-批量改字高.lsp
kszd-快速展点程序.LSP
BALLOON-气泡式标注.LSP
chhang-修改文字角度.lsp
Z-修改地形线高程值.LSP
FW-标注方位角.LSP
zb01-坐标标注.lsp
Tc-修改字高.lsp
UCAD-高程传递高程.LSP
detail1-绘剖切线.lsp
LISP程序组合.lsp
xscale-XY方向不同比例缩放.lsp
绘螺栓螺母源程序
其它LISP程序1.rar
其它LISP程序2.rar
其它LISP程序3.rar

蔡钰林

卷2

范璇

多谢版主,还有一个问题,三维螺纹线怎么不好用啊再用就是坐标标注时X和Y 坐标怎么是相反的呢

hao3ren

谢谢楼主的体贴，，最怕上传的东西用写字板打不开了，因为几次装word的都没成功

真龙天子

十八楼的能否列一个程序功能清单,因为有好多程序只有英文名而无中文名,不知道程序的用途,如果有一个程序功能清单就方便了.

andy_zeng

请问能不能把2006里面的LSP加载到14里面啊？
我想找快速标注的LSP，在什么地方啊？

lz689706

JL-连接线段.lsp 能改成多选吗?