[求助]：建筑排砖Lisp

cyt1

谁有建筑排砖的Lisp?

dwg001

修改填充图案，可以进行平面和立面排转对缝。
如：在文件acadiso.pat中添加，根据需要修改哈~
*AR-B816Cc,Tangent 8x16 块砖顺砌，用灰泥接缝
0,0,0,1.225,0.65,2.4,-0.05
0,-1.225,0.05,1.225,0.65,2.4,-0.05
90,0,0,0.65,1.225,-0.65,0.6
90,-0.05,0,0.65,1.225,-0.65,0.6
*ME,Tangent 8x16 块砖顺砌，灰泥接缝
0,0,0,1.225,0.65,2.4,-0.05
0,-1.225,0.05,1.225,0.65,2.4,-0.05
90,0,0,0.65,1.225,-0.7,0.6
90,-0.05,0,0.65,1.225,-0.7,0.6

cyt1

谢谢!
先试试

jaminth

“LWK”砖块填充使用帮助
A.     程序信息：



;;; 设计动机：弥补CAD填充图案的不足，能够根据砖块的实际尺寸绘制出真实的填充效果。

;;; 命令取名：Hatch Wall brick

;;; 开发地点：梁黄顾设计顾问(深圳)有限公司

;;; 创建时间：2008-08-14

;;; 完成时间: 2008-10-05

作者: 江选明    邮箱: jaminth@163.com    QQ: 28104323

Copyright ©  Jaminth Jiang(ShenZhen @ LWK & PARTNERS)



B.    功能：实现直观、简便的排砖(方块砖)操作。

C.    用法：输入命令HW后，可进行添加、删除、更新砖块类型，修改排砖点等操作。

            对话框选项说明如下：

一、  砖块类型图像：

1.        图像方框:显示相应的砖块类型图案。点击该图像方框后，即弹出“选择颜色”对话框，可改变砖块的颜色，并在图像方框显示相应的颜色效果。

2.        添加按钮:当改变参数选项中的长度、宽度或缝宽任一数值后，单击该按钮可添加新的LWK砖块类型，同时加入图案列表并显示相应的类型名称。

3.        删除按钮:从图案列表中删除选中的图案类型，并返回列表中的第一个项目，“参数”也一并更新显示。

二、   图案列表：

—— 从“支持文件搜索路径”中读入LWK专用的pat文件(pat文件名含有@lwk)，并显示在列表中。

三、  图层列表：

—— 显示当前AutoCAD图形文件的所有可用图层(过滤外部参照图层)。

四、  图层图像：

  —— 激活“添加图层”对话框。点击该图像后，将弹出对话框，由此可输入新建的图层名称和指定图层的颜色。

五、  保留边界开关：

—— 控制是否保留填充时的边界线。当勾选后，可激活“关联”切换开关。

六、  关联开关：

—— 控制砖块图案是否与边界线关联。勾选关联可保证图案随边界线的更改而更新。

七、  图案捕捉开关：

—— 控制对象捕捉是否忽略图案填充对象。勾选则可以捕捉到砖块图案的特征点。

八、  图块开关：

—— 当生成砖块填充图案后，控制是否将图案对象做成图块。图块名称由系统自动生成。

九、  参数设置：

—— 输入新添加的砖块类型各个参数值。如:长度、宽度、缝宽等。注意:只有当按下

                             “添加”按钮，激活参数中的各个文本框后，才能输入长度、宽度等的数值。

十、  匹配按钮：

——可通过该按钮匹配图形中的LWK砖块填充对象为当前选用的类型。

十一、        更新按钮：

—— 如需更改参数中的某一项数值，可在修改后点击更新按钮。相应的砖块类型名称也将改变并显示对应的图案。

十二、        动作方式列表(生成边界线方式)：

1.        “P描图” —— 以绘制“多段线”的方式描出填充图案的边界。

2.        “R框拉” —— 以绘制“长方形”的方式描出填充图案的边界。

3.        “I点取” —— 在屏幕绘图可见区域，鼠标点取一闭合范围，生成填充图案的边界。

4.        “S单选” —— 选取图形对象(集)，每个图形对象将单独作为填充边界，以此生成的填充图案将被视为多个对象。

5.        “M多选” —— 选取图形对象(集)，整个图形对象(集)将作为填充边界，以此生成的填充图案将被视为一个对象。

十三、        边界线按钮：

——根据选中的LWK砖块填充图案 ，反绘出图案的边界线。若“关联”开关为勾选状态，反绘出的边界线可与原来的填充图案保持关联。

十四、        排砖点按钮：

—— 改变LWK砖块填充对象的起排点位置。注意:只支持选取LWK砖块填充对象。

*以上参数设定完成后,均会自动保存,在下一次使用时会将沿用保存的设定.*

D.    加载：

1.        —— hw.vlx文件的使用方法与一般的lsp文件加载方式一样，在命令行输入appload，找到hw.vlx文件所在的目录，选中后点击load即可。

2.        自动载入：为了保证程序能够在下次使用，而不必手动加载，建议将hw.vlx加入启动组Startup suite。在命令行输入appload，在弹出的对话框中点击“Contents...”然后选取hw.vlx，再点击“Add”即可。

3.        御载unload：若不需要自动加载hw.vlx，同样在命令行输入appload，在对话框中点击“Contents...”然后选取hw.vlx，再点击“Remove”即可。

