深圳华森建筑设计院内部使用LSP
本帖最后由 e网浪人 于 2016-4-6 13:58 编辑华森结构lsp程序加载步骤：
(1) 把hsjg1.01文件夹拷入本地硬盘中；
(2) 在”C:/Program Files/ AutoCAD 2005/Support/”下的acad2005.lsp文件的结尾加下面一行：(load "华森结构.vlx" " ")
如果使用cad2006，就修改”C:/Program Files/ AutoCAD 2006/Support/”下的acad2006.lsp。
(3) 打开cad，把hsjg1.01文件夹添加为cad的文件搜索目录；步骤为：点菜单：工具－>选项，在文件分页中点开支持文件搜索路径，添加一下刚拷入本地硬盘的hsjg1.01文件夹。
(4) 在cad中，点菜单：工具－>自定义－>菜单，在菜单组分页中浏览到刚拷入的hsjg1.01文件夹，点中hsjg.mns文件，打开，然后点加载；在菜单栏分页中，点中菜单组中的hsjg，插入到右边的菜单栏中，用上下移调至想要的位置，关闭对话框。若是cad2006中，找不到相应菜单时，可用menuload命令调出加载对话框。
(5) 把刚拷入本地硬盘的hsjg1.01文件夹中的acad附加.pgp文件修改为自己想要的快捷命令，在cad中，点菜单：工具－>自定义－>编辑自定义文件—>程序参数acad.pgp，把刚刚修改好的附加pgp拷入此文件的最后，保存，关闭。退出cad再进入时就完成了加载。Acad附加.pgp文件包括所有命令的快捷命令，可以仅仅修改那些经常使用命令的快捷键拷入cad指定的pgp中，**不常用的命令可通过点菜单来完成。关于所有命令的说明见hsjg1.01文件夹中命令说明.doc。
(6) 如果有兴趣使用快捷捕捉键，如果是Acad2005可按以下方法设置，点菜单：工具－>自定义－>编辑自定义文件—>当前菜单，在此文件中通过查找acce找到***ACCELERATORS所在的地方，把hsjg文件夹中快捷捕捉设置.txt文件中的所有内容拷入至***ACCELERATORS的下一行。关掉cad再开就可以了。华森结构lsp程序命令说明
本次修改的这些命令在名称后均加_hs后缀，以避免与用户自定义的pgp相混淆，用户可直接在cad中输入以下命令，也可通过pgp文件编辑自己的快捷命令。命令的说明如下：
;暗柱配筋
Aa 求多义线面积
Az 暗柱配筋
Bj 线两端加点钢筋
dj 等距均布点钢筋
gj 画箍筋
lj 画拉筋
wg 画弯钩
pjl 计算配筋率
pgl 计算配箍率
;加载和设置
cb 改保护层厚度
cs 改比例
cv 改钢筋显示比例
chxsd_hs 改小数点位数
;梁配筋
Jlh 降梁号
Slh 升梁号
11 梁号加1
22
33
44
55
66
77
88
99
00
lhmax 求最大梁号
lhjc 梁号检查
zz 配原位钢筋
;**
Br 交点打断
Ct 拷贝至当前层
Dra 填充靠后
Dtc 画洞口填充
Ax 连断线
pm 画梁小剖面
us 自定义ucs
ws 回到世界坐标系
hl 画梁线
tl 梁线剪切
dq 字线平行
;图层管理
cp现模板图
cl现梁配筋图
cb现板配筋图
cz现柱定位图
cx现桩基图
cjz 现建筑图
gxz 处理虚线柱子层（用于外部参照）
bq打开0q层
vq关闭0q层
bw打开0w层
vw关闭0w层
bp_ 打开0p层
vp关闭0p层
bl打开0l层
vl关闭0l层
bb打开0b层
vb关闭0b层
bz打开0z层
vz关闭0z层
bx打开0x层
vx关闭0x层
b9打开9层
v9关闭9层
b0打开0层
v0关闭0层
ha_hs h为解冻，g为冻结，
ga_hs
hq_hs
gq_hs
hw_hs
gw_hs
hp_hs
gp_hs
hl_hs
gl_hs
hb_hs
gb_hs
hz_hs
gz_hs
hx_hs
gx_hs
h9_hs
g9_hs
h0_hs
g0_hs
ta_hs t为解锁，r为锁定
ra_hs
tq_hs
rq_hs
tw_hs
rw_hs
tp_hs
rp_hs
tl_hs
rl_hs
tb_hs
rb_hs
tz_hs
rz_hs
tx_hs
rx_hs
t9_hs
r9_hs
t0_hs
r0_hs
bte_hs 打开层名与选中文字内容一致的层
vte_hs 关闭层名与选中文字内容一致的层
rte_hs 锁定
tte_hs 解锁
gte_hs 冻结
hte_hs 解冻
cte_hs 设当前层为选中文字内容一致的层
ate_hs 把物体放入选中文字内容所指的层
lmm_hs把当前打开的图层写到9层上
;文字修改
aaa_hs梁号加a
bbb_hs
ccc_hs
ddd_hs
htt_hs文字连接
tt_hs 文字替换
{_hs 文字加{ }
[_hs 文字加（
]_hs 文字加）
[]_hs 文字加（）
q[_hs 文字去（
q]_hs 文字去）
q[]_hs文字去（）
1_hs 梁跨改为1
1a_hs 梁跨改为1A
1b_hs 梁跨改为1B
2_hs
2a_hs
2b_hs
3_hs
3a_hs
3b_hs
4_hs
4a_hs
4b_hs
5_hs
5a_hs
5b_hs
6_hs
6a_hs
6b_hs
7_hs
7a_hs
7b_hs
8_hs
8a_hs
8b_hs
9_hs
9a_hs
9b_hs
;桩编号
zbh_hs给桩编号
szs_hs统计桩径
下载地址：**** Hidden Message *****
hao 用了。 回复看看----------------
感觉是个好东西呀 不错，有些挺实用的
看看学习一下 命令真多，还不如直接用TSSD。
看看，学习一下，谢谢楼主
好东西 学习一下
谢谢分享 ，很有名的设计院.
好的人有好的义务教育 哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈
回复看看---------------- 路过看看。。。
;桩编号zbh_hs给桩编号 szs_hs统计桩径