[分享]：我的cad小工具，不断更新,部分免币

kszn

我觉得编写的不错，谢谢！

zhuxianhe

我的加和减可以用，但我一般前面有标英文字母也改变，如WP01... WO3 。请楼主再做个只对数字加减的LISP文件，谢谢。 tzty1995@163.com

tomtom

其实楼上的要求很容易达到,可一用前面的减前后缀程序将字去掉，然后再执行加减程序就可以了，如果要新作一个可以自动判断去掉字母的程序也可以做，但是判断条件太多，实用性不强，如“dfd232sdf343“如何判断。
    以上每一个程序单一性功能很强，如采用联合使用（像上面的操作方法），可以解决很多复杂问题，我编程的宗旨是尽量使程序小巧灵活，实用性强，如果上面的程序你都有了，组合使用上述命令，我认为一般的问题都能解决，不知道楼上是否同意我的观点。

liuchengjun

其实画图时间长了,就没有什么感觉了,画来话去画的量少,编辑的量大,想想刚刚画图时,现在觉得好笑,但是要是想真正弄懂CAD还真是不容易

qlj19808

tomrtom
有些程序应该不是写的把！个别的程序我的计算机里也有啊！如果真的你写的我真的佩服你

tomtom

除注明的以外.其他的程序都是我写的(我记得只有字符提取和该线宽是下载的,并做了部分修改),我开发cad应用程序已经十几年了,如上面的尺寸线对齐程序就是刚做的.以上只是部分通用程序而已(修改类).如果大家有好的建议(编程方面),我们可以共同开发, 共同完善cad.

tomtom

画箭头程序
绘制箭头,常用于标注方向.

tomtom

绘制折断线程序

tomtom

指北针绘制

hsb-hy

有几个小程序，对我比较有用，下了，在此谢了！

adaidai

大侠们：哪位有在天正下面用一个小程序就能把所有锁定的图层全部解开的？

dbvbd

有些不是很实用

zhletian

看来我也有必要自己学习学习lisp要人家的东西还要花钱！

chen78

最初由 tomtom 发布
[B]坐标标注（土建） [/B]

好像不能用，你能写个在R14中能用的吗，要支持绘图单位为米制和毫米制，如图

tomtom

因为没有给出比例，因此不能标注，我设定比例变量为bl，可用两种方法给出比例，
1。在命令中输入(setq bl xx)   xx---比例   如1：50的比例  xx=50
2.。可将比例写入cad菜单中，这样操作比较方便。
下面是cad菜单中加入的输入比例功能，以上程序凡是涉及到计算的都需要输入比例。

用于cad2004
***pop3
**[User1]
ID_BLL   [->比例]
ID_BLL   [1:5]^C^C(SETQ BL 5)(command "dimlfac" bl)
ID_BLL   [1:10]^C^C(SETQ BL 10)(command "dimlfac" bl)
ID_BLL   [1:15]^C^C(SETQ BL 15)(command "dimlfac" bl)
ID_BLL   [1:20]^C^C(SETQ BL 20)(command "dimlfac" bl)
ID_BLL   [1:25]^C^C(SETQ BL 25)(command "dimlfac" bl)
ID_BLL   [1:30]^C^C(SETQ BL 30)(command "dimlfac" bl)
ID_BLL   [1:40]^C^C(SETQ BL 40)(command "dimlfac" bl)
ID_BLL   [1:50]^C^C(SETQ BL 50)(command "dimlfac" bl)
ID_BLL   [1:60]^C^C(SETQ BL 60)(command "dimlfac" bl)
ID_BLL   [1:80]^C^C(SETQ BL 80)(command "dimlfac" bl)
ID_BLL   [1:100]^C^C(SETQ BL 100)(command "dimlfac" bl)
ID_BLL   [1:150]^C^C(SETQ BL 150)(command "dimlfac" bl)
ID_BLL   [1:200]^C^C(SETQ BL 200)(command "dimlfac" bl)
ID_BLL   [1:250]^C^C(SETQ BL 250)(command "dimlfac" bl)
ID_BLL   [1:300]^C^C(SETQ BL 300)(command "dimlfac" bl)
ID_BLL   [1:400]^C^C(SETQ BL 400)(command "dimlfac" bl)
ID_BLL   [1:500]^C^C(SETQ BL 500)(command "dimlfac" bl)
ID_BLL   [<-1:1000]^C^C(SETQ BL 1000)(command "dimlfac" bl)
.........................................

cadr14
***pop3
**[User1]
[->比例]
[1:5]^C^C(SETQ BL 5)(command "dimlfac" bl)
[1:10]^C^C(SETQ BL 10)(command "dimlfac" bl)
[1:15]^C^C(SETQ BL 15)(command "dimlfac" bl)
[1:20]^C^C(SETQ BL 20)(command "dimlfac" bl)
[1:25]^C^C(SETQ BL 25)(command "dimlfac" bl)
[1:30]^C^C(SETQ BL 30)(command "dimlfac" bl)
[1:40]^C^C(SETQ BL 40)(command "dimlfac" bl)
[1:50]^C^C(SETQ BL 50)(command "dimlfac" bl)
[1:60]^C^C(SETQ BL 60)(command "dimlfac" bl)
[1:80]^C^C(SETQ BL 80)(command "dimlfac" bl)
[1:100]^C^C(SETQ BL 100)(command "dimlfac" bl)
[1:150]^C^C(SETQ BL 150)(command "dimlfac" bl)
[1:200]^C^C(SETQ BL 200)(command "dimlfac" bl)
.........................................