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

shz9

pxt2001 发表于 2024-8-30 14:03
Y、Z、F是自定义的关键字，输入Y画仰斜挡土墙，输入Z画直立挡土墙，输入F画俯斜挡土墙。

怎么自定义能说一下嘛？

leedun

如果是lsp、fas或vlx格式更方便了

pxt2001

以上分别是附件的代码（不敢称之为程序）在AutoCAD和浩辰CAD运行的情况。
1、在AutoCAD有加载opendcl，把附件两个图片和odcl文件放在AutoCAD支持文件夹，运行代码才能显示图片，否则不显示对话框，但可以运行代码。
2、代码里面有fsxm-***，借用了飞诗寻梦大神的函数，保留fsxm名称以示敬佩。
3、关于收币，因为伸手党多，人性就是都喜欢不劳而获。还是要付出一点点代价才利于论坛可持续发展。取之于民用之于民（明），如果你认为我借用别人函数赚钱请绕道，话说明经币能够提现吗？
4、水平有限，可能存在不少bug，高手可以略过，重点是结合专业图集，对话框显示图片的创意是原创。
5、输入的内容有点多，但这个代码我用得很少，懒得去改成对话框模式了，意向思路是像钢结构选择型钢类型一样，把图集的上百种类型列表，对话框选择参数 。哪位网友有兴趣，有精力去改造一下。
6、不解释代码用法，请看演示。

lzspain

pxt2001 发表于 2024-9-3 10:11
以上分别是附件的代码（不敢称之为程序）在AutoCAD和浩辰CAD运行的情况。
1、在AutoCAD有加载op ...

试用了下，对绘制17J008图集中的挡墙确实好用，但其他行业的挡墙截面尺寸如果自行设计，这个程序就无法绘制了。比如不同墙顶宽、衡重台宽、墙面和墙背坡比、多级墙趾和墙踵等。

pxt2001

lzspain 发表于 2024-9-18 23:27
试用了下，对绘制17J008图集中的挡墙确实好用，但其他行业的挡墙截面尺寸如果自行设计，这个程序就无法绘 ...

这个挡土墙Lisp代码主要是岩土专业用得多，自己是结构专业，用得不多，更不用说其他行业，它们挡土墙是怎样的我没见过，考虑不到的。能把17J008图集几百种类型挡土墙一码打尽算够可以了。
其他行业挡土墙，得靠有兴趣，有时间的热心大佬去深化了 。

lzspain

pxt2001 发表于 2024-9-20 09:53
这个挡土墙Lisp代码主要是岩土专业用得多，自己是结构专业，用得不多，更不用说其他行业，它们挡土墙是怎 ...

像我们公路行业，图集的挡墙型式不适用，都是自己设计挡墙尺寸，所以各边尺寸和坡率、墙趾数量都不是固定的，有的挡墙还会加防滑凸榫，自定义成都更高的lisp程序就更好。就算是岩土专业，也不会所有人都套图集，也会有自己设计的时候。理正是可以绘制断面，但是要想获得矢量图，必须先转dxf，再转dwg，比较麻烦。

pxt2001

lzspain 发表于 2024-9-20 10:48
像我们公路行业，图集的挡墙型式不适用，都是自己设计挡墙尺寸，所以各边尺寸和坡率、墙趾数量都不是固定 ...

你截图的（公路专业）挡土墙，和我Lisp代码画的挡土墙大同小异，一级脚趾改为两级，悬臂式挡土墙底部加一个牙齿。用代码生成挡土墙，墙背，墙面，墙底坡度都可以输入。然后多画几笔PL线，或者加一个矩形，延伸剪切就搞定了 。代码要考虑通用性，做到百分百匹配某个特例不大现实，只能自己动手了 。

陈伟

pxt2001 发表于 2024-4-26 11:14
这个图集是结构专业的，楼主Lee和院长虽然都是大神，也不可能按照结构的思路来契合结构图集的需求。
...

刚好用到，国标图集正好适用

炫色ペ水域の

pxt2001 发表于 2024-9-3 10:11
以上分别是附件的代码（不敢称之为程序）在AutoCAD和浩辰CAD运行的情况。
1、在AutoCAD有加载op ...

没有看到照片，是什么原因?是需要安装OPENDCL嘛

guankuiwu

下载看到有数据接口的，不错，可以做成数据库 支持。