<***** 更新【擋土牆繪制 V2.2版】 *****>

lee50310 · 发表于 2023-10-23 02:11:31

本帖最后由 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:11:53

本帖最后由 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 11:14:29

本帖最后由 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)
         )
  )

炫色ペ水域の · 发表于 2023-10-23 08:08:11

尺寸能自动标嘛

p-3-ianlcc · 发表于 2023-10-23 08:49:16

謝謝樓主的分享！
真的很方便…

czb203 · 发表于 2023-10-23 09:11:24

感谢大佬的分享

阿猪蛋 · 发表于 2023-10-23 09:23:33

感谢大佬的分享

lxl217114 · 发表于 2023-10-23 10:01:50

感谢大佬的分享

222808 · 发表于 2023-10-23 11:37:02

感谢大佬分享

jkop · 发表于 2023-10-23 13:23:14

简单方便，一目了然，收藏先！

xyp1964 · 发表于 2023-10-23 20:43:53

炫色ペ水域の · 发表于 2023-10-24 08:59:22

9楼的厉害了

账号		自动登录	找回密码
密码			注册

[源码] <* 更新【擋土牆繪制 V2.2版】 *>

本帖子中包含更多资源

评分

本帖子中包含更多资源

评分

本帖子中包含更多资源

本帖子中包含更多资源

评分

[源码] <***** 更新 【擋土牆繪制 V2.2版】 *****>

本帖子中包含更多资源

评分

本帖子中包含更多资源

评分

本帖子中包含更多资源

本帖子中包含更多资源

评分

[源码] <* 更新【擋土牆繪制 V2.2版】 *>