4.        程序第一次运行时，将自动打开使用帮助文件。以后可通过输入命令hwhelp或在“LWK”砖块填充程序对话框中点击右下角“帮助help”按钮，即可调出该帮助文件。第一次运行，必须添加一个砖块类型，方可正常使用程序。

E.    后注：

1.     hw.vlx程序经深圳公司的计算机绘图环境AutoCAD 2005英文版调试成功，不保证在AutoCAD的其它版本能够正常运行。编写过程采纳了公司同事的一些实际性建议与意见，在此对他们的帮助与支持表示感谢。

2.     特别说明：hw.vlx文件是本人在休息/节假日时间编写的，鉴于个人能力与时间的关系，难免存在一定的错误bug，恳请谅解，同时也希望您能提出宝贵的意见与建议。

程序更新历史
版本：Ver-1.080831

内容：将程序运行名称由原来的LWK改为HW。

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

版本：Ver-2.080912

内容：将程序由命令行运行方式升级为对话框方式，实现直观、简便的排砖(方块砖)操作。

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

版本：Ver-3.081007

内容：1.将填充边界线的图层由原来的“Defpoints”更改至一个专用的“B-HATCH”图层,便于图层操作；2.将“保留边界”与“关联”切换开关的初始状态设置为打开；3.程序初始化时加入两种默认的砖块类型(145x45x5@lwk与240x60x8@lwk),并设置成“拒绝删除”状态；4.发现并修正一个bug(pat文件描述符错误)。

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

版本：Ver-4.081018

内容：1.删除“提交”按钮，并将其功能整合入“添加”按钮；2.将“提交”按钮修改为“匹配”按钮.若“支持文件搜索路径”不存在图形中某一LWK砖块类型时，可通过该按钮实现匹配并添加相应的砖块类型；3.增加“边界线”按钮,可还原砖块填充对象的边界线；4.发现并修正一个bug(删除一个没有被选中的类型时，无法正常显示更新后的图案列表)；5.将“B-HATCH” 边界线图层颜色改为5号色(即蓝色)和不可打印状态；6.改变“保留边界”与“关联”的运行关系。

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

jaminth

DCL对话框:

cyt1

好东西

众山小

这个工具非常实用，用后觉得很不错
收藏了，谢谢

zhongyang730

这个工具非常实用，正在找这方面的程序，收藏了，谢谢

wjl1014

找了很久了，今天忽然发现。感谢晓东家园。

jaminth

程序已经升级到了7.090424版本，需要的网友可留下信息申请！
--------------------------------------------------------------------------------------------------------------
程序更新历史
版本：Ver-1.080831

内容：将程序运行名称由原来的LWK改为HW。



版本：Ver-2.080912

内容：将程序由命令行运行方式升级为对话框方式，实现直观、简便的排砖(方块砖)操作。



版本：Ver-3.081007

内容：1.将填充边界线的图层由原来的“Defpoints”更改至一个专用的“B-HATCH”图层，便于图层操作；2.将“保留边界”与“关联”切换开关的初始状态设置为打开；3.加入两种预定义的砖块类型(145x45x5@lwk与240x60x8@lwk)，并设置成“拒绝删除”状态；4.发现并修正一个bug(pat文件描述符错误)。



版本：Ver-4.081018

内容：1.删除“提交”按钮，并将其功能整合入“添加”按钮；2.将“提交”按钮修改为“匹配”按钮。若“支持文件搜索路径”中不存在图形中某一砖块类型时，可通过该按钮实现匹配并添加相应的砖块类型；3.增加“边界线”按钮，可还原砖块填充对象的边界线；4.发现并修正一个bug(删除一个没有被选中的类型时，无法正常显示更新后的图案列表)；5.将“B-HATCH”边界线图层颜色改为5号色(即蓝色)和不可打印状态；6.改变“保留边界”与“关联”的运行关系。



版本：Ver-5.081228

内容：1.修改了填充图案与边界线的关联bug；2. 删除原有的图块功能；3.分离点取填充和整体填充子函数(程序内部更新)；4.将“边界线”按钮更新为“边界(B)”按钮，加入快捷键B，将“排砖点”按钮更新为“重排(R)”按钮，加入快捷键R；5.加入“分色”功能，完善了实际工作中“既有排砖又有分色”的要求，尽可能地提高工作效率。



版本：Ver-6.090214

内容：1. 删除对话框中“参数”的“角度”选项。2.修整“比例”选项，增强了“比例”的功能（按照“X，Y”的格式，可以根据实际情况调整X方向的比例和Y方向的比例）；3.改变了砖块填充图案的命名方式。4. 对话框的图像窗口，添加了“无缝宽，不居中错距” 和“有缝宽，不居中错距”两种矢量图数据。



版本：Ver-7.090423

内容：1.解决小数点设置不正确出现的错误；2.增加“填充样式”的可视化窗口；3. 增加“[填充+分色]设置”对话框，简化程序的选择操作(必须在分色对话框激活的状态下，图像按钮才能起作用)4.修正当砖块被镜像操作后，重新修改排砖点时出现的错误；5.增加一个可动变量“users4”，可改变“填充边界线”的图层(输入users4后，键入“.”可恢复原来的“B-HATCH”图层)。

urdiafa

樓主可否e-mail給我新版
afacad@ms17.hinet.net,

wangcz68

正在找这方面的程序，收藏了

lmt112233

工具非常实用，在找这方面的程序，收藏了，谢谢

sandy_na

樓主可否e-mail給我新版
sandy_na2000@sina.com

cxjzxf

用填充可以实现吧