<***** 更新 【擋土牆繪制 V2.2版】 *****>
本帖最后由 lee50310 于 2023-10-25 16:11 编辑原請求帖:
http://bbs.mjtd.com/forum.php?mo ... =%B5%B2%CD%C1%C7%BD
<*****【源碼】【擋土牆繪制 V2.0版】*****>
執行指令:dtq
ps: 1.解壓後 將程式 挡土墙2_chs.lsp , sld資料夾 放在 d槽 的 temp資料夾內
若所放的槽或路徑與程式設置不同
需自行修改程式中此行 (setq path "d:\\temp\\sld\\")
否則會讀不到幻燈片檔
2.支持記憶功能
本帖最后由 pxt2001 于 2024-9-3 10:47 编辑
以上分别是附件的代码（不敢称之为程序）在AutoCAD和浩辰CAD运行的情况。
1、在AutoCAD有加载opendcl，把附件两个图片和odcl文件放在AutoCAD支持文件夹，运行代码才能显示图片，否则不显示对话框，但可以运行代码。
2、代码里面有fsxm-***，借用了飞诗寻梦大神的函数，保留fsxm名称以示敬佩。
3、关于收币，因为伸手党多，人性就是都喜欢不劳而获。还是要付出一点点代价才利于论坛可持续发展。取之于民用之于民（明），如果你认为我借用别人函数赚钱请绕道，话说明经币能够提现吗？
4、水平有限，可能存在不少bug，高手可以略过，重点是结合专业图集，对话框显示图片的创意是原创。
5、输入的内容有点多，但这个代码我用得很少，懒得去改成对话框模式了，意向思路是像钢结构选择型钢类型一样，把图集的上百种类型列表，对话框选择参数 。哪位网友有兴趣，有精力去改造一下。
6、不解释代码用法，请看演示。
本帖最后由 pxt2001 于 2024-4-26 13:03 编辑
flytoday 发表于 2023-10-24 15:51
底坡度，墙两侧坡道，都能输入就好了
这个图集是结构专业的，楼主Lee和院长虽然都是大神，也不可能按照结构的思路来契合结构图集的需求。
先发一个演示上来，稍后再发程序。目前只是重力式挡土墙（包括仰斜、直立、俯斜）默认墙高6米，程序使用不多，暂无对话框，暂未考虑悬臂式，因为和重力式挡土墙逻辑不一样。默认有三组数据
(setq lst '(("Y" "仰斜" 6000 1525 1690 0.25 -0.25 0.2 600)
("Z" "直立" 6000 1312 2560 0.2 0 0.2 600)
("F" "俯斜" 6000 1470 2980 0.05 0.15 0.2 600)
)
)
尺寸能自动标嘛 謝謝樓主的分享！
真的很方便… 感谢大佬的分享
感谢大佬的分享 感谢大佬的分享 感谢大佬分享
简单方便，一目了然，收藏先！
9楼的厉害了