免费视频|新人指南|投诉删帖|广告合作|地信网APP下载

查看: 14582|回复: 17
收起左侧

[二次开发] AutoCAD-LISP程序100例

[复制链接]

1万

主题

1036

铜板

1098

好友

技术员

积分
81944
QQ
发表于 2011-9-25 15:31 | 显示全部楼层 |阅读模式
AutoCAD-LISP程序100例

AutoCAD-LISP程序100例.rar

473.64 KB, 下载次数: 3139

4

主题

5447

铜板

5

好友

工程师

Rank: 7Rank: 7Rank: 7

积分
586
发表于 2011-9-25 16:36 | 显示全部楼层
每个的是干什么的?怎么使用说清楚了没?不想浪费钱啊
该会员没有填写今日想说内容.

4

主题

5447

铜板

5

好友

工程师

Rank: 7Rank: 7Rank: 7

积分
586
发表于 2011-9-25 16:37 | 显示全部楼层
貌似以前下载过一个类似的,都没说怎么用
该会员没有填写今日想说内容.

82

主题

3万

铜板

117

好友

版主

一定要做的更好

Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15

积分
4499

灌水勋章宣传勋章

QQ
发表于 2011-9-25 21:43 | 显示全部楼层
专注!截个图!介绍一下撒!
锄禾日当午,签到好辛苦!...

0

主题

381

铜板

0

好友

助理工程师

Rank: 5Rank: 5

积分
187
发表于 2011-9-28 06:53 | 显示全部楼层
看看 有那些lisp可以用用

4

主题

792

铜板

11

好友

助理工程师

Rank: 5Rank: 5

积分
199
发表于 2011-10-18 14:43 | 显示全部楼层
{:soso_e179:} AutoCAD-LISP程序100例.JPG 有说明很好!顶
如果您使用 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的图)
 
brk.lsp --- 将一线条在与其它线条相交处断开
peditx.lsp --- 成批修改线条的线宽
ex.lsp --- 分别或一起或通过层来炸开块、尺寸标注及PLINE线
chcr.lsp --- 修改园和园弧的半径
lay.lsp --- 通过点取层上一实体来实现层操作:删除/解冻/冻结

bg0.lsp --- 直接将正负零标注在图纸中(建筑结构图用)
bg1.lsp~bg4.lsp --- 标注各种标高

hu.lsp --- 直接给出园弧长度

jdx.lsp --- 截断线
jdx2.lsp --- 双截断线

bdgj.lsp --- 板底钢筋(土建结构图用)
bdgj1.lsp,bdgj2.lsp --- 板顶钢筋(土建结构图用)

dk1.lsp~dk8.lsp --- 配合PKPM软件生成的图绘洞口(基础留洞)
gl1.lsp~gl8.lsp --- 配合PKPM软件生成的图绘过梁(结构平面图)

gzz.lsp --- 构造柱绘制

ACAD.LIN --- 增强的线型文件, 扩充线型(线型比例为1)如下:

XX -- 虚线(用于1:1的图)
DHX -- 点划线(用于1:1的图)
XX100 -- 虚线(用于1:100的图)
DHX100 -- 点划线(用于1:100的图)

ACAD.LSP --- 增强的ACAD启动文件, 命令扩展如下:

CHXX -- 将线型改为虚线(用于1:1的图)
CHDHX -- 将线型改为点划线(用于1:1的图)
CHXX100 -- 将线型改为虚线(用于1:100的图)
CHDHX100 -- 将线型改为点划线(用于1:100的图)
CHCON -- 将线型改为连续线
CHC -- 直接修改实体的颜色
其余详见ACAD.LSP的内容。ACAD的命令缩写根据其使用的频率作了调整。

V -- 先执行ZOOM E, 再将当前视图存储,并调用ZOOM W
此命令主要为"超级视图"做准备,"超级视图"妙处一用便知 ! 建议使用显
示卡自带的AutoCAD显示驱动

增强后的ACAD.LSP能在状态行上显示当前文件名

ACAD.MNU的改进: 调整了光标菜单(共两页),并将最常用的捕捉方式定义
在组合光标键上。

将如下内容替换原相应项

