地籍cad的lisp程序大集合_AutoCAD-LISP程序100例

{:soso_e179:}

AutoCAD-LISP程序100例.JPG (143.82 KB, 下载次数: 28)

2011-10-18 14:42 上传

有说明很好!顶

如果您使用 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 --- 立面门

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

  • 2
    点赞
  • 4
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值