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

kszn · 发表于 2004-4-28 20:40:39

俺笨，这些东东都是好，就是不知怎么用，急！

tomtom · 发表于 2004-4-28 22:02:34

楼上不要着急，可以把以上程序分别下载，然后存到一个固定的目录里，最后在cad的菜单中加入调用名字就可以了，这样就不必要每次加载程序了，只需从下拉菜单中点取命令就可以了，非常方便，下面是自己定义的一段修改类菜单，希望你能有用。
例子：
***POP5 （此处需按照CAD的规格写）
**[修改类]
[改字符1]^c(load "c:/LSP目录名/ch1") ch1
[改字符2]^c(load "c:/LSP目录名/ch2") ch2
[加前后缀]^c(load "c:/LSP目录名/ch3") ch3
[减前后缀]^c(load "c:/LSP目录名/ch4") ch4
[改字型]^c(load "c:/LSP目录名/chshx") chshx;
[改字高1]^c(load "c:/LSP目录名/chhtext") chhtext;
[改字高2]^c(load "c:/LSP目录名/ch") ch;
[改字角度]^c(load "C:/LSP目录名/chhang") chhang;
[替换字符]^c(load "c:/LSP目录名/chgtext") chtext
[字符击碎]^c(load "c:/LSP目录名/hzbrea") hzbrea
[改线宽]^c(load "c:/LSP目录名/pw") pw
[改线宽1]^c(load "c:/LSP目录名/pw1") pw1
[提取文本]^c(load "c:/LSP目录名/wr") wr
[字符合并]^c(load "c:/LSP目录名/zfhb") zfhb
[尺寸击碎]^c(load "c:/LSP目录名/CHDIM") CHDIM1
[尺寸合并]^c(load "c:/LSP目录名/CHDIM") CHDIM2
[改pk字对齐]^c(load "c:/LSP目录名/ch5") ch5
[合并图纸]^c(load "c:/LSP目录名/hbtz") hbtz
[尺寸线对齐]^c(load "c:/LSP目录名/chdim0") chdim0
[ch lay]^c(load "c:/LSP目录名/chlay") chlay
[ch lt]^c(load "c:/LSP目录名/chlt") chlt
......................................................
.......................................................

tomtom · 发表于 2004-4-28 22:10:08

应36楼要求，下面给大家一个将尺寸引出线对齐的程序：
运行说明：第一点确定X或Y的坐标值，第二点确定修改的方向，可同时选多个尺寸，本程序仅能修改正交方向的引出尺寸线，对斜尺寸线不行。

dhxf · 发表于 2004-4-28 22:48:53

你的JIA1 我下载用起来还可以，在XDSOFT030没完善前我用你这个LSP；
问你一下阿，用JIA1每次需要我输入［精度］；我固定输入精度为2 ；怎么调整你的程序；
急盼告知～
谢
PS：我倒是调整过来了，改成了另外一个程序JIA2不用输入精度，精度缺省为2；
我想知道能不能JIA1里面不用设定精度；直接就把精度缺省为2？

tomtom · 发表于 2004-4-28 22:57:51

多意线修改程序：由于图纸方缩后线条的宽度也跟着方缩，因此绘图时一张图上会有多种不同的线宽，这个程序就是将一定宽度范围内的不同的线宽改为同宽。此程序仅用于修改多意线，对LINE线不起作用。
程序说明：
1。输入修改后的宽度
2。输入要修改宽度的下限（即线宽小于此值的线不修改）
3。输入要修改宽度的上限（即线宽大于此值的线不修改）

dhxf · 发表于 2004-4-28 23:15:23

我用你的程序已经调整好了JIA2，默认精度为2；
INPUT POINTE－－－－NIL看起来不舒服怎么调整？
我是自己摸索了弄出来的，就是不知道NIL怎么去掉
看起来比较难受；不影响使用功能

晓东NO1 · 发表于 2004-4-28 23:24:26

请问*.LSP是否是用专用的语言写的?在哪里有下载?

tomtom · 发表于 2004-4-28 23:26:33

是的，商店里有很多的LISP程序书籍，这个语言的最大特点就是非常直观。

nga · 发表于 2004-4-28 23:28:12

后面的我怎么下不来呢？？是不是没有钱了555

songleiqhy · 发表于 2004-4-29 17:14:48

对，同意15楼得意见，大家把具体功能叙述一下，省得浪费金币啊，对大家都好

tomtom · 发表于 2004-4-30 14:55:27

提取cad的文字到*.TXT文件中，常用于把CAD中的大段说明转换为文本文件中。
这个程序是我在网上下的，觉得很有用，免费提供给大家。

xshrimp · 发表于 2004-5-3 00:04:10

谢谢.

lxg1979 · 发表于 2004-5-5 15:22:14

各位兄台为啥子这么小气像我这要啥没啥的人来这有啥用呀，交流半天还是有距离呀！

tomtom · 发表于 2004-5-8 11:48:57

给大家一个坐标换算程序，联测座标与建筑座标换算公式为:
X=联测座标X值+A*COS(a)-B*SIN(a)
Y=联测座标Y值+A*SIN(a)+B*cos(a)
要求：1。在cad图中分别写出联测坐标基准点的x,y及角度值，角度以度为单位，如“5.15”
2。按照要求顺序选取x,y及角度数值

dhxf · 发表于 2004-5-9 13:43:12

买卖本来就是愿打愿挨的事儿；
楼主这样的人不是多了而是少了；
谢谢～～

账号		自动登录	找回密码
密码			立即注册