***BUTTONS1
**b11
;
$b1=b12 $p0=p01 $p0=*
**b12
;
$b1=b11 $p0=p02 $p0=*

***BUTTONS2
_end,_int

***BUTTONS3
_nea

***BUTTONS4
'_view r e '_zoom w

***POP0
**p02
[DDedit]^C^CDDEDIT
[CHGtext]^C^C(if (not chgtext) (load "chgtext"));chgtext
[--]
[NEArest]_nea
[PERpendicular]_per
[MIDpoint]_mid
[CENter]_center
[ENDpoint]_endp
[INSert]_ins
[INTersection]_int
[NODe]_nod
[QUAdrant]_qua
[TANgent]_tan
[NONe]_non
[--]
[Calculator]'cal

**p01
[--]
[Line]^C^C_line
[Polyline]^C^C_pline
[Circle]^C^C_circle
[Arc]^C^C_arc
[--]
[Erase]^C^C_erase
[Move]^C^C_move
[Copy]^C^C_c
[Stretch]^C^C_str
[Rotate]^C^C_rotate
[Fillet]^C^C_f
[Offset]^C^C_offset
[Extend]^C^C_extend
[Trim]^C^C_trim
[Break]^C^C_break
[Explode]^C^C_explode
[--]

说明:
1. 按Shift-鼠标右键: end,int 捕捉方式
2. 按Ctrl-鼠标右键: nea 捕捉方式
3. 按Shift-Ctrl-鼠标右键: 启动"超级视图"
4. 按鼠标中键: 捕捉方式和常用绘图命令的切换(共两页)



---------------------------------------------------------------

下面是一业余版的二维建筑设计软件,其最大的特色为所绘的实体仅有
LINE、POLYLINE、CIRCLE和TEXT四种,修改容易。虽只有二十多个程序,
但确能帮您解决二维绘图中的一些问题。
ax.lsp --- 规则轴网绘制
chax.lsp --- 轴线线型由点划线到连续线的交替变换
wwall.lsp --- 外墙绘制
nwall.lsp --- 内墙绘制(beta)
gwall.lsp --- 隔墙绘制(beta)
ss.lsp --- 室外散水
chww.lsp --- 墙线加粗
chw0.lsp --- 墙线加粗恢复
dimw.lsp --- 标注墙厚
zhu.lsp --- 交点插柱
win.lsp --- 墙上插窗
wwin.lsp --- 无墙画窗
door.lsp --- 墙上插门

3dimzs.lsp --- 标注左边及上边的第三排尺寸线
3dimyx.lsp --- 标注右边及下边的第三排尺寸线

lt1.lsp --- 双跑楼梯平面
ltpm.lsp --- 双跑楼梯剖面(better)
wsj.lsp --- 卫生间布置
wsj1.lsp --- 单个侧开门卫生间
tj1.lsp --- 台阶绘制
pd.lsp --- 坡道绘制
sy1.lsp --- 索引1
sy2.lsp --- 索引2
lmw.lsp --- 立面窗
lmm.lsp --- 立面门


------------------------------------------------------------

该会员没有填写今日想说内容.

0

主题

71

铜板

0

好友

实习生

Rank: 1

积分
5
发表于 2012-10-8 18:26 | 显示全部楼层
{:soso_e100:}
回复 支持 反对

使用道具 举报

45

主题

2万

铜板

60

好友

传奇会员

Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30

积分
23234

灌水勋章宣传勋章贡献勋章

发表于 2013-10-20 16:53 | 显示全部楼层
了解一下,谢谢楼主分享。
回复 支持 反对

使用道具 举报

45

主题

2万

铜板

60

好友

传奇会员

Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30Rank: 30

积分
23234

灌水勋章宣传勋章贡献勋章

发表于 2013-10-22 17:38 | 显示全部楼层
了解一下,谢谢楼主分享。
回复 支持 反对

使用道具 举报

0

主题

299

铜板

1

好友

技术员

Rank: 3Rank: 3

积分
62
发表于 2017-6-22 19:07 | 显示全部楼层
谢谢楼主分享
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

在线客服
快速回复 返回顶部 返回列表